paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ call SwapVectors before and after Exec under FPC as well. SwapVectors is

Browse Source 
implemented on two FPC platforms (go32v2 and msdos). On the platforms that
  don't need it, it does nothing, so it's safe to call on all platforms.

git-svn-id: trunk@28060 -
This commit is contained in:
nickysn 2014-06-25 13:35:11 +00:00
parent e7e02467fc
commit a9ddf18779
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/units/dos/tdos.pp
View File

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

4
tests/test/units/dos/tidos.pp
View File

@ -75,17 +75,13 @@ begin
writeln('**************');
write('Press Enter for an Exec of ''hello -good -day''');
Readln;
{$ifndef FPC}
SwapVectors;
{$endif FPC}
{$ifdef noexesuffix}
Exec('hello','-good -day');
{$else}
Exec('hello.exe','-good -day');
{$endif}
{$ifndef FPC}
SwapVectors;
{$endif FPC}
writeln('Exit should be 213 : ',DosExitCode);
writeln('Error code should be 0 : ',DosError);
write('Press Enter');