[Openmcl-cvs-notifications] r11374 - /trunk/source/lisp-kernel/pmcl-kernel.c

[gb at clozure.com]

Author: gb
Date: Sun Nov 16 22:03:11 2008
New Revision: 11374

Log:
Initialize 'rcontext_readonly' for FreeBSD.

Modified:
    trunk/source/lisp-kernel/pmcl-kernel.c

Modified: trunk/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
--- trunk/source/lisp-kernel/pmcl-kernel.c (original)
+++ trunk/source/lisp-kernel/pmcl-kernel.c Sun Nov 16 22:03:11 2008
@@ -1302,11 +1302,21 @@
   struct utsname uts;
   long got, want;
   char *got_end,*want_end;
+#ifdef X8632
+  extern Boolean rcontext_readonly;
+#endif
+
   want =3D strtoul(min_os_version,&want_end,10);
 =

   uname(&uts);
   got =3D strtoul(uts.release,&got_end,10);
-
+#ifdef X8632
+#ifdef FREEBSD
+  if (!strcmp(uts.machine,"amd64")) {
+    rcontext_readonly =3D true;
+  }
+#endif
+#endif
   while (got =3D=3D want) {
     if (*want_end =3D=3D '.') {
       want =3D strtoul(want_end+1,&want_end,10);