浏览代码

* Corrected setting of the flag.

Yuriy Sydorov 3 年之前
父节点
当前提交
5b32c81bef
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/nflw.pas

+ 1 - 1
compiler/nflw.pas

@@ -2584,7 +2584,7 @@ implementation
               begin
               begin
                 third:=cinlinenode.create(in_get_frame,false,nil);
                 third:=cinlinenode.create(in_get_frame,false,nil);
                 current_addr:=clabelnode.create(cnothingnode.create,clabelsym.create('$raiseaddr'));
                 current_addr:=clabelnode.create(cnothingnode.create,clabelsym.create('$raiseaddr'));
-                current_addr.toggleflag(nf_internal);
+                include(current_addr.flags,nf_internal);
                 addstatement(statements,current_addr);
                 addstatement(statements,current_addr);
                 right:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));
                 right:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));