--- a/patches	Sat Apr 13 12:07:57 2002 +0200
+++ b/patches	Thu May 02 18:08:45 2002 +0200
@@ -18,7 +18,7 @@
 "/ but which are not needed often enough to justify
 "/ machine code for them ...
 
-|system iSets requiredClasses enableJIT|
+|cpu iSets requiredClasses enableJIT|
 
 'patches [info]: initial startup (snapshot image restart is faster) ...' infoPrintCR.
 
@@ -28,35 +28,33 @@
 "/  ix86        (linux, win32, unixware)
 "/  sgi-mips    (irix)
 "/  alpha       (osf)
-"/  sparc       (solaris)   [only tested with v7 & v8 cpus]
-"/  aix         (rs6k)    
+"/  sparc       (solaris)   [only tested with v7 & v8 & v9 cpus]
+"/  aix         (rs6k)      [not very well tested]
 "/
 enableJIT := false.
 
-system := OperatingSystem getSystemType.
+cpu := OperatingSystem getCPUType.
 (#(
-  'linux'
-  'unixware'
-  'solaris'
-  'iris'
-  'osf'
-  'win32'
-) includes:system) ifTrue:[
+  'i386'
+  'sparc'
+  'mips'
+  'alpha'
+) includes:cpu) ifTrue:[
     enableJIT := true.
 
-    system = 'solaris' ifTrue:[
-	"/ for now, disable if we detect running on a sparcV9;
+    cpu = 'sparc' ifTrue:[
+	"/ for now, disable if we detect running on a sparcV10;
 	"/ Reason:
-	"/   we only have v8 machines here (at eXept), 
-	"/   and therefore have no way of checking if it runs on v9.
+	"/   we do not have v10 machines here at Exept (they even do not exist at this time), 
+	"/   and therefore have no way of checking if it runs on v10.
 	"/  I dont want ST/X to crash on your side in that case ...
 	"/  ... better run a bit slower than not running at all.
 	"/ Please let us know if it runs and we will remove the code below
 	"/ (which you should do as well).
 
 	iSets := OperatingSystem getSystemInfo at:#instructionSets.
-	(iSets includesString:'sparcv9') ifTrue:[
-	    'patches [warning]: disable JIT for sparcV9 - not yet validated' infoPrintCR.
+	(iSets includesString:'sparcv10') ifTrue:[
+	    'patches [warning]: disable JIT for sparcV10 - not yet validated' infoPrintCR.
 	    enableJIT := false
 	]
     ]