paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-28 10:21:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed memw and meml array sizes

Browse Source
This commit is contained in:
peter 2002-05-05 10:23:54 +00:00
parent a754062866
commit 1cd2d7afdd
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/go32v2/system.pp
View File

@ -69,8 +69,8 @@ const
var
{ Mem[] support }
mem : array[0..$7fffffff] of byte absolute $0:$0;
memw : array[0..$7fffffff] of word absolute $0:$0;
meml : array[0..$7fffffff] of longint absolute $0:$0;
memw : array[0..$7fffffff div sizeof(word)] of word absolute $0:$0;
meml : array[0..$7fffffff div sizeof(longint)] of longint absolute $0:$0;
{ C-compatible arguments and environment }
argc : longint;
argv : ppchar;
@ -1482,7 +1482,7 @@ end;
var
temp_int : tseginfo;
Begin
StackBottom := __stkbottom;
StackBottom := __stkbottom;
{ To be set if this is a GUI or console application }
IsConsole := TRUE;
{ To be set if this is a library and not a program }
@ -1529,7 +1529,10 @@ Begin
End.
{
$Log$
Revision 1.17 2002-04-21 15:52:58 carl
Revision 1.18 2002-05-05 10:23:54 peter
* fixed memw and meml array sizes
Revision 1.17 2002/04/21 15:52:58 carl
+ initialize some global variables
Revision 1.16 2002/04/12 17:34:05 carl