|
@@ -87,7 +87,7 @@ interface
|
|
|
twasmonnode = class(tcgonnode)
|
|
|
private
|
|
|
procedure pass_generate_code_no_exceptions;
|
|
|
- procedure pass_generate_code_native_exceptions;
|
|
|
+ procedure pass_generate_code_native_legacy_exceptions;
|
|
|
procedure pass_generate_code_bf_exceptions;
|
|
|
public
|
|
|
procedure pass_generate_code;override;
|
|
@@ -1418,7 +1418,7 @@ implementation
|
|
|
internalerror(2021092803);
|
|
|
end;
|
|
|
|
|
|
- procedure twasmonnode.pass_generate_code_native_exceptions;
|
|
|
+ procedure twasmonnode.pass_generate_code_native_legacy_exceptions;
|
|
|
var
|
|
|
exceptvarsym : tlocalvarsym;
|
|
|
exceptlocdef: tdef;
|
|
@@ -1721,7 +1721,7 @@ implementation
|
|
|
if ts_wasm_no_exceptions in current_settings.targetswitches then
|
|
|
pass_generate_code_no_exceptions
|
|
|
else if ts_wasm_native_legacy_exceptions in current_settings.targetswitches then
|
|
|
- pass_generate_code_native_exceptions
|
|
|
+ pass_generate_code_native_legacy_exceptions
|
|
|
else if ts_wasm_bf_exceptions in current_settings.targetswitches then
|
|
|
pass_generate_code_bf_exceptions
|
|
|
else
|