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

fix win95: win32 sse support check, patch by florian

Browse Source 
git-svn-id: trunk@5935 -
This commit is contained in:
micha 2007-01-12 23:07:01 +00:00
parent 76dc5ab588
commit 19cb1b6e34
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/win32/system.pp
View File

@ -797,6 +797,7 @@ function syswin32_i386_exception_handler(excep : PExceptionPointers) : Longint;s
begin begin
os_supports_sse:=false; os_supports_sse:=false;
{ if yes, then retry } { if yes, then retry }
inc(excep^.ContextRecord^.Eip,4);
excep^.ExceptionRecord^.ExceptionCode := 0; excep^.ExceptionRecord^.ExceptionCode := 0;
res:=EXCEPTION_CONTINUE_EXECUTION; res:=EXCEPTION_CONTINUE_EXECUTION;
end end