Browse Source

* problem with main file end without newline

pierre 26 years ago
parent
commit
2758e7c639
1 changed files with 10 additions and 2 deletions
  1. 10 2
      compiler/scanner.pas

+ 10 - 2
compiler/scanner.pas

@@ -621,7 +621,12 @@ implementation
                          c:=inputpointer^;
                          c:=inputpointer^;
                          inc(longint(inputpointer));
                          inc(longint(inputpointer));
                        end;
                        end;
-              #0,#26 : reload;
+              #0 : reload;
+              #26 : begin
+                      reload;
+                      if c=#26 then
+                        break;
+                    end;
              #13,#10 : begin
              #13,#10 : begin
                          linebreak;
                          linebreak;
                          break;
                          break;
@@ -1656,7 +1661,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.83  1999-05-20 14:57:29  peter
+  Revision 1.84  1999-05-31 23:28:42  pierre
+   * problem with main file end without newline
+
+  Revision 1.83  1999/05/20 14:57:29  peter
     * fixed line counting with macro's
     * fixed line counting with macro's
 
 
   Revision 1.82  1999/05/04 21:45:04  florian
   Revision 1.82  1999/05/04 21:45:04  florian