X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/03b75b4c964d8b3ac97d4007f0e033549b01c92f..b60a32da0a15deb572474b1f66a6c63695ed7491:/unixstuff.inc?ds=inline diff --git a/unixstuff.inc b/unixstuff.inc index dca63ce..1a9a97b 100644 --- a/unixstuff.inc +++ b/unixstuff.inc @@ -43,7 +43,18 @@ {$ifndef ver1_9_2} {$define flock := fpflock} {$ifndef ver1_9_4} - procedure Execl(Todo:string);inline; + //beware: this is needed because FPC_FULLVERSION >= 30200 breaks delphi 6 even inside an ifdef it shouldn't process + {$ifdef fpc} + {$ifdef ver3} + {$ifndef ver3_0}{$ifndef ver3_1}{$define fpc_3_2_or_later}{$endif}{$endif} + {$endif} + {$ifdef ver4}{$define fpc_3_2_or_later}{$endif} + {$endif} + {$ifdef fpc_3_2_or_later} + procedure Execl(Todo:rawbytestring);inline; + {$else} + procedure Execl(Todo:string);inline; + {$endif} var p : ppchar; begin