paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 01:26:11 +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}
{$ifdef linux}
{$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}
;
uses classes,getopts, iostream,zstream,idea,sysutils,dos;
var
ConstName,
@ -257,11 +240,7 @@ end;
Procedure CompileTheUNit;
begin
{$ifdef unix}
Shell('ppc386 -Un '+UnitName);
{$else}
Exec('ppc386',' -Un '+UnitName);
{$endif}
end;
begin
@ -274,7 +253,10 @@ end.
{
$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
Revision 1.2 2001/01/29 21:48:26 peter