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

+ support for bo/bi notation for branches in the assembler reader

Browse Source 
git-svn-id: trunk@2102 -
This commit is contained in:
Jonas Maebe 2006-01-01 13:34:04 +00:00
parent 008da5b11c
commit 365d2892f4
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/powerpc/rappcgas.pas
View File

@ -679,11 +679,29 @@ Unit rappcgas;
procedure tppcattreader.ConvertCalljmp(instr : tppcinstruction);
begin
if instr.Operands[1].opr.typ=OPR_REFERENCE then
if instr.Operands[1].opr.typ = OPR_CONSTANT then
begin
if (instr.operands[1].opr.val > 31) or
(instr.operands[2].opr.typ <> OPR_CONSTANT) or
(instr.operands[2].opr.val > 31) or
not(instr.operands[3].opr.typ in [OPR_REFERENCE,OPR_SYMBOL]) then
Message(asmr_e_syn_operand);
{ BO/BI notation }
instr.condition.simple := false;
instr.condition.bo := instr.operands[1].opr.val;
instr.condition.bi := instr.operands[2].opr.val;
instr.operands[1].free;
instr.operands[2].free;
instr.operands[2] := nil;
instr.operands[1] := instr.operands[3];
instr.operands[3] := nil;
instr.ops := 1;
end;
if instr.Operands[1].opr.typ = OPR_REFERENCE then
begin
instr.Operands[1].opr.ref.refaddr:=addr_full;
if (instr.Operands[1].opr.ref.base<>NR_NO) or
(instr.Operands[1].opr.ref.index<>NR_NO) then
(instr.Operands[1].opr.ref.index<>NR_NO) then
Message(asmr_e_syn_operand);
end;
end;