paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 16:45:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* minor fix in non-default sbrk code

Browse Source
This commit is contained in:
Tomas Hajny 2003-10-19 09:37:00 +00:00
parent fc7111ff4b
commit fd820bd71f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/system.pas
View File

@ -464,9 +464,9 @@ begin
movl size,%edx movl size,%edx
movw $0x7f00,%ax movw $0x7f00,%ax
call syscall { result directly in EAX } call syscall { result directly in EAX }
inc eax { Result in EAX, -1 = error (has to be transformed to 0) } inc %eax { Result in EAX, -1 = error (has to be transformed to 0) }
jz .LSbrk_End jz .LSbrk_End
dec eax { No error - back to previous value } dec %eax { No error - back to previous value }
.LSbrk_End: .LSbrk_End:
mov %eax,L mov %eax,L
end ['eax', 'edx']; end ['eax', 'edx'];
@ -1179,7 +1179,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.49 2003-10-19 09:06:28 hajny Revision 1.50 2003-10-19 09:37:00 hajny
* minor fix in non-default sbrk code
Revision 1.49 2003/10/19 09:06:28 hajny
* fix for terrible long-time bug in do_open * fix for terrible long-time bug in do_open
Revision 1.48 2003/10/18 16:58:39 hajny Revision 1.48 2003/10/18 16:58:39 hajny