paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 23:30:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ c styled comments

Browse Source
This commit is contained in:
florian 1999-02-02 00:15:09 +00:00
parent a6c6180e4c
commit 1941182a11
2 changed files with 60 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/readme
View File

@ -15,4 +15,6 @@ Changes in the syntax or semantic of FPC:
-----------------------------------------
28/01/99 : implicit conversion from boolean to integer is not possible
anymore (solved several bugs) but this could lead to errors
on previously accepted code (PM)
on previously accepted code (PM)
01/02/99: c styled comments are supported (/* ... */), mainly
for the Sibyl sources of Medigo (FK)

58
compiler/scanner.pas
View File

@ -109,6 +109,7 @@ unit scanner;
procedure skipcomment;
procedure skipdelphicomment;
procedure skipoldtpcomment;
procedure skipccomment;
procedure readtoken;
function readpreproc:ttoken;
function asmgetchar:char;
@ -921,6 +922,53 @@ implementation
end;
end;
procedure tscannerfile.skipccomment;
var
found : longint;
begin
inc_comment_level;
readchar;
{ this is currently not supported }
if c='$' then
Message(scan_e_wrong_styled_switch);
{ skip comment }
while (comment_level>0) do
begin
found:=0;
repeat
case c of
#26 : Message(scan_f_end_of_file);
'*' : begin
if found=3 then
inc_comment_level
else
found:=1;
end;
'/' : begin
if found=1 then
begin
dec_comment_level;
if comment_level=0 then
found:=2;
end
else found:=3;
end;
else
found:=0;
end;
c:=inputpointer^;
if c=#0 then
reload
else
inc(longint(inputpointer));
case c of
#26 : reload;
#10,
#13 : linebreak;
end;
until (found=2);
end;
end;
procedure tscannerfile.readtoken;
var
@ -1198,6 +1246,11 @@ implementation
readtoken;
exit;
end;
'*' : begin
skipccomment;
readtoken;
exit;
end;
end;
token:=SLASH;
goto exit_label;
@ -1506,7 +1559,10 @@ begin
end.
{
$Log$
Revision 1.71 1999-01-27 13:05:45 pierre
Revision 1.72 1999-02-02 00:15:10 florian
+ c styled comments
Revision 1.71 1999/01/27 13:05:45 pierre
* give include file name on error
Revision 1.70 1999/01/19 12:14:38 peter