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

* -Ch for heapsize added again

Browse Source 
* __heapsize contains the heapsize
This commit is contained in:
peter 2004-10-26 15:11:01 +00:00
parent ed07ab5f04
commit 759c010f6a
4 changed files with 40 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globals.pas
View File

@ -231,6 +231,7 @@ interface
aktsourcecodepage : tcodepagestring; aktsourcecodepage : tcodepagestring;
{ Memory sizes } { Memory sizes }
heapsize,
stacksize : longint; stacksize : longint;
{$Ifdef EXTDEBUG} {$Ifdef EXTDEBUG}
@ -2128,7 +2129,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.148 2004-10-25 15:38:41 peter Revision 1.149 2004-10-26 15:11:01 peter
* -Ch for heapsize added again
* __heapsize contains the heapsize
Revision 1.148 2004/10/25 15:38:41 peter
* heap and heapsize removed * heap and heapsize removed
* checkpointer fixes * checkpointer fixes

13
compiler/options.pas
View File

@ -512,6 +512,13 @@ begin
end; end;
'g' : 'g' :
include(initmoduleswitches,cs_create_pic); include(initmoduleswitches,cs_create_pic);
'h' :
begin
val(copy(more,j+1,length(more)-j),heapsize,code);
if (code<>0) or (heapsize<1024) then
IllegalPara(opt);
break;
end;
'i' : 'i' :
If UnsetBool(More, j) then If UnsetBool(More, j) then
exclude(initlocalswitches,cs_check_io) exclude(initlocalswitches,cs_check_io)
@ -2107,7 +2114,11 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.149 2004-10-25 15:38:41 peter Revision 1.150 2004-10-26 15:11:01 peter
* -Ch for heapsize added again
* __heapsize contains the heapsize
Revision 1.149 2004/10/25 15:38:41 peter
* heap and heapsize removed * heap and heapsize removed
* checkpointer fixes * checkpointer fixes

12
compiler/pmodules.pas
View File

@ -352,12 +352,14 @@ implementation
end; end;
procedure insertstacklength; procedure insertmemorysizes;
begin begin
{ stacksize can be specified and is now simulated } { stacksize can be specified and is now simulated }
dataSegment.concat(Tai_align.Create(const_align(4))); dataSegment.concat(Tai_align.Create(const_align(4)));
dataSegment.concat(Tai_symbol.Createname_global('__stklen',AT_DATA,4)); dataSegment.concat(Tai_symbol.Createname_global('__stklen',AT_DATA,4));
dataSegment.concat(Tai_const.Create_32bit(stacksize)); dataSegment.concat(Tai_const.Create_32bit(stacksize));
dataSegment.concat(Tai_symbol.Createname_global('__heapsize',AT_DATA,4));
dataSegment.concat(Tai_const.Create_32bit(heapsize));
end; end;
@ -1443,7 +1445,7 @@ implementation
insertThreadVarTablesTable; insertThreadVarTablesTable;
insertResourceTablesTable; insertResourceTablesTable;
insertinitfinaltable; insertinitfinaltable;
insertstacklength; insertmemorysizes;
{ create dwarf debuginfo } { create dwarf debuginfo }
create_dwarf; create_dwarf;
@ -1506,7 +1508,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.167 2004-10-25 15:38:41 peter Revision 1.168 2004-10-26 15:11:01 peter
* -Ch for heapsize added again
* __heapsize contains the heapsize
Revision 1.167 2004/10/25 15:38:41 peter
* heap and heapsize removed * heap and heapsize removed
* checkpointer fixes * checkpointer fixes

14
compiler/scandir.pas
View File

@ -549,6 +549,14 @@ implementation
l:=current_scanner.readval; l:=current_scanner.readval;
if l>1024 then if l>1024 then
stacksize:=l; stacksize:=l;
if c=',' then
begin
current_scanner.readchar;
current_scanner.skipspace;
l:=current_scanner.readval;
if l>1024 then
heapsize:=l;
end;
end; end;
@ -1130,7 +1138,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.45 2004-10-25 15:38:41 peter Revision 1.46 2004-10-26 15:11:01 peter
* -Ch for heapsize added again
* __heapsize contains the heapsize
Revision 1.45 2004/10/25 15:38:41 peter
* heap and heapsize removed * heap and heapsize removed
* checkpointer fixes * checkpointer fixes