X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=interpreters%2Fglulxe%2Fgestalt.c;fp=interpreters%2Fglulxe%2Fgestalt.c;h=87a8182e713f6ca5d13df12681d5bae1028c853f;hb=75009f8f40bbb580194e1722db76f4644bf18641;hp=c1c933faeb025fd258dc2cb71a995b4b9a5f6032;hpb=89081782541e85e079f64839ffb26b4e74273eb7;p=projects%2Fchimara%2Fchimara.git

diff --git a/interpreters/glulxe/gestalt.c b/interpreters/glulxe/gestalt.c
index c1c933f..87a8182 100644
--- a/interpreters/glulxe/gestalt.c
+++ b/interpreters/glulxe/gestalt.c
@@ -12,10 +12,10 @@ glui32 do_gestalt(glui32 val, glui32 val2)
   switch (val) {
 
   case gestulx_GlulxVersion:
-    return 0x00030101; /* Glulx spec version 3.1.1 */
+    return 0x00030102; /* Glulx spec version 3.1.2 */
 
   case gestulx_TerpVersion:
-    return 0x00000404; /* Glulxe version 0.4.4 */
+    return 0x00000406; /* Glulxe version 0.4.6 */
 
   case gestulx_ResizeMem:
 #ifdef FIXED_MEMSIZE
@@ -63,6 +63,13 @@ glui32 do_gestalt(glui32 val, glui32 val2)
       return 1; /* We know this accelerated function. */
     return 0;
 
+  case gestulx_Float:
+#ifdef FLOAT_SUPPORT
+    return 1; /* We can do floating-point operations. */
+#else /* FLOAT_SUPPORT */
+    return 0; /* The floating-point opcodes are not compiled in. */
+#endif /* FLOAT_SUPPORT */
+
   default:
     return 0;