Browse Source

+ override the try finally node for WebAssembly. No functional changes yet.

git-svn-id: branches/wasm@48199 -
nickysn 4 years ago
parent
commit
d1c58ccf4b
1 changed files with 6 additions and 0 deletions
  1. 6 0
      compiler/wasm32/nwasmflw.pas

+ 6 - 0
compiler/wasm32/nwasmflw.pas

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