paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-12 10:30:38 +01: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; 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
@ -60,7 +60,7 @@ procedure run_c_constructors;
f:=ctor[i]; f:=ctor[i];
end; end;
end; end;
procedure run_c_destructors; procedure run_c_destructors;
const const
already_done : longint = -1; already_done : longint = -1;
@ -80,7 +80,7 @@ procedure run_c_destructors;
f:=dtor[i]; f:=dtor[i];
end; end;
end; end;
begin begin
run_c_constructors; run_c_constructors;
If cardinal(@first_dtor)<>cardinal(@last_dtor) then If cardinal(@first_dtor)<>cardinal(@last_dtor) then
@ -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
} }