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

* heap management corrected (heap_brk)

Browse Source
This commit is contained in:
Tomas Hajny 2002-02-10 13:46:20 +00:00
parent 1cad10952b
commit b1c4768775
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/os2/system.pas
View File

@ -155,6 +155,7 @@ implementation
var
heap_base: pointer; external name '__heap_base';
heap_brk: pointer; external name '__heap_brk';
heap_end: pointer; external name '__heap_end';
procedure DosGetInfoBlocks (PATIB: PPThreadInfoBlock;
PAPIB: PPProcessInfoBlock); cdecl;
@ -181,6 +182,12 @@ external 'DOSCALLS' index 226;
{This is the correct way to call external assembler procedures.}
procedure syscall; external name '___SYSCALL';
{
procedure syscall; external 'EMX' index 2;
procedure emx_init; external 'EMX' index 1;
}
{ converts an OS/2 error code to a TP compatible error }
@ -366,7 +373,7 @@ end ['EAX'];
function getheapsize:longint;assembler;
asm
movl HeapSize,%eax
movl heap_brk,%eax
end ['EAX'];
{$i heap.inc}
@ -990,7 +997,7 @@ begin
{Enable the brk area by initializing it with the initial heap size.}
mov ax, 7F01h
mov edx, HeapSize
mov edx, heap_brk
add edx, heap_base
call syscall
cmp eax, -1
@ -1066,7 +1073,10 @@ begin
end.
{
$Log$
Revision 1.17 2001-11-15 18:49:43 hajny
Revision 1.18 2002-02-10 13:46:20 hajny
* heap management corrected (heap_brk)
Revision 1.17 2001/11/15 18:49:43 hajny
* DefaultTextLineBreakStyle misplacing corrected
Revision 1.16 2001/10/23 21:51:03 peter