diff options
Diffstat (limited to 'compiler/ppcgen')
-rw-r--r-- | compiler/ppcgen/agppcgas.pas | 2 | ||||
-rw-r--r-- | compiler/ppcgen/cgppc.pas | 24 |
2 files changed, 1 insertions, 25 deletions
diff --git a/compiler/ppcgen/agppcgas.pas b/compiler/ppcgen/agppcgas.pas index 806493c463..17190b60d0 100644 --- a/compiler/ppcgen/agppcgas.pas +++ b/compiler/ppcgen/agppcgas.pas @@ -203,7 +203,7 @@ unit agppcgas; top_ref : begin if o.ref^.refaddr<>addr_full then - internalerror(200402262); + internalerror(200402267); hs:=o.ref^.symbol.name; if target_asm.dollarsign<>'$' then hs:=ReplaceForbiddenAsmSymbolChars(hs); diff --git a/compiler/ppcgen/cgppc.pas b/compiler/ppcgen/cgppc.pas index 890cf5bc5f..5a5c11be3c 100644 --- a/compiler/ppcgen/cgppc.pas +++ b/compiler/ppcgen/cgppc.pas @@ -33,7 +33,6 @@ unit cgppc; type tcgppcgen = class(tcg) - procedure a_load_const_cgpara(list: TAsmList; size: tcgsize; a: tcgint; const paraloc : tcgpara); override; procedure a_loadaddr_ref_cgpara(list : TAsmList;const r : treference;const paraloc : tcgpara); override; procedure a_call_reg(list : TAsmList;reg: tregister); override; @@ -191,29 +190,6 @@ unit cgppc; end; - procedure tcgppcgen.a_load_const_cgpara(list: TAsmList; size: tcgsize; a: tcgint; const - paraloc: tcgpara); - var - ref: treference; - begin - paraloc.check_simple_location; - paramanager.allocparaloc(list,paraloc.location); - case paraloc.location^.loc of - LOC_REGISTER, LOC_CREGISTER: - a_load_const_reg(list, size, a, paraloc.location^.register); - LOC_REFERENCE: - begin - reference_reset(ref,paraloc.alignment); - ref.base := paraloc.location^.reference.index; - ref.offset := paraloc.location^.reference.offset; - a_load_const_ref(list, size, a, ref); - end; - else - internalerror(2002081101); - end; - end; - - procedure tcgppcgen.a_loadaddr_ref_cgpara(list : TAsmList;const r : treference;const paraloc : tcgpara); var ref: treference; |