* Minor improvement, fix by lagprogramming. Fixes issue #40922

packages/fcl-passrc/src/pscanner.pp

@@ -1365,7 +1365,7 @@ begin
     '/','\': exit;
     '.':
       begin
-      Delete(Result,p,length(Result));
+      SetLength(Result, p-1);
       exit;
       end;
     end;