paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 04:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove a stupid thing that i commited

Browse Source
This commit is contained in:
carl 2002-12-05 19:27:00 +00:00
parent 361a2f9396
commit e992fd20ab
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -1191,7 +1191,6 @@ implementation
lasttokenpos:=inputstart+(inputpointer-inputbuffer); lasttokenpos:=inputstart+(inputpointer-inputbuffer);
akttokenpos.line:=line_no; akttokenpos.line:=line_no;
akttokenpos.column:=lasttokenpos-lastlinepos; akttokenpos.column:=lasttokenpos-lastlinepos;
if not assigned(inputfile) then RunError(204);
akttokenpos.fileindex:=inputfile.ref_index; akttokenpos.fileindex:=inputfile.ref_index;
aktfilepos:=akttokenpos; aktfilepos:=akttokenpos;
end; end;
@ -2802,7 +2801,10 @@ exit_label:
end. end.
{ {
$Log$ $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 + unimplemented hint directive added
* hint directive parsing implemented * hint directive parsing implemented
* warning on these directives * warning on these directives