Quellcode durchsuchen

* Fixed bug where the original index of a call
para wasn't copied over during "DoGetCopy"

J. Gareth "Curious Kit" Moreton vor 1 Jahr
Ursprung
Commit
83f383e004
1 geänderte Dateien mit 1 neuen und 0 gelöschten Zeilen
  1. 1 0
      compiler/ncal.pas

+ 1 - 0
compiler/ncal.pas

@@ -1022,6 +1022,7 @@ implementation
            initcopy:=fparainit.getcopy;
          n:=tcallparanode(inherited dogetcopy);
          n.callparaflags:=callparaflags;
+         n.originalindex:=originalindex;
          n.parasym:=parasym;
          n.fparainit:=initcopy;
          if assigned(fparacopyback) then