Mercurial Mercurial > hg > stx-libcomp / 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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 31 Jan 1996 02:59:59 +0100
changeset 203 cdb7c2257a6b
parent 202 77ac1f0c15df
child 204 13f6731af5b8
*** empty log message ***
Decomp.st file | annotate | diff | comparison | revisions
Decompiler.st file | annotate | diff | comparison | revisions 
--- a/Decomp.st	Tue Jan 30 12:35:38 1996 +0100
+++ b/Decomp.st	Wed Jan 31 02:59:59 1996 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.6 1996-01-17 18:39:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.7 1996-01-31 01:59:59 cg Exp $'
 !
 
 documentation
@@ -156,7 +156,14 @@
 !
 
 showLit:litIndex
-    Transcript show:(literals at:litIndex) storeString
+    |lit|
+
+    lit := literals at:litIndex.
+    lit isBehavior ifTrue:[
+	Transcript show:lit name
+    ] ifFalse:[
+	Transcript show:lit storeString
+    ]
 !
 
 showLit1:ignored
@@ -263,6 +270,7 @@
     index := index + 1.
     self showLiteralAt:index.
     index := index + 1.
+    Transcript show:' '.
     self showLiteralAt:index.
     index := index + 1
 !
--- a/Decompiler.st	Tue Jan 30 12:35:38 1996 +0100
+++ b/Decompiler.st	Wed Jan 31 02:59:59 1996 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.6 1996-01-17 18:39:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.7 1996-01-31 01:59:59 cg Exp $'
 !
 
 documentation
@@ -156,7 +156,14 @@
 !
 
 showLit:litIndex
-    Transcript show:(literals at:litIndex) storeString
+    |lit|
+
+    lit := literals at:litIndex.
+    lit isBehavior ifTrue:[
+	Transcript show:lit name
+    ] ifFalse:[
+	Transcript show:lit storeString
+    ]
 !
 
 showLit1:ignored
@@ -263,6 +270,7 @@
     index := index + 1.
     self showLiteralAt:index.
     index := index + 1.
+    Transcript show:' '.
     self showLiteralAt:index.
     index := index + 1
 !
hg/stx-libcomp