[Openmcl-cvs-notifications] r11924 - /release/1.3/source/lisp-kernel/pmcl-kernel.c

[rme at clozure.com]

Author: rme
Date: Thu Apr  9 17:53:20 2009
New Revision: 11924

Log:
Merge r11839 from trunk (improve error message about missing required
x86 features).

Modified:
    release/1.3/source/lisp-kernel/pmcl-kernel.c

Modified: release/1.3/source/lisp-kernel/pmcl-kernel.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- release/1.3/source/lisp-kernel/pmcl-kernel.c (original)
+++ release/1.3/source/lisp-kernel/pmcl-kernel.c Thu Apr  9 17:53:20 2009
@@ -1394,7 +1394,7 @@
 check_x86_cpu()
 {
   natural eax, ebx, ecx, edx;
-  =

+
   eax =3D cpuid(0, &ebx, &ecx, &edx);
 =

   if (eax >=3D 1) {
@@ -1403,6 +1403,19 @@
     if ((X86_REQUIRED_FEATURES & edx) =3D=3D X86_REQUIRED_FEATURES) {
       return true;
     }
+    /* It's very unlikely that SSE2 would be present and other things
+       that we want wouldn't.  If they don't have MMX or CMOV either,
+       might as well tell them. */
+    if ((edx & X86_FEATURE_SSE2) =3D=3D 0) {
+      fprintf(dbgout, "This CPU doesn't support the SSE2 instruction set\n=
");
+    }
+    if ((edx & X86_FEATURE_MMX) =3D=3D 0) {
+      fprintf(dbgout, "This CPU doesn't support the MMX instruction set\n"=
);
+    }
+    if ((edx & X86_FEATURE_CMOV) =3D=3D 0) {
+      fprintf(dbgout, "This CPU doesn't support the CMOV instruction\n");
+    }
+    =

   }
   return false;
 }