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

+ (. and .) which are equal to [ and ]

Browse Source
This commit is contained in:
peter 1998-09-04 08:36:06 +00:00
parent df384b0243
commit 86a7e31743
1 changed files with 49 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
compiler/scanner.pas
View File

@ -939,17 +939,23 @@ implementation
l:=do_special;
do_special:=0;
case l of
1 : begin
if c='.' then
begin
1 : begin { first char was a point }
case c of
'.' : begin
readchar;
yylex:=POINTPOINT;
goto exit_label;
end;
')' : begin
readchar;
yylex:=RECKKLAMMER;
goto exit_label;
end;
end;
yylex:=POINT;
goto exit_label;
end;
2 : begin
2 : begin { first char was a Caret }
yylex:=CARET;
readchar;
goto exit_label;
@ -1083,8 +1089,8 @@ implementation
end;
'(' : begin
readchar;
if c='*' then
begin
case c of
'*' : begin
skipoldtpcomment;
{$ifndef TP}
yylex:=yylex();
@ -1093,6 +1099,12 @@ implementation
{$endif}
exit;
end;
'.' : begin
readchar;
yylex:=LECKKLAMMER;
goto exit_label;
end;
end;
yylex:=LKLAMMER;
goto exit_label;
end;
@ -1182,13 +1194,18 @@ implementation
end;
'.' : begin
readchar;
if c='.' then
begin
case c of
'.' : begin
readchar;
yylex:=POINTPOINT;
goto exit_label;
end
else
end;
')' : begin
readchar;
yylex:=RECKKLAMMER;
goto exit_label;
end;
end;
yylex:=POINT;
goto exit_label;
end;
@ -1469,7 +1486,10 @@ exit_label:
end.
{
$Log$
Revision 1.49 1998-09-03 11:24:03 peter
Revision 1.50 1998-09-04 08:36:06 peter
+ (. and .) which are equal to [ and ]
Revision 1.49 1998/09/03 11:24:03 peter
* moved more inputfile things from tscannerfile to tinputfile
* changed ifdef Sourceline to cs_asm_source