#REFACTORING
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 14:37:56 +0100
changeset 19420 e2578414e873
parent 19419 362d601fee24
child 19421 08358cad9dbe
#REFACTORING class: CharacterArray changed: #asByteArray (send #unsignedInt16At:put: instead of #unsignedShortAt:put:, send #unsignedInt32At:put: instead of #unsignedLongAt:put:)
CharacterArray.st
--- a/CharacterArray.st	Wed Mar 23 14:36:17 2016 +0100
+++ b/CharacterArray.st	Wed Mar 23 14:37:56 2016 +0100
@@ -320,7 +320,6 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
-
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -364,7 +363,6 @@
     "
 ! !
 
-
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -770,7 +768,6 @@
     ^ Unicode32String
 ! !
 
-
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -2783,10 +2780,10 @@
 
         code := char codePoint.
         bytesPerCharacter == 2 ifTrue:[
-            bytes unsignedShortAt:idx put:code
+            bytes unsignedInt16At:idx put:code
         ] ifFalse:[
             bytesPerCharacter == 4 ifTrue:[
-                bytes unsignedLongAt:idx put:code
+                bytes unsignedInt32At:idx put:code
             ] ifFalse:[
                 bytes at:idx put:code
             ].
@@ -4453,8 +4450,6 @@
 ! !
 
 
-
-
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -5840,7 +5835,6 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
-
 !CharacterArray methodsFor:'special string converting'!
 
 asUnixFilenameString
@@ -6878,7 +6872,6 @@
     "
 ! !
 
-
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -7630,7 +7623,6 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
-
 !CharacterArray class methodsFor:'documentation'!
 
 version