Avoid range check error in ReadPosInfo

git-svn-id: trunk@40115 -

compiler/utils/ppuutils/ppudump.pp

@@ -1059,7 +1059,7 @@ begin
      Writeln([fileindex,' (',line,',',column,')']);
      if Def <> nil then
        begin
-         Def.FilePos.FileIndex:=fileindex - 1;
+         Def.FilePos.FileIndex:=fileindex;
          Def.FilePos.Line:=line;
          Def.FilePos.Col:=column;
        end;