|
@@ -51,6 +51,11 @@ type
|
|
procedure pass_generate_code;override;
|
|
procedure pass_generate_code;override;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+ { twasmtryfinallynode }
|
|
|
|
+
|
|
|
|
+ twasmtryfinallynode = class(tcgtryfinallynode)
|
|
|
|
+ end;
|
|
|
|
+
|
|
implementation
|
|
implementation
|
|
|
|
|
|
uses
|
|
uses
|
|
@@ -190,4 +195,5 @@ end;
|
|
initialization
|
|
initialization
|
|
cifnode:=twasmifnode;
|
|
cifnode:=twasmifnode;
|
|
cwhilerepeatnode:=twasmwhilerepeatnode;
|
|
cwhilerepeatnode:=twasmwhilerepeatnode;
|
|
|
|
+ ctryfinallynode:=twasmtryfinallynode;
|
|
end.
|
|
end.
|