Explorar o código

* add maybequoted for filenames

git-svn-id: trunk@5245 -
peter %!s(int64=19) %!d(string=hai) anos
pai
achega
2900d02f0b
Modificáronse 1 ficheiros con 3 adicións e 3 borrados
  1. 3 3
      compiler/systems/t_win.pas

+ 3 - 3
compiler/systems/t_win.pas

@@ -899,19 +899,19 @@ implementation
               begin
               begin
                 s:=ObjectFiles.GetFirst;
                 s:=ObjectFiles.GetFirst;
                 if s<>'' then
                 if s<>'' then
-                  Concat('READOBJECT '+s);
+                  Concat('READOBJECT '+MaybeQuoted(s));
               end;
               end;
             while not StaticLibFiles.Empty do
             while not StaticLibFiles.Empty do
               begin
               begin
                 s:=StaticLibFiles.GetFirst;
                 s:=StaticLibFiles.GetFirst;
                 if s<>'' then
                 if s<>'' then
-                  Concat('READSTATICLIBRARY '+s);
+                  Concat('READSTATICLIBRARY '+MaybeQuoted(s));
               end;
               end;
             While not SharedLibFiles.Empty do
             While not SharedLibFiles.Empty do
               begin
               begin
                 S:=SharedLibFiles.GetFirst;
                 S:=SharedLibFiles.GetFirst;
                 if FindLibraryFile(s,target_info.staticClibprefix,target_info.staticClibext,s2) then
                 if FindLibraryFile(s,target_info.staticClibprefix,target_info.staticClibext,s2) then
-                  Concat('READSTATICLIBRARY '+s2)
+                  Concat('READSTATICLIBRARY '+MaybeQuoted(s2))
                 else
                 else
                   Comment(V_Error,'Import library not found for '+S);
                   Comment(V_Error,'Import library not found for '+S);
               end;
               end;