paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 03:00:58 +01:00
Code Issues Packages Projects Releases Wiki Activity

* nicer error message when no id is used after var

Browse Source
This commit is contained in:
peter 1998-05-28 14:35:54 +00:00
parent d1d7fcaba3
commit f793c53486
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/pdecl.pas
View File

@ -1551,6 +1551,10 @@ unit pdecl;
hs:=''; hs:='';
old_block_type:=block_type; old_block_type:=block_type;
block_type:=bt_type; block_type:=bt_type;
{ Force an expected ID error message }
if not (token in [ID,_CASE,_END]) then
consume(ID);
{ read vars }
while (token=ID) and while (token=ID) and
(pattern<>'PUBLIC') and (pattern<>'PUBLIC') and
(pattern<>'PRIVATE') and (pattern<>'PRIVATE') and
@ -1773,7 +1777,10 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.19 1998-05-23 01:21:19 peter Revision 1.20 1998-05-28 14:35:54 peter
* nicer error message when no id is used after var
Revision 1.19 1998/05/23 01:21:19 peter
+ aktasmmode, aktoptprocessor, aktoutputformat + aktasmmode, aktoptprocessor, aktoutputformat
+ smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches + smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches
+ $LIBNAME to set the library name where the unit will be put in + $LIBNAME to set the library name where the unit will be put in