--- a/ExecutableFunction.st Thu Nov 12 19:34:25 1998 +0100
+++ b/ExecutableFunction.st Sat Nov 14 18:38:44 1998 +0100
@@ -232,6 +232,18 @@
"Created: 16.4.1996 / 16:31:15 / cg"
!
+hasCode
+ "return true, if this codeObject has code to execute."
+%{
+ if (__INST(code_)) {
+ RETURN (true);
+ }
+ RETURN (false);
+%}
+
+ "Created: / 13.11.1998 / 23:13:29 / cg"
+!
+
isBreakpointed
"return true, if this is a wrapper method for a breakpoint.
False is returned here - this method is redefined in WrappedMethod"
@@ -245,9 +257,10 @@
"return true, if this codeObject is executable."
self isInvalid ifTrue:[^ false].
- ^ self code notNil
+ ^ self hasCode
- "Created: 16.4.1996 / 20:13:32 / cg"
+ "Created: / 16.4.1996 / 20:13:32 / cg"
+ "Modified: / 13.11.1998 / 23:16:32 / cg"
!
isInvalid
@@ -298,9 +311,10 @@
"return true, if the objects machine code has been unloaded
from the system (i.e. it is not executable)."
- ^ self code isNil
+ ^ self hasCode not
- "Created: 16.4.1996 / 20:15:52 / cg"
+ "Created: / 16.4.1996 / 20:15:52 / cg"
+ "Modified: / 13.11.1998 / 23:19:52 / cg"
!
isWrapped
@@ -350,6 +364,6 @@
!ExecutableFunction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.37 1998-11-11 14:39:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.38 1998-11-14 17:38:44 cg Exp $'
! !
ExecutableFunction initialize!