paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +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
{$ifdef win32}
{ mswindows is defined for win32 and win64 targets }
{$ifdef mswindows}
uses
windows;
{$endif win32}
{$endif mswindows}
{$IFDEF OS2}
function _DosError (Error: longint): longint; cdecl;
@ -31,12 +32,12 @@ function _DosError (Error: longint): longint; cdecl;
{$ENDIF OS2}
begin
{$ifdef win32}
{$ifdef mswindows}
SetErrorMode(
SEM_FAILCRITICALERRORS or
SEM_NOGPFAULTERRORBOX or
SEM_NOOPENFILEERRORBOX);
{$endif win32}
{$endif mswindows}
{$IFDEF OS2}
if os_Mode = osOS2 then _DosError (0);
{$ENDIF OS2}

9
tests/units/win32err.pp
View File

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