paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +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

15
rtl/go32v2/initc.pp
View File

@ -32,10 +32,10 @@ implementation
simple_proc = procedure;
var
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';
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';
bss_count : longint;external name '___bss_count';
const
@ -60,7 +60,7 @@ procedure run_c_constructors;
f:=ctor[i];
end;
end;
procedure run_c_destructors;
const
already_done : longint = -1;
@ -80,7 +80,7 @@ procedure run_c_destructors;
f:=dtor[i];
end;
end;
begin
run_c_constructors;
If cardinal(@first_dtor)<>cardinal(@last_dtor) then
@ -95,7 +95,10 @@ end.
{
$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
}