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

* gen of conditional instr updated according to agppcgas

Browse Source 
* gen of PPCAsm command fixed
This commit is contained in:
olle 2004-01-12 00:08:03 +00:00
parent 4a4b8f2a72
commit 6ab944bfcf
1 changed files with 43 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
compiler/powerpc/agppcmpw.pas
View File

@ -239,12 +239,25 @@ var
function cond2str(op: tasmop; c: tasmcond): string; function cond2str(op: tasmop; c: tasmcond): string;
{ note: no checking is performed whether the given combination of } { note: no checking is performed whether the given combination of }
{ conditions is valid } { conditions is valid }
var tempstr: string; var
tempstr: string;
begin begin
tempstr:=#9; tempstr:=#9;
case c.simple of case c.simple of
false: cond2str := tempstr+gas_op2str[op]+#9+tostr(c.bo)+','+ false:
tostr(c.bi); begin
cond2str := tempstr+gas_op2str[op];
case c.dirhint of
DH_None:;
DH_Minus:
cond2str:=cond2str+'-';
DH_Plus:
cond2str:=cond2str+'+';
else
internalerror(2003112901);
end;
cond2str:=cond2str+#9+tostr(c.bo)+','+tostr(c.bi)+',';
end;
true: true:
if (op >= A_B) and (op <= A_BCLRL) then if (op >= A_B) and (op <= A_BCLRL) then
case c.cond of case c.cond of
@ -255,12 +268,24 @@ var
else else
begin begin
tempstr := tempstr+'b'+asmcondflag2str[c.cond]+ tempstr := tempstr+'b'+asmcondflag2str[c.cond]+
branchmode(op)+#9; branchmode(op);
case c.dirhint of
DH_None:
tempstr:=tempstr+#9;
DH_Minus:
tempstr:=tempstr+('-'+#9);
DH_Plus:
tempstr:=tempstr+('+'+#9);
else
internalerror(2003112901);
end;
case c.cond of case c.cond of
C_LT..C_NU: C_LT..C_NU:
cond2str := tempstr+gas_regname(newreg(R_SPECIALREGISTER,c.cr,R_SUBNONE)); // *** R_SUBWHOLE ??? cond2str := tempstr+gas_regname(newreg(R_SPECIALREGISTER,c.cr,R_SUBWHOLE));
C_T..C_DZF: C_T,C_F,C_DNZT,C_DNZF,C_DZT,C_DZF:
cond2str := tempstr+tostr(c.crbit); cond2str := tempstr+tostr(c.crbit);
else
cond2str := tempstr;
end; end;
end; end;
end end
@ -292,7 +317,12 @@ var
A_BL,A_BLA: A_BL,A_BLA:
s:=#9+gas_op2str[op]+#9'.'; s:=#9+gas_op2str[op]+#9'.';
else else
s:=cond2str(op,taicpu(hp).condition)+','; begin
s:=cond2str(op,taicpu(hp).condition);
if (s[length(s)] <> #9) and
(taicpu(hp).ops>0) then
s := s + ',';
end;
end; end;
if (taicpu(hp).oper[0]^.typ <> top_none) then if (taicpu(hp).oper[0]^.typ <> top_none) then
s:=s+getopstr_jmp(taicpu(hp).oper[0]^); s:=s+getopstr_jmp(taicpu(hp).oper[0]^);
@ -1318,7 +1348,7 @@ var
id : as_powerpc_mpw; id : as_powerpc_mpw;
idtxt : 'MPW'; idtxt : 'MPW';
asmbin : 'PPCAsm'; asmbin : 'PPCAsm';
asmcmd : ''; asmcmd : '-case on $ASM -o $OBJ';
supported_target : system_any; { what should I write here ?? } supported_target : system_any; { what should I write here ?? }
outputbinary: false; outputbinary: false;
allowdirect : true; allowdirect : true;
@ -1337,7 +1367,11 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.28 2003-11-12 16:05:40 florian Revision 1.29 2004-01-12 00:08:03 olle
* gen of conditional instr updated according to agppcgas
* gen of PPCAsm command fixed
Revision 1.28 2003/11/12 16:05:40 florian
* assembler readers OOPed * assembler readers OOPed
+ typed currency constants + typed currency constants
+ typed 128 bit float constants if the CPU supports it + typed 128 bit float constants if the CPU supports it