#REFACTORING by exept cvs_MAIN
authorClaus Gittinger <cg@exept.de>
Sun, 23 Feb 2020 14:05:31 +0100
branchcvs_MAIN
changeset 3998 183ab41fbdbd
parent 3997 5bb44f7e1d20
child 3999 d7c199709abd
#REFACTORING by exept class: JavaDecompiler changed: #decompile:to: class: JavaDecompiler class changed: #definitionOf:on: #methodDefinitionOf:inPackage:on:
JavaDecompiler.st
--- a/JavaDecompiler.st	Sun Feb 23 14:03:15 2020 +0100
+++ b/JavaDecompiler.st	Sun Feb 23 14:05:31 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996-2015 by Claus Gittinger
 
@@ -483,7 +485,7 @@
         s space.
     ].
 
-    s nextPutAll:'{'; cr.
+    s nextPutLine:'{'.
 
     needCR := false.
     staticFields := aJavaClass staticFields.
@@ -534,7 +536,7 @@
                 s nextPutAll:' = '; nextPutAll:v displayString.
             ].
 
-            s nextPutAll:';'; cr.
+            s nextPutLine:';'.
             needCR := true.
         ].
     ].
@@ -585,7 +587,7 @@
             (v := aField constantValue) notNil ifTrue:[
                 s nextPutAll:' = '; nextPutAll:v displayString.
             ].
-            s nextPutAll:';'; cr.
+            s nextPutLine:';'.
         ].
     ].
 
@@ -643,7 +645,7 @@
         ]
     ].
 
-    s nextPutAll:'}'; cr.
+    s nextPutLine:'}'.
 
     "Created: / 22-03-1997 / 14:29:37 / cg"
     "Modified: / 05-12-1998 / 15:58:37 / cg"
@@ -720,9 +722,7 @@
                 s nextPutAll: (nm copyReplaceAll: $/ with: $.)
             ]
     ].
-    s
-        nextPutAll: ';';
-        cr.
+    s nextPutLine: ';'
 
     "Created: / 01-08-1997 / 12:24:11 / cg"
     "Modified: / 14-11-1998 / 00:03:09 / cg"
@@ -770,9 +770,9 @@
     endPC == 0 ifTrue:[
         outStream notNil ifTrue:[
             javaMethod isNative ifTrue:[
-                outStream nextPutAll:'// native method'; cr
+                outStream nextPutLine:'// native method'
             ] ifFalse:[
-                outStream nextPutAll:'{}  // no bytecode'; cr
+                outStream nextPutLine:'{}  // no bytecode'
             ].
         ].
         ^ self