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

* z80: use the JRJP pseudo instruction to generate shorter code (it is

Browse Source 
translated to JR wherever possible, otherwise to JP)

git-svn-id: trunk@45510 -
This commit is contained in:
nickysn 2020-05-26 19:52:27 +00:00
parent 37a3b542e6
commit d88da03e7d
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

@ -1879,7 +1879,7 @@ unit cgcpu;
var var
ai : taicpu; ai : taicpu;
begin begin
ai:=taicpu.op_sym(A_JP,current_asmdata.RefAsmSymbol(s,AT_FUNCTION)); ai:=taicpu.op_sym(A_JRJP,current_asmdata.RefAsmSymbol(s,AT_FUNCTION));
ai.is_jmp:=true; ai.is_jmp:=true;
list.concat(ai); list.concat(ai);
end; end;
@ -1889,7 +1889,7 @@ unit cgcpu;
var var
ai : taicpu; ai : taicpu;
begin begin
ai:=taicpu.op_sym(A_JP,l); ai:=taicpu.op_sym(A_JRJP,l);
ai.is_jmp:=true; ai.is_jmp:=true;
list.concat(ai); list.concat(ai);
end; end;
@ -1899,7 +1899,7 @@ unit cgcpu;
var var
ai : taicpu; ai : taicpu;
begin begin
ai:=taicpu.op_cond_sym(A_JP,flags_to_cond(f),l); ai:=taicpu.op_cond_sym(A_JRJP,flags_to_cond(f),l);
ai.is_jmp:=true; ai.is_jmp:=true;
list.concat(ai); list.concat(ai);
end; end;