|
@@ -71,17 +71,13 @@ begin
|
|
writeln('Exec Functions');
|
|
writeln('Exec Functions');
|
|
writeln('**************');
|
|
writeln('**************');
|
|
write('Going to Exec of ''hello -good -day''');
|
|
write('Going to Exec of ''hello -good -day''');
|
|
-{$ifndef FPC}
|
|
|
|
SwapVectors;
|
|
SwapVectors;
|
|
-{$endif FPC}
|
|
|
|
{$ifdef noexesuffix}
|
|
{$ifdef noexesuffix}
|
|
Exec(exedir+'hello','-good -day');
|
|
Exec(exedir+'hello','-good -day');
|
|
{$else}
|
|
{$else}
|
|
Exec(exedir+'hello.exe','-good -day');
|
|
Exec(exedir+'hello.exe','-good -day');
|
|
{$endif}
|
|
{$endif}
|
|
-{$ifndef FPC}
|
|
|
|
SwapVectors;
|
|
SwapVectors;
|
|
-{$endif FPC}
|
|
|
|
writeln('Exit should be 213 : ',DosExitCode);
|
|
writeln('Exit should be 213 : ',DosExitCode);
|
|
writeln('Error code should be 0 : ',DosError);
|
|
writeln('Error code should be 0 : ',DosError);
|
|
end;
|
|
end;
|