Float.st
changeset 24169 db5c25cc1e42
parent 24152 16af84f4dd1f
child 24191 43920a4e5002
--- a/Float.st	Mon May 27 08:49:19 2019 +0200
+++ b/Float.st	Mon May 27 08:59:14 2019 +0200
@@ -854,7 +854,7 @@
 !Float class methodsFor:'misc'!
 
 getFPUControl
-    "get the fpu control word."
+    "BORLAND only: get the fpu control word."
 
 %{
 #ifdef __BORLANDC__
@@ -863,13 +863,15 @@
     int result = _control87(0, 0);
     RETURN(__MKSMALLINT(result));
 #endif
-%}
+%}.
+    ^ 0 "/ otherwise an arbitrary value
 
     "
      self getFPUControl
     "
 
     "Modified (comment): / 20-06-2017 / 11:51:58 / cg"
+    "Modified (comment): / 27-05-2019 / 08:58:54 / Claus Gittinger"
 !
 
 setFPUControl
@@ -883,13 +885,15 @@
     int result = _control87(PC_64, MCW_PC);
     RETURN(__MKSMALLINT(result));
 #endif
-%}
+%}.
+    "/ otherwise ignored
 
     "
      self setFPUControl
     "
 
     "Modified (comment): / 20-06-2017 / 11:51:54 / cg"
+    "Modified (comment): / 27-05-2019 / 08:58:35 / Claus Gittinger"
 ! !