equal
deleted
inserted
replaced
230 ^ nil |
230 ^ nil |
231 |
231 |
232 "Created: 16.4.1996 / 16:31:15 / cg" |
232 "Created: 16.4.1996 / 16:31:15 / cg" |
233 ! |
233 ! |
234 |
234 |
|
235 hasCode |
|
236 "return true, if this codeObject has code to execute." |
|
237 %{ |
|
238 if (__INST(code_)) { |
|
239 RETURN (true); |
|
240 } |
|
241 RETURN (false); |
|
242 %} |
|
243 |
|
244 "Created: / 13.11.1998 / 23:13:29 / cg" |
|
245 ! |
|
246 |
235 isBreakpointed |
247 isBreakpointed |
236 "return true, if this is a wrapper method for a breakpoint. |
248 "return true, if this is a wrapper method for a breakpoint. |
237 False is returned here - this method is redefined in WrappedMethod" |
249 False is returned here - this method is redefined in WrappedMethod" |
238 |
250 |
239 ^ false |
251 ^ false |
243 |
255 |
244 isExecutable |
256 isExecutable |
245 "return true, if this codeObject is executable." |
257 "return true, if this codeObject is executable." |
246 |
258 |
247 self isInvalid ifTrue:[^ false]. |
259 self isInvalid ifTrue:[^ false]. |
248 ^ self code notNil |
260 ^ self hasCode |
249 |
261 |
250 "Created: 16.4.1996 / 20:13:32 / cg" |
262 "Created: / 16.4.1996 / 20:13:32 / cg" |
|
263 "Modified: / 13.11.1998 / 23:16:32 / cg" |
251 ! |
264 ! |
252 |
265 |
253 isInvalid |
266 isInvalid |
254 "return true, if this codeObject is invalidated. |
267 "return true, if this codeObject is invalidated. |
255 Return false here, to alow alien codeObjects to be handled by the |
268 Return false here, to alow alien codeObjects to be handled by the |
296 |
309 |
297 isUnloaded |
310 isUnloaded |
298 "return true, if the objects machine code has been unloaded |
311 "return true, if the objects machine code has been unloaded |
299 from the system (i.e. it is not executable)." |
312 from the system (i.e. it is not executable)." |
300 |
313 |
301 ^ self code isNil |
314 ^ self hasCode not |
302 |
315 |
303 "Created: 16.4.1996 / 20:15:52 / cg" |
316 "Created: / 16.4.1996 / 20:15:52 / cg" |
|
317 "Modified: / 13.11.1998 / 23:19:52 / cg" |
304 ! |
318 ! |
305 |
319 |
306 isWrapped |
320 isWrapped |
307 "return true, if this is a wrapper method. |
321 "return true, if this is a wrapper method. |
308 False is returned here - this method is redefined in WrappedMethod" |
322 False is returned here - this method is redefined in WrappedMethod" |
348 ! ! |
362 ! ! |
349 |
363 |
350 !ExecutableFunction class methodsFor:'documentation'! |
364 !ExecutableFunction class methodsFor:'documentation'! |
351 |
365 |
352 version |
366 version |
353 ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.37 1998-11-11 14:39:24 cg Exp $' |
367 ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.38 1998-11-14 17:38:44 cg Exp $' |
354 ! ! |
368 ! ! |
355 ExecutableFunction initialize! |
369 ExecutableFunction initialize! |