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

* Fixed bug in readcomment that was dropping * characters

Browse Source
This commit is contained in:
michael 2000-04-08 20:18:53 +00:00
parent 858c472369
commit 10b7a3ccbe
2 changed files with 42 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/scandir.inc
View File

@ -765,7 +765,16 @@ const
s : string; s : string;
begin begin
current_scanner^.skipspace; current_scanner^.skipspace;
s:=AddExtension(FixFileName(current_scanner^.readcomment),target_info.resext); s:=current_scanner^.readcomment;
{ replace * with current module name.
This should always be defined. }
if s[1]='*' then
if Assigned(Current_Module) then
begin
delete(S,1,1);
insert(lower(current_module^.modulename^),S,1);
end;
s:=AddExtension(FixFileName(s),target_info.resext);
if target_info.res<>res_none then if target_info.res<>res_none then
current_module^.resourcefiles.insert(FixFileName(s)) current_module^.resourcefiles.insert(FixFileName(s))
else else
@ -1299,7 +1308,10 @@ const
{ {
$Log$ $Log$
Revision 1.76 2000-02-28 17:23:57 daniel Revision 1.77 2000-04-08 20:18:53 michael
* Fixed bug in readcomment that was dropping * characters
Revision 1.76 2000/02/28 17:23:57 daniel
* Current work of symtable integration committed. The symtable can be * Current work of symtable integration committed. The symtable can be
activated by defining 'newst', but doesn't compile yet. Changes in type activated by defining 'newst', but doesn't compile yet. Changes in type
checking and oop are completed. What is left is to write a new checking and oop are completed. What is left is to write a new
@ -1378,4 +1390,4 @@ const
* C alignment added for records * C alignment added for records
* PPU version increased to solve .12 <-> .13 probs * PPU version increased to solve .12 <-> .13 probs
} }

30
compiler/scanner.pas
View File

@ -829,7 +829,28 @@ implementation
readchar; readchar;
dec_comment_level; dec_comment_level;
break; break;
end; end
else
{ Add both characters !!}
if (i<255) then
begin
inc(i);
readcomment[i]:='*';
if (i<255) then
begin
inc(i);
readcomment[i]:='*';
end;
end;
end
else
{ Not old TP comment, so add...}
begin
if (i<255) then
begin
inc(i);
readcomment[i]:='*';
end;
end; end;
#26 : #26 :
end_of_file; end_of_file;
@ -1790,7 +1811,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.109 2000-03-13 21:21:57 peter Revision 1.110 2000-04-08 20:18:53 michael
* Fixed bug in readcomment that was dropping * characters
Revision 1.109 2000/03/13 21:21:57 peter
* ^m support also after a string * ^m support also after a string
Revision 1.108 2000/03/12 17:53:16 florian Revision 1.108 2000/03/12 17:53:16 florian
@ -1875,4 +1899,4 @@ end.
* directives are allowed in (* *) * directives are allowed in (* *)
* fixed parsing of (* between conditional code * fixed parsing of (* between conditional code
} }