Sfoglia il codice sorgente

* remove a stupid thing that i commited

carl 22 anni fa
parent
commit
e992fd20ab
1 ha cambiato i file con 4 aggiunte e 2 eliminazioni
  1. 4 2
      compiler/scanner.pas

+ 4 - 2
compiler/scanner.pas

@@ -1191,7 +1191,6 @@ implementation
         lasttokenpos:=inputstart+(inputpointer-inputbuffer);
         akttokenpos.line:=line_no;
         akttokenpos.column:=lasttokenpos-lastlinepos;
-        if not assigned(inputfile) then RunError(204);
         akttokenpos.fileindex:=inputfile.ref_index;
         aktfilepos:=akttokenpos;
       end;
@@ -2802,7 +2801,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.50  2002-11-29 22:31:19  carl
+  Revision 1.51  2002-12-05 19:27:00  carl
+    * remove a stupid thing that i commited
+
+  Revision 1.50  2002/11/29 22:31:19  carl
     + unimplemented hint directive added
     * hint directive parsing implemented
     * warning on these directives