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

+ a_call_reg

Browse Source
This commit is contained in:
carl 2002-09-22 14:15:31 +00:00
parent 8733061c78
commit 4be0f8c217
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/m68k/cgcpu.pas
View File

@ -176,6 +176,12 @@ Implementation
tmpreg: tregister; tmpreg: tregister;
begin begin
result := false; result := false;
{ The Coldfire and MC68020+ have extended
addressing capabilities with a 32-bit
displacement.
}
if (aktoptprocessor <> MC68000) then
exit;
if (ref.base <> R_NO) then if (ref.base <> R_NO) then
begin begin
if (ref.index <> R_NO) and assigned(ref.symbol) then if (ref.index <> R_NO) and assigned(ref.symbol) then
@ -227,7 +233,7 @@ Implementation
href : treference; href : treference;
begin begin
reference_reset_base(href, reg, 0); reference_reset_base(href, reg, 0);
a_call_ref(href); a_call_ref(list,href);
end; end;
@ -1244,7 +1250,10 @@ end.
{ {
$Log$ $Log$
Revision 1.9 2002-09-17 18:54:05 jonas Revision 1.10 2002-09-22 14:15:31 carl
+ a_call_reg
Revision 1.9 2002/09/17 18:54:05 jonas
* a_load_reg_reg() now has two size parameters: source and dest. This * a_load_reg_reg() now has two size parameters: source and dest. This
allows some optimizations on architectures that don't encode the allows some optimizations on architectures that don't encode the
register size in the register name. register size in the register name.