paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 14:20:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* give an error when no symbol is specified after $if(n)def

Browse Source
This commit is contained in:
peter 2002-12-27 15:26:43 +00:00
parent 39473f1e59
commit 0d2c1bfd3c
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/scanner.pas
View File

@ -262,6 +262,8 @@ implementation
begin
current_scanner.skipspace;
hs:=current_scanner.readid;
if hs='' then
Message(scan_e_error_in_preproc_expr);
mac:=tmacro(current_scanner.macros.search(hs));
if assigned(mac) then
mac.is_used:=true;
@ -276,6 +278,8 @@ implementation
begin
current_scanner.skipspace;
hs:=current_scanner.readid;
if hs='' then
Message(scan_e_error_in_preproc_expr);
mac:=tmacro(current_scanner.macros.search(hs));
if assigned(mac) then
mac.is_used:=true;
@ -2820,7 +2824,10 @@ exit_label:
end.
{
$Log$
Revision 1.52 2002-12-24 23:32:02 peter
Revision 1.53 2002-12-27 15:26:43 peter
* give an error when no symbol is specified after $if(n)def
Revision 1.52 2002/12/24 23:32:02 peter
* support quotes around include filenames
Revision 1.51 2002/12/05 19:27:00 carl