Răsfoiți Sursa

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

J. Gareth "Curious Kit" Moreton 2 luni în urmă
părinte
comite
d030c85f12
1 a modificat fișierele cu 1 adăugiri și 0 ștergeri
  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);