Просмотр исходного кода

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

J. Gareth "Curious Kit" Moreton 2 месяцев назад
Родитель
Сommit
d030c85f12
1 измененных файлов с 1 добавлено и 0 удалено
  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);