Ver código fonte

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

J. Gareth "Curious Kit" Moreton 1 ano atrás
pai
commit
83f383e004
1 arquivos alterados com 1 adições e 0 exclusões
  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