* fixed filepos when eof is read, it'll now stay on the eof position

compiler/scanner.pas

@@ -412,6 +412,11 @@ implementation
       begin
         with inputfile^ do
          begin
+           { when nothing more to read then leave immediatly, so we
+             don't change the aktfilepos and leave it point to the last
+             char }
+           if (c=#26) and (not assigned(next)) then
+            exit;
            repeat
            { still more to read?, then change the #0 to a space so its seen
              as a seperator, this can't be used for macro's which can change
@@ -1777,7 +1782,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.103  2000-01-07 01:14:38  peter
+  Revision 1.104  2000-01-30 19:28:25  peter
+    * fixed filepos when eof is read, it'll now stay on the eof position
+
+  Revision 1.103  2000/01/07 01:14:38  peter
     * updated copyright to 2000
 
   Revision 1.102  1999/12/02 17:34:34  peter