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

* call AllocMem instead of GetMem/FillChar

Browse Source 
git-svn-id: trunk@22095 -
This commit is contained in:
florian 2012-08-15 17:47:15 +00:00
parent b26797e818
commit b78f9826fb
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/rgobj.pas
View File

@ -305,8 +305,7 @@ unit rgobj;
begin begin
inherited create; inherited create;
maxx1:=1; maxx1:=1;
getmem(fbitmap,sizeof(tinterferencebitmap1)*2); fbitmap:=AllocMem(sizeof(tinterferencebitmap1)*2);
fillchar(fbitmap^,sizeof(tinterferencebitmap1)*2,0);
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;