Bläddra i källkod

* Corrected setting of the flag.

Yuriy Sydorov 3 år sedan
förälder
incheckning
5b32c81bef
1 ändrade filer med 1 tillägg och 1 borttagningar
  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));