2
0
Эх сурвалжийг харах

* call AllocMem instead of GetMem/FillChar

git-svn-id: trunk@22095 -
florian 13 жил өмнө
parent
commit
b78f9826fb

+ 2 - 2
compiler/rgobj.pas

@@ -305,8 +305,7 @@ unit rgobj;
       begin
       begin
         inherited create;
         inherited create;
         maxx1:=1;
         maxx1:=1;
-        getmem(fbitmap,sizeof(tinterferencebitmap1)*2);
-        fillchar(fbitmap^,sizeof(tinterferencebitmap1)*2,0);
+        fbitmap:=AllocMem(sizeof(tinterferencebitmap1)*2);
       end;
       end;
 
 
 
 
@@ -1846,6 +1845,7 @@ unit rgobj;
               ait_instruction:
               ait_instruction:
                 with Taicpu(p) do
                 with Taicpu(p) do
                   begin
                   begin
+//                    writeln(gas_op2str[taicpu(p).opcode]);
                     current_filepos:=fileinfo;
                     current_filepos:=fileinfo;
                     if instr_spill_register(list,taicpu(p),regs_to_spill_set,spill_temps^) then
                     if instr_spill_register(list,taicpu(p),regs_to_spill_set,spill_temps^) then
                       spill_registers:=true;
                       spill_registers:=true;