--- a/patches	Wed Jul 07 16:10:29 1999 +0200
+++ b/patches	Wed Jul 07 20:12:37 1999 +0200
@@ -18,19 +18,44 @@
 "/ but which are not needed often enough to justify
 "/ machine code for them ...
 
-|system requiredClasses|
+|system iSets requiredClasses enableJIT|
 
 'patches [info]: initial startup (snapshot image restart is faster) ...' infoPrintCR.
 
+"/
+"/ the JIT translator is known to work with the following
+"/ architectures:
+"/  ix86        (linux, win32, unixware)
+"/  sgi-mips    (irix)
+"/  alpha       (osf)
+"/  sparc       (solaris)   [only tested with v7 & v8 cpus]
+"/  aix         (rs6k)    
+"/
+enableJIT := false.
+
 system := OperatingSystem getSystemType.
 (#(
   'linux'
   'unixware'
-"/  'solaris'
+  'solaris'
   'iris'
   'osf'
   'win32'
 ) includes:system) ifTrue:[
+    system = 'solaris' ifTrue:[
+	"/ for now, disable for sparcV9;
+	"/ because we have no way of checking it here.
+	"/ Please let us know if it runs.
+	iSets := OperatingSystem getSystemInfo at:#instructionSets.
+	(iSets includesString:'sparcv9') ifFalse:[
+	    enableJIT := true
+	]
+    ] ifFalse:[
+	enableJIT := true
+    ]
+].
+
+enableJIT ifTrue:[
     "/ 'patches [info]: turn on JIT ...' infoPrintCR.
     ObjectMemory justInTimeCompilation:true.
 ].