paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use maybequote instead of getshortname

Browse Source
This commit is contained in:
peter 2002-12-24 15:55:51 +00:00
parent e28f8bb42b
commit b1241ee6dc
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/systems/t_win32.pas
View File

@ -895,13 +895,13 @@ begin
HPath:=TStringListItem(current_module.locallibrarysearchpath.First);
while assigned(HPath) do
begin
LinkRes.Add('SEARCH_DIR('+GetShortName(HPath.Str)+')');
LinkRes.Add('SEARCH_DIR('+MaybeQuoted(HPath.Str)+')');
HPath:=TStringListItem(HPath.Next);
end;
HPath:=TStringListItem(LibrarySearchPath.First);
while assigned(HPath) do
begin
LinkRes.Add('SEARCH_DIR('+GetShortName(HPath.Str)+')');
LinkRes.Add('SEARCH_DIR('+MaybeQuoted(HPath.Str)+')');
HPath:=TStringListItem(HPath.Next);
end;
@ -909,17 +909,17 @@ begin
{ profiling of shared libraries is currently not supported }
LinkRes.Add('INPUT(');
if isdll then
LinkRes.AddFileName(GetShortName(FindObjectFile('wdllprt0','')))
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('wdllprt0','')))
else
if (cs_profile in aktmoduleswitches) then
LinkRes.AddFileName(GetShortName(FindObjectFile('gprt0','')))
else
LinkRes.AddFileName(GetShortName(FindObjectFile('wprt0','')));
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('gprt0','')))
else
LinkRes.AddFileName(MaybeQuoted(FindObjectFile('wprt0','')));
while not ObjectFiles.Empty do
begin
s:=ObjectFiles.GetFirst;
if s<>'' then
LinkRes.AddFileName(GetShortName(s));
LinkRes.AddFileName(MaybeQuoted(s));
end;
LinkRes.Add(')');
@ -939,7 +939,7 @@ begin
While not StaticLibFiles.Empty do
begin
S:=StaticLibFiles.GetFirst;
LinkRes.AddFileName(GetShortName(s));
LinkRes.AddFileName(MaybeQuoted(s));
end;
LinkRes.Add(')');
end;
@ -953,7 +953,7 @@ begin
S:=SharedLibFiles.GetFirst;
if FindLibraryFile(s,target_info.staticClibprefix,target_info.staticClibext,s2) then
begin
LinkRes.Add(GetShortName(s2));
LinkRes.Add(MaybeQuoted(s2));
continue;
end;
if pos(target_info.sharedlibprefix,s)=1 then
@ -1625,7 +1625,10 @@ initialization
end.
{
$Log$
Revision 1.8 2002-12-01 18:57:34 carl
Revision 1.9 2002-12-24 15:55:51 peter
* Use maybequote instead of getshortname
Revision 1.8 2002/12/01 18:57:34 carl
* disable overflow checking in some parts to avoid problems
Revision 1.7 2002/11/30 18:45:28 carl