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

+ declare __FPC_exception as a label, otherwise wasm-ld crashes

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-18 01:46:45 +03:00
parent 8ad5362b17
commit ac2f299d04
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/wasm32/agllvmmc.pas
View File

@ -157,7 +157,10 @@ implementation
{ print all global procedures/functions } { print all global procedures/functions }
WriteImports; WriteImports;
if ts_wasm_native_exceptions in current_settings.targetswitches then if ts_wasm_native_exceptions in current_settings.targetswitches then
writer.AsmWriteLn(#9'.tagtype'#9'__FPC_exception'); begin
writer.AsmWriteLn(#9'.tagtype'#9'__FPC_exception');
writer.AsmWriteLn('__FPC_exception:');
end;
inherited; inherited;
end; end;