From 0d2c1bfd3c48e7e66af7e7a5606e2742354bf12a Mon Sep 17 00:00:00 2001 From: peter Date: Fri, 27 Dec 2002 15:26:43 +0000 Subject: [PATCH] * give an error when no symbol is specified after $if(n)def --- compiler/scanner.pas | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/compiler/scanner.pas b/compiler/scanner.pas index 40ae95118b..6da6effcfe 100644 --- a/compiler/scanner.pas +++ b/compiler/scanner.pas @@ -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