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

* check in CheckLive* if a register allocator is initialized for a certain register type

Browse Source 
git-svn-id: trunk@43665 -
This commit is contained in:
florian 2019-12-08 22:22:17 +00:00
parent eb2c7d2ca5
commit 2a315df80c
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/arm/aoptcpu.pas
View File

@ -2547,7 +2547,7 @@ Implementation
exit;
regtype:=getregtype(reg);
supreg:=getsupreg(reg);
if (cg.rg[regtype].live_end[supreg]=hp1) and
if assigned(cg.rg[regtype]) and (cg.rg[regtype].live_end[supreg]=hp1) and
RegInInstruction(reg,p) then
cg.rg[regtype].live_end[supreg]:=p;
end;
@ -2562,7 +2562,7 @@ Implementation
exit;
regtype:=getregtype(reg);
supreg:=getsupreg(reg);
if (cg.rg[regtype].live_start[supreg]=p) and
if assigned(cg.rg[regtype]) and (cg.rg[regtype].live_start[supreg]=p) and
RegInInstruction(reg,hp1) then
cg.rg[regtype].live_start[supreg]:=hp1;
end;