paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do nothing for macro's in tempcloseinput,tempopeninput

Browse Source
This commit is contained in:
peter 2003-11-12 16:57:59 +00:00
parent 1a3d62baa3
commit 2ebd9f20b5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/scanner.pas
View File

@ -1127,6 +1127,8 @@ implementation
function tscannerfile.tempopeninputfile:boolean;
begin
if inputfile.is_macro then
exit;
tempopeninputfile:=inputfile.tempopen;
{ reload buffer }
inputbuffer:=inputfile.buf;
@ -1137,7 +1139,7 @@ implementation
procedure tscannerfile.tempcloseinputfile;
begin
if inputfile.closed then
if inputfile.closed or inputfile.is_macro then
exit;
inputfile.setpos(inputstart+(inputpointer-inputbuffer));
inputfile.tempclose;
@ -2929,7 +2931,10 @@ exit_label:
end.
{
$Log$
Revision 1.65 2003-11-10 19:08:59 peter
Revision 1.66 2003-11-12 16:57:59 peter
* do nothing for macro's in tempcloseinput,tempopeninput
Revision 1.65 2003/11/10 19:08:59 peter
+ $IF DECLARED() added
Revision 1.64 2003/11/10 19:08:32 peter