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

Use MSWindows instead of Win32 conditional

Browse Source 
git-svn-id: trunk@16760 -
This commit is contained in:
pierre 2011-01-13 14:43:37 +00:00
parent e7dcc27cd9
commit 7d5b632896
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/units/popuperr.pp
View File

@ -20,10 +20,11 @@ interface
implementation implementation
{$ifdef win32} { mswindows is defined for win32 and win64 targets }
{$ifdef mswindows}
uses uses
windows; windows;
{$endif win32} {$endif mswindows}
{$IFDEF OS2} {$IFDEF OS2}
function _DosError (Error: longint): longint; cdecl; function _DosError (Error: longint): longint; cdecl;
@ -31,12 +32,12 @@ function _DosError (Error: longint): longint; cdecl;
{$ENDIF OS2} {$ENDIF OS2}
begin begin
{$ifdef win32} {$ifdef mswindows}
SetErrorMode( SetErrorMode(
SEM_FAILCRITICALERRORS or SEM_FAILCRITICALERRORS or
SEM_NOGPFAULTERRORBOX or SEM_NOGPFAULTERRORBOX or
SEM_NOOPENFILEERRORBOX); SEM_NOOPENFILEERRORBOX);
{$endif win32} {$endif mswindows}
{$IFDEF OS2} {$IFDEF OS2}
if os_Mode = osOS2 then _DosError (0); if os_Mode = osOS2 then _DosError (0);
{$ENDIF OS2} {$ENDIF OS2}

9
tests/units/win32err.pp
View File

@ -20,16 +20,17 @@ interface
implementation implementation
{$ifdef win32} { mswindows is defined for win32 and win64 targets }
{$ifdef mswindows}
uses uses
windows; windows;
{$endif win32} {$endif mswindows}
begin begin
{$ifdef win32} {$ifdef mswindows}
SetErrorMode( SetErrorMode(
SEM_FAILCRITICALERRORS or SEM_FAILCRITICALERRORS or
SEM_NOGPFAULTERRORBOX or SEM_NOGPFAULTERRORBOX or
SEM_NOOPENFILEERRORBOX); SEM_NOOPENFILEERRORBOX);
{$endif win32} {$endif mswindows}
end. end.