From c0106fa516f7cebcb05a09d53bdbdd4b0bd3b9a1 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 18 Jan 1999 10:11:10 +0000
Subject: [PATCH]  * sbrk must return -1 on fail

---
 rtl/template/system.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/template/system.pp b/rtl/template/system.pp
index 26c9302dd7..18d0103c48 100644
--- a/rtl/template/system.pp
+++ b/rtl/template/system.pp
@@ -118,7 +118,7 @@ begin
 end;
 
 { function to allocate size bytes more for the program }
-{ must return the first address of new data space or zero if fail }
+{ must return the first address of new data space or -1 if fail }
 function Sbrk(size : longint):longint;{assembler;
 asm
         movl    size,%eax
@@ -127,7 +127,7 @@ asm
         addl    $4,%esp
 end;}
 begin
-  Sbrk:=0;
+  Sbrk:=-1;
 end;
 
 
@@ -274,7 +274,10 @@ Begin
 End.
 {
   $Log$
-  Revision 1.1  1999-01-18 10:07:41  pierre
+  Revision 1.2  1999-01-18 10:11:10  pierre
+   * sbrk must return -1 on fail
+
+  Revision 1.1  1999/01/18 10:07:41  pierre
    Skeleton for new system unit
 
 }