mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-12 07:04:43 +01:00
27 lines
476 B
ObjectPascal
27 lines
476 B
ObjectPascal
{$mode objfpc}
|
|
{$h+}
|
|
|
|
Uses Sysutils;
|
|
|
|
var cmd,cmdline : String;
|
|
i : Longint;
|
|
|
|
begin
|
|
cmd:='execedbya';
|
|
cmdline:='';
|
|
for i:=0 to 10 do
|
|
cmdline:=cmdline+'-Fu/usr/local/lib/fpc/1.0.10/units/freebsd/rtl/* ';
|
|
|
|
if ExecuteProcess(cmd,cmdline)<>0 Then
|
|
halt(1);
|
|
// test illegal command
|
|
try
|
|
ExecuteProcess('afsdfdas',cmdline)
|
|
except
|
|
// unknown command should raise an exception
|
|
halt(0);
|
|
end;
|
|
// we should never get here
|
|
halt(1);
|
|
end.
|