2
0
Эх сурвалжийг харах

* use SysUtils unit instead of Dos Unit

mazen 21 жил өмнө
parent
commit
3b591c5575

+ 8 - 5
compiler/systems/t_beos.pas

@@ -382,8 +382,8 @@ end;
 
 function TLinkerBeOS.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   DynLinkStr : string[60];
   StaticStr,
@@ -433,8 +433,8 @@ end;
 
 Function TLinkerBeOS.MakeSharedLibrary:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   DynLinkStr : string[60];
   StaticStr,
@@ -505,7 +505,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.10  2004-06-20 08:55:32  florian
+  Revision 1.11  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.10  2004/06/20 08:55:32  florian
     * logs truncated
 
   Revision 1.9  2004/03/02 00:36:33  olle

+ 8 - 5
compiler/systems/t_bsd.pas

@@ -490,8 +490,8 @@ end;
 
 function TLinkerBSD.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   DynLinkStr : string[60];
   StaticStr,
@@ -547,8 +547,8 @@ end;
 
 Function TLinkerBSD.MakeSharedLibrary:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
 begin
   MakeSharedLibrary:=false;
@@ -627,7 +627,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.19  2004-06-20 08:55:32  florian
+  Revision 1.20  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.19  2004/06/20 08:55:32  florian
     * logs truncated
 
   Revision 1.18  2004/06/16 20:07:11  florian

+ 6 - 3
compiler/systems/t_emx.pas

@@ -436,8 +436,8 @@ end;
 
 function TLinkerEMX.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   i       : longint;
   AppTypeStr,
@@ -518,7 +518,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.5  2004-09-08 11:23:31  michael
+  Revision 1.6  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.5  2004/09/08 11:23:31  michael
   + Check if outputdir exists,  Fix exitcode when displaying help pages
 
   Revision 1.4  2004/06/20 08:55:32  florian

+ 6 - 3
compiler/systems/t_go32v2.pas

@@ -211,8 +211,8 @@ end;
 
 function TLinkerGo32v2.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr : AnsiString;
   success : boolean;
   StripStr : string[40];
 begin
@@ -362,7 +362,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.4  2004-06-20 08:55:32  florian
+  Revision 1.5  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.4  2004/06/20 08:55:32  florian
     * logs truncated
 
 }

+ 8 - 5
compiler/systems/t_linux.pas

@@ -425,8 +425,8 @@ end;
 
 function TLinkerLinux.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   DynLinkStr : string[60];
   StaticStr,
@@ -479,8 +479,8 @@ var
   InitStr,
   FiniStr,
   SoNameStr : string[80];
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
 begin
   MakeSharedLibrary:=false;
@@ -572,7 +572,10 @@ end.
 
 {
   $Log$
-  Revision 1.21  2004-09-21 17:25:13  peter
+  Revision 1.22  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.21  2004/09/21 17:25:13  peter
     * paraloc branch merged
 
   Revision 1.20.4.1  2004/09/20 15:24:42  peter

+ 6 - 3
compiler/systems/t_nwl.pas

@@ -547,8 +547,8 @@ Const
 
 function TLinkerNetwlibc.MakeNetwareLoadableModule (isLib : boolean):boolean;
 var
-  binstr,
-  cmdstr,
+  binstr : String;
+  cmdstr : AnsiString;
   xdcname : string;
   success  : boolean;
   StripStr : string[2];
@@ -651,7 +651,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.3  2004-09-19 18:10:32  armin
+  Revision 1.4  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.3  2004/09/19 18:10:32  armin
   * added library support
 
   Revision 1.2  2004/09/19 14:23:43  armin

+ 6 - 3
compiler/systems/t_nwm.pas

@@ -515,8 +515,8 @@ end;
 
 function TLinkerNetware.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr   : string;
+  binstr : String;
+  cmdstr   : AnsiString;
   success  : boolean;
   StripStr : string[2];
 begin
@@ -580,7 +580,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.14  2004-08-30 11:17:34  armin
+  Revision 1.15  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.14  2004/08/30 11:17:34  armin
   * added support for libc
 
   Revision 1.13  2004/08/01 19:29:06  armin

+ 6 - 3
compiler/systems/t_os2.pas

@@ -436,8 +436,8 @@ end;
 
 function TLinkeros2.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr: String;
+  cmdstr  : AnsiString;
   success : boolean;
   i       : longint;
   AppTypeStr,
@@ -518,7 +518,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.9  2004-09-08 11:23:31  michael
+  Revision 1.10  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.9  2004/09/08 11:23:31  michael
   + Check if outputdir exists,  Fix exitcode when displaying help pages
 
   Revision 1.8  2004/06/20 08:55:32  florian

+ 8 - 5
compiler/systems/t_sunos.pas

@@ -396,8 +396,8 @@ end;
 
 function TLinkersunos.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   DynLinkStr : string[60];
   StaticStr,
@@ -442,8 +442,8 @@ end;
 
 Function TLinkersunos.MakeSharedLibrary:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
 begin
   MakeSharedLibrary:=false;
@@ -489,7 +489,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.8  2004-06-20 08:55:32  florian
+  Revision 1.9  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.8  2004/06/20 08:55:32  florian
     * logs truncated
 
   Revision 1.7  2004/03/02 00:36:33  olle

+ 6 - 3
compiler/systems/t_watcom.pas

@@ -133,8 +133,8 @@ end;
 
 function TLinkerWatcom.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   StripStr : string[40];
 begin
@@ -179,7 +179,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.4  2004-06-20 08:55:32  florian
+  Revision 1.5  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.4  2004/06/20 08:55:32  florian
     * logs truncated
 
 }

+ 8 - 5
compiler/systems/t_win32.pas

@@ -1014,8 +1014,8 @@ end;
 
 function TLinkerWin32.MakeExecutable:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   cmds,i       : longint;
   AsBinStr     : string[80];
@@ -1096,8 +1096,8 @@ end;
 
 Function TLinkerWin32.MakeSharedLibrary:boolean;
 var
-  binstr,
-  cmdstr  : string;
+  binstr : String;
+  cmdstr  : AnsiString;
   success : boolean;
   cmds,
   i       : longint;
@@ -1659,7 +1659,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.35  2004-06-20 08:55:32  florian
+  Revision 1.36  2004-09-22 15:14:37  mazen
+  * use SysUtils unit instead of Dos Unit
+
+  Revision 1.35  2004/06/20 08:55:32  florian
     * logs truncated
 
   Revision 1.34  2004/06/18 15:16:46  peter