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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 02 Jul 1997 16:46:26 +0200
changeset 573 7aadeb921f21
parent 572 6608880c73bc
child 574 993d1182782b
checkin from browser
Decomp.st file | annotate | diff | comparison | revisions
Decompiler.st file | annotate | diff | comparison | revisions 
--- a/Decomp.st	Tue Jul 01 19:07:54 1997 +0200
+++ b/Decomp.st	Wed Jul 02 16:46:26 1997 +0200
@@ -253,7 +253,7 @@
 showLit:litIndex
     |lit|
 
-    lit := literals at:litIndex.
+    lit := literals at:litIndex ifAbsent:'*** badIndex ***'.
     lit isBehavior ifTrue:[
         listStream show:lit name
     ] ifFalse:[
@@ -264,7 +264,7 @@
         ]
     ]
 
-    "Modified: 16.4.1996 / 20:28:19 / cg"
+    "Modified: 2.7.1997 / 11:35:42 / cg"
 !
 
 showLiteral16:byte
@@ -978,7 +978,7 @@
                 instvarIndex
                 literal         " 40 "
                 literal     
-                indexLevel
+                levelIndex
                 index
                 index
                 nil             " 45 "
@@ -1064,8 +1064,8 @@
                 index           " 125 "
                 index
                 number
-                levelIndex "/ indexLevel
-                indexLevel
+                levelIndex 
+                levelIndex
                 nil             " 130 "
                 nil
                 nil
@@ -1131,7 +1131,7 @@
                 absOffset
                 absOffset
                 absOffset
-                absOffsetLevel
+                absOffsetLevel  " 195 "
                 absOffset
                 absOffset
                 absOffset
@@ -1190,11 +1190,11 @@
     ^ syms at:(aByte + 1)
 
     "Modified: 2.9.1995 / 00:12:11 / claus"
-    "Modified: 25.6.1997 / 12:14:04 / cg"
+    "Modified: 2.7.1997 / 16:45:30 / cg"
 ! !
 
 !Decompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.27 1997-06-25 10:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/Decomp.st,v 1.28 1997-07-02 14:46:26 cg Exp $'
 ! !
--- a/Decompiler.st	Tue Jul 01 19:07:54 1997 +0200
+++ b/Decompiler.st	Wed Jul 02 16:46:26 1997 +0200
@@ -253,7 +253,7 @@
 showLit:litIndex
     |lit|
 
-    lit := literals at:litIndex.
+    lit := literals at:litIndex ifAbsent:'*** badIndex ***'.
     lit isBehavior ifTrue:[
         listStream show:lit name
     ] ifFalse:[
@@ -264,7 +264,7 @@
         ]
     ]
 
-    "Modified: 16.4.1996 / 20:28:19 / cg"
+    "Modified: 2.7.1997 / 11:35:42 / cg"
 !
 
 showLiteral16:byte
@@ -978,7 +978,7 @@
                 instvarIndex
                 literal         " 40 "
                 literal     
-                indexLevel
+                levelIndex
                 index
                 index
                 nil             " 45 "
@@ -1064,8 +1064,8 @@
                 index           " 125 "
                 index
                 number
-                levelIndex "/ indexLevel
-                indexLevel
+                levelIndex 
+                levelIndex
                 nil             " 130 "
                 nil
                 nil
@@ -1131,7 +1131,7 @@
                 absOffset
                 absOffset
                 absOffset
-                absOffsetLevel
+                absOffsetLevel  " 195 "
                 absOffset
                 absOffset
                 absOffset
@@ -1190,11 +1190,11 @@
     ^ syms at:(aByte + 1)
 
     "Modified: 2.9.1995 / 00:12:11 / claus"
-    "Modified: 25.6.1997 / 12:14:04 / cg"
+    "Modified: 2.7.1997 / 16:45:30 / cg"
 ! !
 
 !Decompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.27 1997-06-25 10:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.28 1997-07-02 14:46:26 cg Exp $'
 ! !
hg/stx-libcomp