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

* set is_jmp flag correctly

Browse Source 
git-svn-id: trunk@5399 -
This commit is contained in:
florian 2006-11-16 09:43:58 +00:00
parent a1f0fc1e9d
commit 3f77637b56
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/arm/cgcpu.pas
View File

@ -1119,14 +1119,22 @@ unit cgcpu;
procedure tcgarm.a_jmp_name(list : TAsmList;const s : string);
var
ai : taicpu;
begin
list.concat(taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(s)));
ai:=taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(s));
ai.is_jmp:=true;
list.concat(ai);
end;
procedure tcgarm.a_jmp_always(list : TAsmList;l: tasmlabel);
var
ai : taicpu;
begin
list.concat(taicpu.op_sym(A_B,l));
ai:=taicpu.op_sym(A_B,l);
ai.is_jmp:=true;
list.concat(ai);
end;
@ -1349,7 +1357,7 @@ unit cgcpu;
begin
list.concat(taicpu.op_reg_reg_const(A_ADD,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,LocalSize));
end;
regs:=rg[R_INTREGISTER].used_in_proc-paramanager.get_volatile_registers_int(pocall_stdcall);
if (pi_do_call in current_procinfo.flags) or (regs<>[]) then
begin
@ -1558,7 +1566,7 @@ unit cgcpu;
a_load_ref_reg(list,size2opsize[size],size2opsize[size],srcref,r);
list.concat(setoppostfix(taicpu.op_reg_reg_const(A_SUB,countreg,countreg,1),PF_S));
a_load_reg_ref(list,size2opsize[size],size2opsize[size],r,dstref);
list.concat(setcondition(taicpu.op_sym(A_B,l),C_NE));
a_jmp_flags(list,F_NE,l);
srcref.offset:=1;
dstref.offset:=1;
case count mod size of