Преглед на файлове

* 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
                 third:=cinlinenode.create(in_get_frame,false,nil);
                 current_addr:=clabelnode.create(cnothingnode.create,clabelsym.create('$raiseaddr'));
-                current_addr.toggleflag(nf_internal);
+                include(current_addr.flags,nf_internal);
                 addstatement(statements,current_addr);
                 right:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));