Prechádzať zdrojové kódy

* Fixed bug where a TCallParaNode's "originalindex" defaulted to the wrong value when loading from PPU

J. Gareth "Curious Kit" Moreton 2 mesiacov pred
rodič
commit
d030c85f12
1 zmenil súbory, kde vykonal 1 pridanie a 0 odobranie
  1. 1 0
      compiler/ncal.pas

+ 1 - 0
compiler/ncal.pas

@@ -979,6 +979,7 @@ implementation
     constructor tcallparanode.ppuload(t:tnodetype;ppufile:tcompilerppufile);
       begin
         inherited ppuload(t,ppufile);
+        originalindex:=-1;
         ppufile.getset(tppuset1(callparaflags));
         fparainit:=ppuloadnode(ppufile);
         fparacopyback:=ppuloadnode(ppufile);