paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* emit the heap and stack sizes via Tai_const.Create_int_dataptr, instead of

Browse Source 
using create_pint

git-svn-id: trunk@34646 -
This commit is contained in:
nickysn 2016-10-07 20:58:50 +00:00
parent 7d15b688e8
commit d28963f434
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ngenutil.pas
View File

@ -1377,7 +1377,7 @@ implementation
begin
{ stacksize can be specified and is now simulated }
tcb:=ctai_typedconstbuilder.create([tcalo_new_section,tcalo_make_dead_strippable]);
tcb.emit_tai(Tai_const.Create_pint(stacksize),ptruinttype);
tcb.emit_tai(Tai_const.Create_int_dataptr(stacksize),ptruinttype);
sym:=current_asmdata.DefineAsmSymbol('__stklen',AB_GLOBAL,AT_DATA,ptruinttype);
current_asmdata.asmlists[al_globals].concatlist(
tcb.get_final_asmlist(sym,ptruinttype,sec_data,'__stklen',sizeof(pint))
@ -1407,7 +1407,7 @@ implementation
{$ENDIF POWERPC}
{ Initial heapsize }
tcb:=ctai_typedconstbuilder.create([tcalo_new_section,tcalo_make_dead_strippable]);
tcb.emit_tai(Tai_const.Create_pint(heapsize),ptruinttype);
tcb.emit_tai(Tai_const.Create_int_dataptr(heapsize),ptruinttype);
sym:=current_asmdata.DefineAsmSymbol('__heapsize',AB_GLOBAL,AT_DATA,ptruinttype);
current_asmdata.asmlists[al_globals].concatlist(
tcb.get_final_asmlist(sym,ptruinttype,sec_data,'__heapsize',sizeof(pint))