paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 22:09:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation on non unix

Browse Source 
git-svn-id: trunk@3487 -
This commit is contained in:
florian 2006-05-13 09:09:40 +00:00
parent cc16719018
commit 32f4039978
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/sysutils.inc
View File

@ -586,7 +586,9 @@ function SafeLoadLibrary(const FileName: AnsiString;
ssecw : DWord;
{$endif}
begin
{$if defined(windows) or defined(win32)}
mode:=SetErrorMode(ErrorMode);
{$endif}
try
{$if defined(cpui386) or defined(cpux86_64)}
fpucw:=Get8087CW;
@ -595,8 +597,10 @@ function SafeLoadLibrary(const FileName: AnsiString;
{$endif cpui386}
ssecw:=GetSSECSR;
{$endif}
{$if defined(windows) or defined(win32)}
Result:=LoadLibrary(PChar(Filename));
finally
{$endif}
finally
{$if defined(cpui386) or defined(cpux86_64)}
Set8087CW(fpucw);
{$ifdef cpui386}
@ -604,6 +608,8 @@ function SafeLoadLibrary(const FileName: AnsiString;
{$endif cpui386}
SetSSECSR(ssecw);
{$endif}
{$if defined(windows) or defined(win32)}
SetErrorMode(mode);
{$endif}
end;
end;