src/JavaClassReader.st
branchjk_new_structure
changeset 782 06d80d58370b
parent 781 d27c59bcf38a
child 784 1f70ce9d0fee
--- a/src/JavaClassReader.st	Fri May 13 15:28:12 2011 +0000
+++ b/src/JavaClassReader.st	Fri May 13 15:31:25 2011 +0000
@@ -1628,7 +1628,8 @@
 
 readConstant_Asciz
     | len  string |
-self halt.
+
+
     len := inStream nextUnsignedShortMSB: msb.
     string := String new: len.
     inStream 
@@ -1648,7 +1649,7 @@
 
     "Created: / 15-04-1996 / 15:15:35 / cg"
     "Modified: / 15-04-1996 / 16:33:45 / cg"
-    "Modified: / 13-05-2011 / 17:10:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 13-05-2011 / 17:31:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
 readConstant_Class
@@ -1911,7 +1912,7 @@
 
 readConstant_String
     | tag  string_index  chars  jString |
-self halt.
+
     string_index := inStream nextUnsignedShortMSB: msb.
     Verbose 
         ifTrue: 
@@ -1940,12 +1941,12 @@
 
     "Created: / 15-04-1996 / 15:20:33 / cg"
     "Modified: / 07-05-1998 / 11:42:45 / cg"
-    "Modified: / 13-05-2011 / 17:09:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 13-05-2011 / 17:31:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
 readConstant_Unicode
     | len  string  ascii |
-self halt.
+
     len := inStream nextUnsignedShortMSB: msb.
     string := TwoByteString new: len.
     1 to: len
@@ -1960,12 +1961,12 @@
                 showCR: string ].
     ^ string
 
-    "Modified: / 13-05-2011 / 17:09:43 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 13-05-2011 / 17:31:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
 readConstant_Utf8
     | len  bytes  string |
-self halt.
+
     len := inStream nextUnsignedShortMSB: msb.
     bytes := ByteArray new: len.
     inStream 
@@ -1981,7 +1982,7 @@
     ^ string
 
     "Modified: / 19-10-2010 / 12:38:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 13-05-2011 / 17:09:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 13-05-2011 / 17:31:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 ! !
 
 !JavaClassReader methodsFor:'file reading - constants-ST'!
@@ -2054,7 +2055,8 @@
 
 readConstant_ST_String
     | tag  string_index  chars |
-self halt.
+
+
     string_index := inStream nextUnsignedShortMSB: msb.
     Verbose 
         ifTrue: 
@@ -2074,12 +2076,13 @@
         stringIndex: string_index
 
     "Created: / 07-05-1998 / 11:49:55 / cg"
-    "Modified: / 13-05-2011 / 17:10:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 13-05-2011 / 17:32:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
 readConstant_ST_Symbol
     | tag  string_index  chars |
-self halt.
+
+
     string_index := inStream nextUnsignedShortMSB: msb.
     Verbose 
         ifTrue: 
@@ -2100,7 +2103,7 @@
         stringIndex: string_index
 
     "Modified: / 07-05-1998 / 11:48:28 / cg"
-    "Modified: / 13-05-2011 / 17:10:21 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 13-05-2011 / 17:32:09 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 ! !
 
 !JavaClassReader methodsFor:'file reading - fields'!