Browse Source

+ call SwapVectors before and after Exec under FPC as well. SwapVectors is
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 -

nickysn 11 years ago
parent
commit
a9ddf18779
2 changed files with 0 additions and 8 deletions
  1. 0 4
      tests/test/units/dos/tdos.pp
  2. 0 4
      tests/test/units/dos/tidos.pp

+ 0 - 4
tests/test/units/dos/tdos.pp

@@ -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;

+ 0 - 4
tests/test/units/dos/tidos.pp

@@ -75,17 +75,13 @@ begin
   writeln('**************');
   writeln('**************');
   write('Press Enter for an Exec of ''hello -good -day''');
   write('Press Enter for an Exec of ''hello -good -day''');
   Readln;
   Readln;
-{$ifndef FPC}
   SwapVectors;
   SwapVectors;
-{$endif FPC}
 {$ifdef noexesuffix}
 {$ifdef noexesuffix}
   Exec('hello','-good -day');
   Exec('hello','-good -day');
 {$else}
 {$else}
   Exec('hello.exe','-good -day');
   Exec('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);
   write('Press Enter');
   write('Press Enter');