# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1572000296 -7200
# Node ID 1aa4c2f1baf350aa7efee92887b1140b098a5863
# Parent  dd2fb27f5dd03cb1e8e5bb9d91483b0182073da8
#BUGFIX by stefan
class: PositionableStream
changed: #upTo:
    include stdlib.h (for bcc)

diff -r dd2fb27f5dd0 -r 1aa4c2f1baf3 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