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

disabled a_loadaddr_ref_cgpara() for m68k, this code was copy-pasted from x86 probably and could never work properly as it is

Browse Source 
git-svn-id: trunk@26462 -
This commit is contained in:
Károly Balogh 2014-01-15 01:27:02 +00:00
parent 2a6e592fba
commit b37ebeaabd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/cgcpu.pas
View File

@ -42,7 +42,7 @@ unit cgcpu;
procedure a_load_reg_cgpara(list : TAsmList;size : tcgsize;r : tregister;const cgpara : tcgpara);override;
procedure a_load_const_cgpara(list : TAsmList;size : tcgsize;a : tcgint;const cgpara : tcgpara);override;
procedure a_load_ref_cgpara(list : TAsmList;size : tcgsize;const r : treference;const cgpara : tcgpara);override;
procedure a_loadaddr_ref_cgpara(list : TAsmList;const r : treference;const cgpara : tcgpara);override;
//procedure a_loadaddr_ref_cgpara(list : TAsmList;const r : treference;const cgpara : tcgpara);override;
procedure a_call_name(list : TAsmList;const s : string; weak: boolean);override;
procedure a_call_reg(list : TAsmList;reg : tregister);override;
@ -364,7 +364,7 @@ unit cgcpu;
inherited a_load_ref_cgpara(list,size,r,cgpara);
end;
{
procedure tcg68k.a_loadaddr_ref_cgpara(list : TAsmList;const r : treference;const cgpara : tcgpara);
var
tmpreg : tregister;
@ -403,7 +403,7 @@ unit cgcpu;
inherited a_loadaddr_ref_cgpara(list,r,cgpara);
end;
end;
}
function tcg68k.fixref(list: TAsmList; var ref: treference): boolean;
var