瀏覽代碼

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

git-svn-id: branches/wasm@48199 -
nickysn 4 年之前
父節點
當前提交
d1c58ccf4b
共有 1 個文件被更改,包括 6 次插入0 次删除
  1. 6 0
      compiler/wasm32/nwasmflw.pas

+ 6 - 0
compiler/wasm32/nwasmflw.pas

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