paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed lost char after $I directive (merged)

Browse Source
This commit is contained in:
peter 2000-12-12 19:48:52 +00:00
parent 4b7aa484f1
commit 5a1b6aa084
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/scandir.inc
View File

@ -690,6 +690,10 @@ const
path:=current_module^.localincludesearchpath.FindFile(name+ext,found); path:=current_module^.localincludesearchpath.FindFile(name+ext,found);
if (not found) then if (not found) then
path:=includesearchpath.FindFile(name+ext,found); path:=includesearchpath.FindFile(name+ext,found);
{ save old postion and decrease linebreak }
if c=newline then
dec(current_scanner^.line_no);
dec(longint(current_scanner^.inputpointer));
{ shutdown current file } { shutdown current file }
current_scanner^.tempcloseinputfile; current_scanner^.tempcloseinputfile;
{ load new file } { load new file }
@ -1455,7 +1459,10 @@ const
{ {
$Log$ $Log$
Revision 1.12 2000-11-12 22:17:47 peter Revision 1.13 2000-12-12 19:48:52 peter
* fixed lost char after $I directive (merged)
Revision 1.12 2000/11/12 22:17:47 peter
* some realname updates for messages * some realname updates for messages
Revision 1.11 2000/11/04 14:25:21 florian Revision 1.11 2000/11/04 14:25:21 florian