paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

- don't see the point of not calling dos.exec here.... so remove unix defines

Browse Source
This commit is contained in:
carl 2001-09-29 16:02:15 +00:00
parent 5dc30f6f34
commit dd4983bb7e
1 changed files with 5 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
utils/bin2obj.pp
View File

@ -18,24 +18,7 @@ program bin2obj;
{$mode objfpc} {$mode objfpc}
{$ifdef linux} uses classes,getopts, iostream,zstream,idea,sysutils,dos;
{$define unix}
{$endif}
{$ifdef freebsd}
{$define unix}
{$endif}
uses classes,getopts, iostream,zstream,idea,sysutils
{$ifdef unix}
{$ifdef ver1_0}
,linux
{$else}
,unix
{$endif}
{$else}
,dos
{$endif}
;
var var
ConstName, ConstName,
@ -257,11 +240,7 @@ end;
Procedure CompileTheUNit; Procedure CompileTheUNit;
begin begin
{$ifdef unix}
Shell('ppc386 -Un '+UnitName);
{$else}
Exec('ppc386',' -Un '+UnitName); Exec('ppc386',' -Un '+UnitName);
{$endif}
end; end;
begin begin
@ -274,7 +253,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 2001-04-25 22:45:45 peter Revision 1.4 2001-09-29 16:02:15 carl
- don't see the point of not calling dos.exec here.... so remove unix defines
Revision 1.3 2001/04/25 22:45:45 peter
* regenerated * regenerated
Revision 1.2 2001/01/29 21:48:26 peter Revision 1.2 2001/01/29 21:48:26 peter