--- a/String.st Fri Jul 01 13:11:37 2016 +0200
+++ b/String.st Tue Jul 05 11:26:10 2016 +0200
@@ -522,6 +522,7 @@
+
!String class methodsFor:'queries'!
defaultPlatformClass
@@ -545,7 +546,6 @@
-
!String methodsFor:'Compatibility-VW5.4'!
asByteString
@@ -565,7 +565,6 @@
"Modified: / 12-01-2011 / 12:33:58 / cg"
! !
-
!String methodsFor:'accessing'!
at:index
@@ -3872,17 +3871,15 @@
REGISTER OBJ slf, cls;
slf = self;
-
cls = __qClass(slf);
if (cls == String) {
- RETURN ( __mkSmallInteger(__stringSize(slf)) );
+ RETURN ( __mkSmallInteger(__stringSize(slf)) );
}
RETURN ( __mkSmallInteger(__stringSize(slf)
- - __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars))));
+ - __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars))));
#endif
%}.
^ super basicSize - 1
-
!
bitsPerCharacter