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

+ actually return the proper (HL) reference result in tcgz80.normalize_ref

Browse Source 
git-svn-id: branches/z80@44893 -
This commit is contained in:
nickysn 2020-04-20 20:49:45 +00:00
parent 5c138c341f
commit 0d6e59e9ef
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/z80/cgcpu.pas
View File

@ -1209,9 +1209,8 @@ unit cgcpu;
end; end;
function tcgz80.normalize_ref(list: TAsmList; ref: treference; function tcgz80.normalize_ref(list: TAsmList; ref: treference;
const refopertypes: trefoperandtypes; out allocatedregs: tregisterlist const refopertypes: trefoperandtypes; out allocatedregs: tregisterlist): treference;
): treference;
var var
tmpref : treference; tmpref : treference;
l : tasmlabel; l : tasmlabel;
@ -1272,6 +1271,7 @@ unit cgcpu;
emit_mov(list,NR_H,NR_A); emit_mov(list,NR_H,NR_A);
ungetcpuregister(list,NR_A); ungetcpuregister(list,NR_A);
end; end;
reference_reset_base(result,NR_HL,0,ctempposinvalid,0,[]);
end end
else else
internalerror(2020042001); internalerror(2020042001);