Преглед изворни кода

* some string -> TCmdStr fixes

git-svn-id: trunk@1225 -
Jonas Maebe пре 20 година
родитељ
комит
65dd7465ae
2 измењених фајлова са 4 додато и 4 уклоњено
  1. 2 2
      compiler/systems/t_macos.pas
  2. 2 2
      compiler/systems/t_morph.pas

+ 2 - 2
compiler/systems/t_macos.pas

@@ -198,8 +198,8 @@ end;
 
 
 function TLinkerMPW.MakeExecutable:boolean;
 function TLinkerMPW.MakeExecutable:boolean;
 var
 var
-  binstr,
-  cmdstr  : string;
+  binstr  : string;
+  cmdstr  : TCmdStr;
   success : boolean;
   success : boolean;
   DynLinkStr : string[60];
   DynLinkStr : string[60];
   StaticStr,
   StaticStr,

+ 2 - 2
compiler/systems/t_morph.pas

@@ -201,8 +201,8 @@ end;
 
 
 function TLinkerMorphOS.MakeExecutable:boolean;
 function TLinkerMorphOS.MakeExecutable:boolean;
 var
 var
-  binstr,
-  cmdstr  : string;
+  binstr  : string;
+  cmdstr  : TCmdStr;
   success : boolean;
   success : boolean;
   StripStr: string[40];
   StripStr: string[40];
 begin
 begin