paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 10:09:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

made m68k to compile again

Browse Source 
git-svn-id: trunk@212 -
This commit is contained in:
Károly Balogh 2005-06-05 13:07:13 +00:00
parent c53b3e5928
commit 62121a9029
5 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/m68k/cgcpu.pas
View File

@ -88,8 +88,8 @@ unit cgcpu;
end;
tcg64f68k = class(tcg64f32)
procedure a_op64_reg_reg(list : taasmoutput;op:TOpCG;regsrc,regdst : tregister64);override;
procedure a_op64_const_reg(list : taasmoutput;op:TOpCG;value : int64;regdst : tregister64);override;
procedure a_op64_reg_reg(list : taasmoutput;op:TOpCG; size: tcgsize; regsrc,regdst : tregister64);override;
procedure a_op64_const_reg(list : taasmoutput;op:TOpCG; size: tcgsize; value : int64;regdst : tregister64);override;
end;
{ This function returns true if the reference+offset is valid.
@ -1200,7 +1200,7 @@ unit cgcpu;
{****************************************************************************}
{ TCG64F68K }
{****************************************************************************}
procedure tcg64f68k.a_op64_reg_reg(list : taasmoutput;op:TOpCG;regsrc,regdst : tregister64);
procedure tcg64f68k.a_op64_reg_reg(list : taasmoutput;op:TOpCG;size: tcgsize; regsrc,regdst : tregister64);
var
hreg1, hreg2 : tregister;
opcode : tasmop;
@ -1262,7 +1262,7 @@ unit cgcpu;
end;
procedure tcg64f68k.a_op64_const_reg(list : taasmoutput;op:TOpCG;value : int64;regdst : tregister64);
procedure tcg64f68k.a_op64_const_reg(list : taasmoutput;op:TOpCG;size: tcgsize; value : int64;regdst : tregister64);
var
lowvalue : cardinal;
highvalue : cardinal;

2
compiler/m68k/n68kmat.pas
View File

@ -114,7 +114,7 @@ implementation
secondpass(left);
location_copy(location,left.location);
location_force_reg(exprasmlist,location,OS_64,false);
cg64.a_op64_loc_reg(exprasmlist,OP_NOT,location,
cg64.a_op64_loc_reg(exprasmlist,OP_NOT,OS_64,location,
joinreg64(location.register64.reglo,location.register64.reghi));
end
else

1
compiler/m68k/rgcpu.pas
View File

@ -20,7 +20,6 @@
****************************************************************************
}
{$i fpcdefs.inc}
unit rgcpu;
{$i fpcdefs.inc}

3
compiler/systems.pas
View File

@ -111,7 +111,8 @@ interface
system_i386_watcom, { 32 }
system_powerpc_MorphOS, { 33 }
system_x86_64_freebsd, { 34 }
system_i386_netwlibc { 35 }
system_i386_netwlibc, { 35 }
system_powerpc_Amiga { 36 }
);
tasm = (as_none

9
compiler/systems/i_amiga.pas
View File

@ -85,7 +85,8 @@ unit i_amiga;
first_parm_offset : 8;
stacksize : 262144;
DllScanSupported:false;
use_function_relative_addresses : true
use_function_relative_addresses : true;
abi : abi_default;
);
system_powerpc_amiga_info : tsysteminfo =
@ -97,8 +98,6 @@ unit i_amiga;
cpu : cpu_powerpc;
unit_env : '';
extradefines : '';
sourceext : '.pp';
pasext : '.pas';
exeext : '';
defext : '.def';
scriptext : '.sh';
@ -117,6 +116,7 @@ unit i_amiga;
staticClibext : '.a';
staticClibprefix : 'lib';
sharedClibprefix : '';
p_ext_support : false;
Cprefix : '';
newline : #10;
dirsep : '/';
@ -147,7 +147,8 @@ unit i_amiga;
first_parm_offset : 8;
stacksize : 262144;
DllScanSupported:false;
use_function_relative_addresses : true
use_function_relative_addresses : true;
abi : abi_powerpc_sysv;
);
implementation