* insert fwait after fcompp, resolves #37136

git-svn-id: trunk@45500 -

.gitattributes

@@ -18296,6 +18296,7 @@ tests/webtbs/tw3708.pp svneol=native#text/plain
 tests/webtbs/tw37095.pp svneol=native#text/plain
 tests/webtbs/tw37095d/uw37095.pp svneol=native#text/plain
 tests/webtbs/tw37107.pp svneol=native#text/pascal
+tests/webtbs/tw37136.pp svneol=native#text/pascal
 tests/webtbs/tw3719.pp svneol=native#text/plain
 tests/webtbs/tw3721.pp svneol=native#text/plain
 tests/webtbs/tw3742.pp svneol=native#text/plain

compiler/x86/nx86add.pas

@@ -1401,6 +1401,8 @@ unit nx86add;
                 emit_none(A_SAHF,S_NO);
                 cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_AX);
               end;
+            if cs_fpu_fwait in current_settings.localswitches then
+              current_asmdata.CurrAsmList.concat(Taicpu.Op_none(A_FWAIT,S_NO));
           end
         else
 {$endif x86_64}

tests/webtbs/tw37136.pp

@@ -0,0 +1,19 @@
+{ %CPU=i386 }
+{ %OPT=-Cp80386 }
+program NaNTest;
+{$mode objfpc}
+{$SAFEFPUEXCEPTIONS on} // does not change anything
+uses Math;
+var
+  B: Boolean;
+  N1, N2: Extended;
+  S: string;
+begin
+  N1 := NaN;
+  try
+    B := N1<4;
+  except
+    halt(0);
+  end;
+  halt(1);
+end.