Sfoglia il codice sorgente

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

git-svn-id: trunk@34646 -

nickysn 9 anni fa
parent
commit
d28963f434
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      compiler/ngenutil.pas

+ 2 - 2
compiler/ngenutil.pas

@@ -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))