paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:09:33 +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
inherited create;
maxx1:=1;
getmem(fbitmap,sizeof(tinterferencebitmap1)*2);
fillchar(fbitmap^,sizeof(tinterferencebitmap1)*2,0);
fbitmap:=AllocMem(sizeof(tinterferencebitmap1)*2);
end;
@ -1846,6 +1845,7 @@ unit rgobj;
ait_instruction:
with Taicpu(p) do
begin
// writeln(gas_op2str[taicpu(p).opcode]);
current_filepos:=fileinfo;
if instr_spill_register(list,taicpu(p),regs_to_spill_set,spill_temps^) then
spill_registers:=true;