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

* fix SafeLoadLibrary: fixed defines, sse control word should be stored as well

Browse Source 
git-svn-id: trunk@18255 -
This commit is contained in:
florian 2011-08-18 08:37:15 +00:00
parent 6748a9a238
commit 859757003f
1 changed files with 27 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
rtl/inc/dynlibs.pas
View File

@ -67,21 +67,35 @@ begin
end;
Function SafeLoadLibrary(const Name : AnsiString) : TLibHandle;
{$ifdef i386}
var w : word;
{$if defined(cpui386) or defined(cpux86_64)}
var
fpucw : Word;
ssecw : DWord;
{$endif}
Begin
{$ifdef i386}
w:=get8087cw;
begin
try
{$if defined(cpui386) or defined(cpux86_64)}
fpucw:=Get8087CW;
{$ifdef cpui386}
if has_sse_support then
{$endif cpui386}
ssecw:=GetSSECSR;
{$endif}
result:=loadlibrary(name);
{$ifdef i386}
set8087cw(w);
{$if defined(windows) or defined(win32)}
Result:=LoadLibraryA(PChar(Name));
{$else}
Result:=loadlibrary(Name);
{$endif}
End;
finally
{$if defined(cpui386) or defined(cpux86_64)}
Set8087CW(fpucw);
{$ifdef cpui386}
if has_sse_support then
{$endif cpui386}
SetSSECSR(ssecw);
{$endif}
end;
end;
end.