paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:39:32 +01: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

16
compiler/scandir.inc
View File

@ -765,7 +765,16 @@ const
s : string;
begin
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
current_module^.resourcefiles.insert(FixFileName(s))
else
@ -1299,7 +1308,10 @@ const
{
$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
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

26
compiler/scanner.pas
View File

@ -829,6 +829,27 @@ implementation
readchar;
dec_comment_level;
break;
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;
#26 :
@ -1790,7 +1811,10 @@ exit_label:
end.
{
$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
Revision 1.108 2000/03/12 17:53:16 florian