paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-10 14:18:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Ignore NR_DEFAULTFLAGS for ait_regalloc, because there is no default flags for JVM

Browse Source
This commit is contained in:
Pierre Muller 2022-01-05 16:41:22 +00:00
parent c06a3f2ca3
commit abee4d46b6
1 changed files with 42 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/rgcpu.pas
View File

@ -361,6 +361,9 @@ implementation
case p.typ of
ait_regalloc:
with Tai_regalloc(p) do
begin
{ NR_DEFAULTFLAGS is NR_NO for JVM CPU }
if (reg<>NR_DEFAULTFLAGS) then
begin
case getregtype(reg) of
R_INTREGISTER:
@ -402,6 +405,7 @@ implementation
p.free;
p:=q;
end;
end;
ait_instruction:
do_spill_replace_all(list,taicpu(p),spill_temps);
else