Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 30 Jul 1997 16:38:52 +0200
changeset 2810 fd62b379212a
parent 2809 b8f6c655a6db
child 2811 21136662e8f1
checkin from browser
CompCode.st file | annotate | diff | comparison | revisions
CompiledCode.st file | annotate | diff | comparison | revisions 
--- a/CompCode.st	Wed Jul 30 15:02:24 1997 +0200
+++ b/CompCode.st	Wed Jul 30 16:38:52 1997 +0200
@@ -245,6 +245,12 @@
     "Modified: 4.7.1996 / 11:12:39 / cg"
 !
 
+decompiler
+    ^ Decompiler
+
+    "Created: 30.7.1997 / 16:36:40 / cg"
+!
+
 do:aBlock
     "same as #literalsDo:, in order to get common protocol with Array"
 
@@ -985,22 +991,25 @@
 !CompiledCode methodsFor:'queries'!
 
 decompileTo:aStream
-    Decompiler notNil ifTrue:[
+    |decompiler|
+
+    decompiler := self decompiler.
+    decompiler notNil ifTrue:[
         Autoload autoloadFailedSignal handle:[:ex |
             ex return
         ] do:[
-            Decompiler autoload.
+            decompiler autoload.
         ].
     ].
-    (Decompiler isNil or:[Decompiler isLoaded not]) ifTrue:[
+    (decompiler isNil or:[decompiler isLoaded not]) ifTrue:[
         ^ false
     ].
 
-    Decompiler decompile:self to:aStream.
+    decompiler decompile:self to:aStream.
     ^ true
 
     "Created: 16.4.1996 / 20:25:40 / cg"
-    "Modified: 16.4.1996 / 20:31:26 / cg"
+    "Modified: 30.7.1997 / 16:37:14 / cg"
 !
 
 isExecutable
@@ -1084,6 +1093,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.51 1997-07-30 10:56:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CompCode.st,v 1.52 1997-07-30 14:38:52 cg Exp $'
 ! !
 CompiledCode initialize!
--- a/CompiledCode.st	Wed Jul 30 15:02:24 1997 +0200
+++ b/CompiledCode.st	Wed Jul 30 16:38:52 1997 +0200
@@ -245,6 +245,12 @@
     "Modified: 4.7.1996 / 11:12:39 / cg"
 !
 
+decompiler
+    ^ Decompiler
+
+    "Created: 30.7.1997 / 16:36:40 / cg"
+!
+
 do:aBlock
     "same as #literalsDo:, in order to get common protocol with Array"
 
@@ -985,22 +991,25 @@
 !CompiledCode methodsFor:'queries'!
 
 decompileTo:aStream
-    Decompiler notNil ifTrue:[
+    |decompiler|
+
+    decompiler := self decompiler.
+    decompiler notNil ifTrue:[
         Autoload autoloadFailedSignal handle:[:ex |
             ex return
         ] do:[
-            Decompiler autoload.
+            decompiler autoload.
         ].
     ].
-    (Decompiler isNil or:[Decompiler isLoaded not]) ifTrue:[
+    (decompiler isNil or:[decompiler isLoaded not]) ifTrue:[
         ^ false
     ].
 
-    Decompiler decompile:self to:aStream.
+    decompiler decompile:self to:aStream.
     ^ true
 
     "Created: 16.4.1996 / 20:25:40 / cg"
-    "Modified: 16.4.1996 / 20:31:26 / cg"
+    "Modified: 30.7.1997 / 16:37:14 / cg"
 !
 
 isExecutable
@@ -1084,6 +1093,6 @@
 !CompiledCode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.51 1997-07-30 10:56:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.52 1997-07-30 14:38:52 cg Exp $'
 ! !
 CompiledCode initialize!
hg/stx-libbasic