* fixed TranslateMxcsr

+ correctly handle sse exceptions on i386, resolves #32671
+ test

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38268 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 11 insertions, 1 deletions

diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index f919619dd6..bb85f9b450 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -424,7 +424,7 @@ procedure JumpToHandleErrorFrame;
 
 function syswin32_i386_exception_handler(excep : PExceptionPointers) : Longint;stdcall;
   var
-    res: longint;
+    res,ssecode: longint;
     err: byte;
     must_reset_fpu: boolean;
   begin
@@ -495,6 +495,16 @@ function syswin32_i386_exception_handler(excep : PExceptionPointers) : Longint;s
             err := 218;
             must_reset_fpu := false;
           end;
+        STATUS_FLOAT_MULTIPLE_TRAPS:
+          begin
+            { dumping ExtendedRegisters and comparing with the actually value of mxcsr revealed 24 }
+            TranslateMxcsr(excep^.ContextRecord^.ExtendedRegisters[24],ssecode);
+{$ifdef SYSTEMEXCEPTIONDEBUG}
+            if IsConsole then
+              Writeln(stderr,'MXSR: ',hexstr(excep^.ContextRecord^.ExtendedRegisters[24], 2),' SSECODE: ',ssecode);
+{$endif SYSTEMEXCEPTIONDEBUG}
+            err:=-ssecode;
+          end;
         else
           begin
             if ((excep^.ExceptionRecord^.ExceptionCode and SEVERITY_ERROR) = SEVERITY_ERROR) then