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

* fixed ppc compilation

Browse Source
This commit is contained in:
florian 2004-03-06 21:37:45 +00:00
parent 10e765329d
commit 8cdd1af070
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/powerpc/cgcpu.pas
View File

@ -76,6 +76,7 @@ unit cgcpu;
l : tasmlabel);override;
procedure a_cmp_reg_reg_label(list : taasmoutput;size : tcgsize;cmp_op : topcmp;reg1,reg2 : tregister;l : tasmlabel); override;
procedure a_jmp_name(list : taasmoutput;const s : string); override;
procedure a_jmp_always(list : taasmoutput;l: tasmlabel); override;
procedure a_jmp_flags(list : taasmoutput;const f : TResFlags;l: tasmlabel); override;
@ -848,6 +849,17 @@ const
a_jmp(list,A_BC,TOpCmp2AsmCond[cond],0,l);
end;
procedure tcgppc.a_jmp_name(list : taasmoutput;const s : string);
var
p : taicpu;
begin
p := taicpu.op_sym(A_B,objectlibrary.newasmsymbol(s,AB_EXTERNAL,AT_FUNCTION));
p.is_jmp := true;
list.concat(p)
end;
procedure tcgppc.a_jmp_always(list : taasmoutput;l: tasmlabel);
begin
@ -2339,7 +2351,10 @@ begin
end.
{
$Log$
Revision 1.167 2004-03-02 17:48:32 florian
Revision 1.168 2004-03-06 21:37:45 florian
* fixed ppc compilation
Revision 1.167 2004/03/02 17:48:32 florian
* got entry code fixed
Revision 1.166 2004/03/02 17:32:12 florian