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

+ fixed m68k for latest changes

Browse Source 
git-svn-id: trunk@2834 -
This commit is contained in:
Károly Balogh 2006-03-10 14:23:08 +00:00
parent a6c5ca657f
commit 314e1672b7
1 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/m68k/ag68kgas.pas
View File

@ -1,5 +1,5 @@
{
Copyright (c) 1998-2002 by Florian Klaempfl
Copyright (c) 1998-2006 by the Free Pascal development team
This unit implements an asmoutput class for m68k GAS syntax
@ -19,8 +19,6 @@
****************************************************************************
}
{ This unit implements an asmoutput class for i386 AT&T syntax
}
unit ag68kgas;
{$i fpcdefs.inc}
@ -33,8 +31,12 @@ interface
aasmbase,aasmtai,aasmcpu,assemble,aggas;
type
TM68kAssembler=class(TGNUassembler)
public
Tm68kGNUAssembler=class(TGNUassembler)
constructor create(smart: boolean); override;
end;
type
Tm68kInstrWriter=class(TCPUInstrWriter)
procedure WriteInstruction(hp: tai);override;
end;
@ -112,6 +114,17 @@ interface
cgbase,cgutils,
verbose,itcpugas;
{****************************************************************************}
{ GNU m68k Assembler writer }
{****************************************************************************}
constructor Tm68kGNUAssembler.create(smart: boolean);
begin
inherited create(smart);
InstrWriter := Tm68kInstrWriter.create(self);
end;
function getreferencestring(var ref : treference) : string;
var
@ -286,7 +299,7 @@ interface
end;
procedure TM68kAssembler.WriteInstruction(hp: tai);
procedure Tm68kInstrWriter.WriteInstruction(hp: tai);
var
op : tasmop;
s : string;
@ -307,7 +320,7 @@ interface
{ quick hack to overcome a problem with manglednames=255 chars }
if calljmp then
begin
AsmWrite(s+#9);
owner.AsmWrite(s+#9);
s:=getopstr_jmp(taicpu(hp).oper[0]^);
end
else
@ -331,7 +344,7 @@ interface
end;
end;
end;
AsmWriteLn(s);
owner.AsmWriteLn(s);
end;
@ -353,5 +366,5 @@ interface
);
initialization
RegisterAssembler(as_m68k_as_info,TM68kAssembler);
RegisterAssembler(as_m68k_as_info,Tm68kGNUAssembler);
end.