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

+ generic stack checking

Browse Source
This commit is contained in:
carl 2002-04-07 17:58:38 +00:00
parent 4cff0f13fd
commit c8b3a5b3db
1 changed files with 9 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
compiler/pmodules.pas
View File

@ -314,36 +314,11 @@ implementation
end;
procedure inserttargetspecific;
procedure insertstacklength;
begin
case target_info.target of
{$ifdef alpha}
target_alpha_linux:
;
{$endif alpha}
{$ifdef powerpc}
target_powerpc_linux:
;
{$endif powerpc}
{$ifdef i386}
target_i386_BeOS,
target_i386_SunOS,
target_i386_GO32V2 :
begin
{ stacksize can be specified }
dataSegment.concat(Tai_symbol.Createdataname_global('__stklen',4));
dataSegment.concat(Tai_const.Create_32bit(stacksize));
end;
{$endif i386}
{$ifdef m68k}
target_m68k_Atari :
begin
{ stacksize can be specified }
dataSegment.concat(Tai_symbol.Createdataname_global('__stklen',4));
dataSegment.concat(Tai_const.Create_32bit(stacksize));
end;
{$endif m68k}
end;
{ stacksize can be specified and is now simulated }
dataSegment.concat(Tai_symbol.Createdataname_global('__stklen',4));
dataSegment.concat(Tai_const.Create_32bit(stacksize));
end;
@ -1380,7 +1355,7 @@ implementation
insertinitfinaltable;
insertheap;
inserttargetspecific;
insertstacklength;
datasize:=symtablestack.datasize;
@ -1428,7 +1403,10 @@ implementation
end.
{
$Log$
Revision 1.58 2002-04-04 19:06:03 peter
Revision 1.59 2002-04-07 17:58:38 carl
+ generic stack checking
Revision 1.58 2002/04/04 19:06:03 peter
* removed unused units
* use tlocation.size in cg.a_*loc*() routines