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

* replace * in $R with main source instead of modulename

Browse Source 
git-svn-id: trunk@3845 -
This commit is contained in:
peter 2006-06-11 12:45:45 +00:00
parent eb8db1e460
commit e53cd4735a
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/scandir.pas
View File

@ -880,16 +880,13 @@ implementation
else else
s:= trimspace(current_scanner.readcomment); s:= trimspace(current_scanner.readcomment);
{ replace * with current module name. { replace * with the name of the main source.
This should always be defined. } This should always be defined. }
if s[1]='*' then if s[1]='*' then
if Assigned(Current_Module) then if Assigned(Current_Module) then
begin begin
delete(S,1,1); delete(S,1,1);
if m_delphi in aktmodeswitches then insert(SplitName(current_module.mainsource^),S,1);
insert(current_module.realmodulename^,S,1)
else
insert(lower(current_module.modulename^),S,1);
end; end;
s:=AddExtension(FixFileName(s),target_info.resext); s:=AddExtension(FixFileName(s),target_info.resext);
if target_info.res<>res_none then if target_info.res<>res_none then