equal
deleted
inserted
replaced
241 ^ false. |
241 ^ false. |
242 |
242 |
243 "Created: 24.6.1996 / 15:08:11 / stefan" |
243 "Created: 24.6.1996 / 15:08:11 / stefan" |
244 "Modified: 24.6.1996 / 17:07:56 / stefan" |
244 "Modified: 24.6.1996 / 17:07:56 / stefan" |
245 "Modified: 4.7.1996 / 11:12:39 / cg" |
245 "Modified: 4.7.1996 / 11:12:39 / cg" |
|
246 ! |
|
247 |
|
248 decompiler |
|
249 ^ Decompiler |
|
250 |
|
251 "Created: 30.7.1997 / 16:36:40 / cg" |
246 ! |
252 ! |
247 |
253 |
248 do:aBlock |
254 do:aBlock |
249 "same as #literalsDo:, in order to get common protocol with Array" |
255 "same as #literalsDo:, in order to get common protocol with Array" |
250 |
256 |
983 ! ! |
989 ! ! |
984 |
990 |
985 !CompiledCode methodsFor:'queries'! |
991 !CompiledCode methodsFor:'queries'! |
986 |
992 |
987 decompileTo:aStream |
993 decompileTo:aStream |
988 Decompiler notNil ifTrue:[ |
994 |decompiler| |
|
995 |
|
996 decompiler := self decompiler. |
|
997 decompiler notNil ifTrue:[ |
989 Autoload autoloadFailedSignal handle:[:ex | |
998 Autoload autoloadFailedSignal handle:[:ex | |
990 ex return |
999 ex return |
991 ] do:[ |
1000 ] do:[ |
992 Decompiler autoload. |
1001 decompiler autoload. |
993 ]. |
1002 ]. |
994 ]. |
1003 ]. |
995 (Decompiler isNil or:[Decompiler isLoaded not]) ifTrue:[ |
1004 (decompiler isNil or:[decompiler isLoaded not]) ifTrue:[ |
996 ^ false |
1005 ^ false |
997 ]. |
1006 ]. |
998 |
1007 |
999 Decompiler decompile:self to:aStream. |
1008 decompiler decompile:self to:aStream. |
1000 ^ true |
1009 ^ true |
1001 |
1010 |
1002 "Created: 16.4.1996 / 20:25:40 / cg" |
1011 "Created: 16.4.1996 / 20:25:40 / cg" |
1003 "Modified: 16.4.1996 / 20:31:26 / cg" |
1012 "Modified: 30.7.1997 / 16:37:14 / cg" |
1004 ! |
1013 ! |
1005 |
1014 |
1006 isExecutable |
1015 isExecutable |
1007 "return true, if this method is executable. |
1016 "return true, if this method is executable. |
1008 I.e. neither an invalidated nor an unloaded method" |
1017 I.e. neither an invalidated nor an unloaded method" |
1082 ! ! |
1091 ! ! |
1083 |
1092 |
1084 !CompiledCode class methodsFor:'documentation'! |
1093 !CompiledCode class methodsFor:'documentation'! |
1085 |
1094 |
1086 version |
1095 version |
1087 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.51 1997-07-30 10:56:56 cg Exp $' |
1096 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.52 1997-07-30 14:38:52 cg Exp $' |
1088 ! ! |
1097 ! ! |
1089 CompiledCode initialize! |
1098 CompiledCode initialize! |