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

* nice-ified

Browse Source
This commit is contained in:
olle 2003-09-12 12:33:43 +00:00
parent e313062d0b
commit 615792ffe9
1 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/win32/system.pp
View File

@ -52,10 +52,10 @@ type
const
{ Default filehandles }
UnusedHandle : longint = -1;
StdInputHandle : longint = 0;
StdOutputHandle : longint = 0;
StdErrorHandle : longint = 0;
UnusedHandle : Longint = -1;
StdInputHandle : Longint = 0;
StdOutputHandle : Longint = 0;
StdErrorHandle : Longint = 0;
FileNameCaseSensitive : boolean = true;
@ -257,13 +257,15 @@ var
heap : longint;external name 'HEAP';
intern_heapsize : longint;external name 'HEAPSIZE';
function getheapstart:pointer;assembler;
function getheapstart:pointer;
assembler;
asm
leal HEAP,%eax
end ['EAX'];
function getheapsize:longint;assembler;
function getheapsize:longint;
assembler;
asm
movl intern_HEAPSIZE,%eax
end ['EAX'];
@ -1528,7 +1530,10 @@ end.
{
$Log$
Revision 1.40 2003-01-01 20:56:57 florian
Revision 1.41 2003-09-12 12:33:43 olle
* nice-ified
Revision 1.40 2003/01/01 20:56:57 florian
+ added invalid instruction exception
Revision 1.39 2002/12/24 15:35:15 peter