paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* sbrk error handling corrected

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-13 21:24:04 +00:00
parent 53837eb907
commit 64b073a5cd
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/unix/sysunix.inc
View File

@ -162,10 +162,11 @@ end;
Function sbrk(size : longint) : pointer; Function sbrk(size : longint) : pointer;
var address:longint;
begin begin
sbrk:=pointer(Sys_mmap(0,Size,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0)); address:=Sys_mmap(0,Size,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0);
if sbrk<>nil then if addres=-1 then inc(address) else errno := 0;
errno:=0; sbrk:=pointer(address);
end; end;
@ -803,7 +804,10 @@ End.
{ {
$Log$ $Log$
Revision 1.34 2003-09-27 11:52:36 peter Revision 1.35 2003-10-13 21:24:04 hajny
* sbrk error handling corrected
Revision 1.34 2003/09/27 11:52:36 peter
* sbrk returns pointer * sbrk returns pointer
Revision 1.33 2003/09/03 14:09:37 florian Revision 1.33 2003/09/03 14:09:37 florian