String.st
changeset 7746 4a4208ef7699
parent 7685 535a69a7cd69
child 7774 a9e4385a39a7
--- a/String.st	Tue Nov 11 12:20:45 2003 +0100
+++ b/String.st	Tue Nov 11 14:16:57 2003 +0100
@@ -2633,7 +2633,7 @@
 !
 
 printfPrintString:formatString
-    "non-portable but sometimes useful.
+    "non-standard but sometimes useful.
      Return a printed representation of the receiver as specified by formatString, 
      which is defined by printf.
      No checking on buffer overrun is done; the resulting string may not
@@ -2647,26 +2647,26 @@
     OBJ s;
 
     if (__isString(formatString)) {
-	/*
-	 * actually only needed on sparc: since thisContext is
-	 * in a global register, which gets destroyed by printf,
-	 * manually save it here - very stupid ...
-	 */
-
-	cp = (char *)__stringVal(self);
-	if (__qClass(self) != String)
-	    cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
-
-	__BEGIN_PROTECT_REGISTERS__
-
-	sprintf(buffer, (char *)__stringVal(formatString), cp);
-
-	__END_PROTECT_REGISTERS__
-
-	s = __MKSTRING(buffer COMMA_SND);
-	if (s != nil) {
-	    RETURN (s);
-	}
+        /*
+         * actually only needed on sparc: since thisContext is
+         * in a global register, which gets destroyed by printf,
+         * manually save it here - very stupid ...
+         */
+
+        cp = (char *)__stringVal(self);
+        if (__qClass(self) != String)
+            cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
+
+        __BEGIN_PROTECT_REGISTERS__
+
+        sprintf(buffer, (char *)__stringVal(formatString), cp);
+
+        __END_PROTECT_REGISTERS__
+
+        s = __MKSTRING(buffer COMMA_SND);
+        if (s != nil) {
+            RETURN (s);
+        }
     }
 %}.
     self primitiveFailed
@@ -3152,5 +3152,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.187 2003-10-23 15:44:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.188 2003-11-11 13:16:24 cg Exp $'
 ! !