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

* fixed too large arrays

Browse Source
This commit is contained in:
peter 2002-04-26 13:19:56 +00:00
parent cc8c4d7093
commit 99ef970960
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/initc.pp
View File

@ -32,10 +32,10 @@ implementation
simple_proc = procedure; simple_proc = procedure;
var var
first_ctor : longint;external name 'djgpp_first_ctor'; first_ctor : longint;external name 'djgpp_first_ctor';
ctor : array [0..maxlongint] of simple_proc;external name 'djgpp_first_ctor'; ctor : array [0..maxlongint div sizeof(simple_proc)] of simple_proc;external name 'djgpp_first_ctor';
last_ctor : longint;external name 'djgpp_last_ctor'; last_ctor : longint;external name 'djgpp_last_ctor';
first_dtor : longint;external name 'djgpp_first_dtor'; first_dtor : longint;external name 'djgpp_first_dtor';
dtor : array [0..maxlongint] of simple_proc;external name 'djgpp_first_dtor'; dtor : array [0..maxlongint div sizeof(simple_proc)] of simple_proc;external name 'djgpp_first_dtor';
last_dtor : longint;external name 'djgpp_last_dtor'; last_dtor : longint;external name 'djgpp_last_dtor';
bss_count : longint;external name '___bss_count'; bss_count : longint;external name '___bss_count';
const const
@ -95,7 +95,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:40 michael Revision 1.3 2002-04-26 13:19:56 peter
* fixed too large arrays
Revision 1.2 2000/07/13 11:33:40 michael
+ removed logs + removed logs
} }