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

+ added TWASM32InstrWriter (not yet implemented)

Browse Source 
git-svn-id: branches/wasm@46671 -
This commit is contained in:
nickysn 2020-08-23 17:18:08 +00:00
parent 6759ef3a6c
commit 0c366b33fd
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/wasm32/agllvmmc.pas
View File

@ -40,6 +40,14 @@ interface
TLLVMMachineCodePlaygroundAssembler=class(TGNUassembler)
protected
function sectionname(atype:TAsmSectiontype;const aname:string;aorder:TAsmSectionOrder):string;override;
public
constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override;
end;
{ TWASM32InstrWriter }
TWASM32InstrWriter = class(TCPUInstrWriter)
procedure WriteInstruction(hp : tai);override;
end;
implementation
@ -51,12 +59,29 @@ implementation
{ TLLVMMachineCodePlaygroundAssembler }
function TLLVMMachineCodePlaygroundAssembler.sectionname(atype: TAsmSectiontype; const aname: string; aorder: TAsmSectionOrder): string;
begin
Result:=inherited sectionname(atype, aname, aorder)+',"",@';
end;
constructor TLLVMMachineCodePlaygroundAssembler.CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean);
begin
inherited;
InstrWriter:=TWASM32InstrWriter.create(self);
end;
{ TWASM32InstrWriter }
procedure TWASM32InstrWriter.WriteInstruction(hp: tai);
begin
owner.writer.AsmWriteLn('# TODO: implement TWASM32InstrWriter.WriteInstruction');
end;
const
as_wasm32_llvm_mc_info : tasminfo =
(