Enable JIT for sparcV9
Ask for cpu instead of operating system when enabling JIT.
--- 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
]
]