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

+ for debug purposes print wasm structured instructions in the llvm-mc assembler output

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-10-05 18:27:49 +03:00
parent 0680ea46c8
commit 1a26c0ccfe
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/aggas.pas
View File

@ -1691,6 +1691,34 @@ implementation
writer.AsmWrite(', ');
writer.AsmWriteLn(tai_import_name(hp).importname);
end;
ait_wasm_structured_instruction:
begin
{ What we output for these is not valid llvm-mc output
and we only print it for compiler debug purposes.
These shouldn't be present in the final asmlist. }
if hp is tai_wasmstruc_block then
begin
writer.AsmWriteLn('.err block {');
WriteTree(tai_wasmstruc_block(hp).inner_asmlist);
writer.AsmWriteLn('.err } end block');
end
else if hp is tai_wasmstruc_loop then
begin
writer.AsmWriteLn('.err loop {');
WriteTree(tai_wasmstruc_loop(hp).inner_asmlist);
writer.AsmWriteLn('.err } end loop');
end
else if hp is tai_wasmstruc_if then
begin
writer.AsmWriteLn('.err if {');
WriteTree(tai_wasmstruc_if(hp).then_asmlist);
writer.AsmWriteLn('.err } else {');
WriteTree(tai_wasmstruc_if(hp).else_asmlist);
writer.AsmWriteLn('.err } endif');
end
else
writer.AsmWriteLn('.err structured instruction: ' + taicpu_wasm_structured_instruction(hp).ClassType.ClassName);
end;
{$endif WASM}
else