瀏覽代碼

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

Nikolay Nikolov 4 年之前
父節點
當前提交
ac2f299d04
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/wasm32/agllvmmc.pas

+ 4 - 1
compiler/wasm32/agllvmmc.pas

@@ -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;