switch -regexp $::tcl_platform(machine) {
{^(ia64|aarch64|ppc64le)$} { return "m64" }
{^s390$} { return "m31" }
+ {^mips64$} { return "64" }
default { return "m32" }
}
}
# Notice that even though s390/s390x is 31 bits, we'll call it 32.
if { [arch_compile_flags] == 1 } {
switch -regexp $::tcl_platform(machine) {
- {^(ia64|aarch64|ppc64le)$} { return 64 }
+ {^(ia64|aarch64|ppc64le|mips64)$} { return 64 }
default { return 32 }
}
}
if {$arch == "armv7lh"} then {return "arm"}
if {$arch == "aarch64"} then {return "arm64"}
if {$arch == "ppc64le"} then {return "powerpc"}
+ if {$arch == "mips64"} then {return "mips"}
return $arch
}
%( arch == "s390" %? global ir = "r2", lr = "r2" %)
%( arch == "arm" %? global ir = "r0", lr = "r0" %)
%( arch == "arm64" %? global ir = "x0", lr = "x0" %)
+%( arch == "mips" %? global ir = "v0", lr = "v0" %)
# On s390/s390x, when in a syscall, the 1st argument is in the
# orig_gpr2 register. If you aren't in a syscall, the 1st argument is