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

* use SysUtils unit instead of Dos Unit

Browse Source
This commit is contained in:
mazen 2004-09-22 15:14:37 +00:00
parent 75a3f6a4f9
commit 3b591c5575
11 changed files with 76 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/systems/t_beos.pas
View File

@ -382,8 +382,8 @@ end;
function TLinkerBeOS.MakeExecutable:boolean; function TLinkerBeOS.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : string[60];
StaticStr, StaticStr,
@ -433,8 +433,8 @@ end;
Function TLinkerBeOS.MakeSharedLibrary:boolean; Function TLinkerBeOS.MakeSharedLibrary:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : string[60];
StaticStr, StaticStr,
@ -505,7 +505,10 @@ initialization
end. end.
{ {
$Log$ $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 * logs truncated
Revision 1.9 2004/03/02 00:36:33 olle Revision 1.9 2004/03/02 00:36:33 olle

13
compiler/systems/t_bsd.pas
View File

@ -490,8 +490,8 @@ end;
function TLinkerBSD.MakeExecutable:boolean; function TLinkerBSD.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : string[60];
StaticStr, StaticStr,
@ -547,8 +547,8 @@ end;
Function TLinkerBSD.MakeSharedLibrary:boolean; Function TLinkerBSD.MakeSharedLibrary:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
begin begin
MakeSharedLibrary:=false; MakeSharedLibrary:=false;
@ -627,7 +627,10 @@ initialization
end. end.
{ {
$Log$ $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 * logs truncated
Revision 1.18 2004/06/16 20:07:11 florian Revision 1.18 2004/06/16 20:07:11 florian

9
compiler/systems/t_emx.pas
View File

@ -436,8 +436,8 @@ end;
function TLinkerEMX.MakeExecutable:boolean; function TLinkerEMX.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
i : longint; i : longint;
AppTypeStr, AppTypeStr,
@ -518,7 +518,10 @@ initialization
end. end.
{ {
$Log$ $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 + Check if outputdir exists, Fix exitcode when displaying help pages
Revision 1.4 2004/06/20 08:55:32 florian Revision 1.4 2004/06/20 08:55:32 florian

9
compiler/systems/t_go32v2.pas
View File

@ -211,8 +211,8 @@ end;
function TLinkerGo32v2.MakeExecutable:boolean; function TLinkerGo32v2.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
StripStr : string[40]; StripStr : string[40];
begin begin
@ -362,7 +362,10 @@ initialization
end. end.
{ {
$Log$ $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 * logs truncated
} }

13
compiler/systems/t_linux.pas
View File

@ -425,8 +425,8 @@ end;
function TLinkerLinux.MakeExecutable:boolean; function TLinkerLinux.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : string[60];
StaticStr, StaticStr,
@ -479,8 +479,8 @@ var
InitStr, InitStr,
FiniStr, FiniStr,
SoNameStr : string[80]; SoNameStr : string[80];
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
begin begin
MakeSharedLibrary:=false; MakeSharedLibrary:=false;
@ -572,7 +572,10 @@ end.
{ {
$Log$ $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 * paraloc branch merged
Revision 1.20.4.1 2004/09/20 15:24:42 peter Revision 1.20.4.1 2004/09/20 15:24:42 peter

9
compiler/systems/t_nwl.pas
View File

@ -547,8 +547,8 @@ Const
function TLinkerNetwlibc.MakeNetwareLoadableModule (isLib : boolean):boolean; function TLinkerNetwlibc.MakeNetwareLoadableModule (isLib : boolean):boolean;
var var
binstr, binstr : String;
cmdstr, cmdstr : AnsiString;
xdcname : string; xdcname : string;
success : boolean; success : boolean;
StripStr : string[2]; StripStr : string[2];
@ -651,7 +651,10 @@ initialization
end. end.
{ {
$Log$ $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 * added library support
Revision 1.2 2004/09/19 14:23:43 armin Revision 1.2 2004/09/19 14:23:43 armin

9
compiler/systems/t_nwm.pas
View File

@ -515,8 +515,8 @@ end;
function TLinkerNetware.MakeExecutable:boolean; function TLinkerNetware.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
StripStr : string[2]; StripStr : string[2];
begin begin
@ -580,7 +580,10 @@ initialization
end. end.
{ {
$Log$ $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 * added support for libc
Revision 1.13 2004/08/01 19:29:06 armin Revision 1.13 2004/08/01 19:29:06 armin

9
compiler/systems/t_os2.pas
View File

@ -436,8 +436,8 @@ end;
function TLinkeros2.MakeExecutable:boolean; function TLinkeros2.MakeExecutable:boolean;
var var
binstr, binstr: String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
i : longint; i : longint;
AppTypeStr, AppTypeStr,
@ -518,7 +518,10 @@ initialization
end. end.
{ {
$Log$ $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 + Check if outputdir exists, Fix exitcode when displaying help pages
Revision 1.8 2004/06/20 08:55:32 florian Revision 1.8 2004/06/20 08:55:32 florian

13
compiler/systems/t_sunos.pas
View File

@ -396,8 +396,8 @@ end;
function TLinkersunos.MakeExecutable:boolean; function TLinkersunos.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
DynLinkStr : string[60]; DynLinkStr : string[60];
StaticStr, StaticStr,
@ -442,8 +442,8 @@ end;
Function TLinkersunos.MakeSharedLibrary:boolean; Function TLinkersunos.MakeSharedLibrary:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
begin begin
MakeSharedLibrary:=false; MakeSharedLibrary:=false;
@ -489,7 +489,10 @@ initialization
end. end.
{ {
$Log$ $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 * logs truncated
Revision 1.7 2004/03/02 00:36:33 olle Revision 1.7 2004/03/02 00:36:33 olle

9
compiler/systems/t_watcom.pas
View File

@ -133,8 +133,8 @@ end;
function TLinkerWatcom.MakeExecutable:boolean; function TLinkerWatcom.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
StripStr : string[40]; StripStr : string[40];
begin begin
@ -179,7 +179,10 @@ initialization
end. end.
{ {
$Log$ $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 * logs truncated
} }

13
compiler/systems/t_win32.pas
View File

@ -1014,8 +1014,8 @@ end;
function TLinkerWin32.MakeExecutable:boolean; function TLinkerWin32.MakeExecutable:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
cmds,i : longint; cmds,i : longint;
AsBinStr : string[80]; AsBinStr : string[80];
@ -1096,8 +1096,8 @@ end;
Function TLinkerWin32.MakeSharedLibrary:boolean; Function TLinkerWin32.MakeSharedLibrary:boolean;
var var
binstr, binstr : String;
cmdstr : string; cmdstr : AnsiString;
success : boolean; success : boolean;
cmds, cmds,
i : longint; i : longint;
@ -1659,7 +1659,10 @@ initialization
end. end.
{ {
$Log$ $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 * logs truncated
Revision 1.34 2004/06/18 15:16:46 peter Revision 1.34 2004/06/18 15:16:46 peter