#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Fri, 25 Oct 2019 12:44:56 +0200
changeset 24865 1aa4c2f1baf3
parent 24864 dd2fb27f5dd0
child 24866 8631f5163be2
#BUGFIX by stefan class: PositionableStream changed: #upTo: include stdlib.h (for bcc)
PositionableStream.st
--- a/PositionableStream.st	Fri Oct 25 12:29:42 2019 +0200
+++ b/PositionableStream.st	Fri Oct 25 12:44:56 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -131,7 +129,6 @@
     ^ self == PositionableStream
 ! !
 
-
 !PositionableStream methodsFor:'Compatibility-Dolphin'!
 
 endChunk
@@ -776,7 +773,8 @@
 upTo:anObject
     |anObjectIsCharacter|
 %{
-#include <sys/types.h>
+
+#include <stdlib.h>
 
     if (__isCharacter(anObject)) {
         unsigned int ch = __intVal(__characterVal(anObject));
@@ -784,7 +782,7 @@
 
         anObjectIsCharacter = true;
 
-        if (__isStringLike(_collection) && ch <= 0xFF) {
+        if (__isStringLike(_coll) && ch <= 0xFF) {
             int _startPos = __intVal(__INST(position));
             int _endIndex = __stringSize(_coll);
             char *startPtr = __stringVal(_coll) + _startPos;
@@ -852,7 +850,7 @@
     "
 
     "Modified: / 22-03-2019 / 03:01:19 / Claus Gittinger"
-    "Modified: / 22-10-2019 / 19:27:35 / Stefan Vogel"
+    "Modified: / 25-10-2019 / 12:30:36 / Stefan Vogel"
 !
 
 upToAll:aCollection