mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-01 11:29:36 +01:00
- removed no longer used defines
This commit is contained in:
parent
c0db65da11
commit
c328dff091
@ -25,12 +25,6 @@ unit link;
|
||||
|
||||
{$i fpcdefs.inc}
|
||||
|
||||
{ Needed for LFN support in path to the executable }
|
||||
{$ifdef GO32V2}
|
||||
{ define ALWAYSSHELL, obsolete as go32v2 Dos.Exec
|
||||
now handles LFN names and converts them to SFN PM }
|
||||
{$endif}
|
||||
|
||||
interface
|
||||
uses
|
||||
cclasses,
|
||||
@ -465,14 +459,10 @@ begin
|
||||
if not(cs_link_extern in aktglobalswitches) then
|
||||
begin
|
||||
swapvectors;
|
||||
{$ifdef ALWAYSSHELL}
|
||||
shell(command+' '+para);
|
||||
{$else}
|
||||
if useshell then
|
||||
shell(command+' '+para)
|
||||
else
|
||||
exec(command,para);
|
||||
{$endif}
|
||||
swapvectors;
|
||||
if (doserror<>0) then
|
||||
begin
|
||||
@ -660,7 +650,10 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.31 2002-09-07 15:25:02 peter
|
||||
Revision 1.32 2002-11-09 15:37:21 carl
|
||||
- removed no longer used defines
|
||||
|
||||
Revision 1.31 2002/09/07 15:25:02 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
Revision 1.30 2002/08/12 15:08:39 carl
|
||||
|
||||
Loading…
Reference in New Issue
Block a user