paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +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;
{ Memory sizes }
heapsize,
stacksize : longint;
{$Ifdef EXTDEBUG}
@ -2128,7 +2129,11 @@ implementation
end.
{
$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
* checkpointer fixes

13
compiler/options.pas
View File

@ -512,6 +512,13 @@ begin
end;
'g' :
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' :
If UnsetBool(More, j) then
exclude(initlocalswitches,cs_check_io)
@ -2107,7 +2114,11 @@ finalization
end.
{
$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
* checkpointer fixes

12
compiler/pmodules.pas
View File

@ -352,12 +352,14 @@ implementation
end;
procedure insertstacklength;
procedure insertmemorysizes;
begin
{ stacksize can be specified and is now simulated }
dataSegment.concat(Tai_align.Create(const_align(4)));
dataSegment.concat(Tai_symbol.Createname_global('__stklen',AT_DATA,4));
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;
@ -1443,7 +1445,7 @@ implementation
insertThreadVarTablesTable;
insertResourceTablesTable;
insertinitfinaltable;
insertstacklength;
insertmemorysizes;
{ create dwarf debuginfo }
create_dwarf;
@ -1506,7 +1508,11 @@ implementation
end.
{
$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
* checkpointer fixes

14
compiler/scandir.pas
View File

@ -549,6 +549,14 @@ implementation
l:=current_scanner.readval;
if l>1024 then
stacksize:=l;
if c=',' then
begin
current_scanner.readchar;
current_scanner.skipspace;
l:=current_scanner.readval;
if l>1024 then
heapsize:=l;
end;
end;
@ -1130,7 +1138,11 @@ begin
end.
{
$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
* checkpointer fixes