summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorXavier Leroy <xavier.leroy@inria.fr>1998-06-23 16:47:02 +0000
committerXavier Leroy <xavier.leroy@inria.fr>1998-06-23 16:47:02 +0000
commitaf85f7c394f650348ee4ca5b34eb8e99619bc11c (patch)
treeea3bdeebf91c21c7f2de8fa1ab13b0037289a888
parente16a54aa2ffffadbeaa14cca3e17d456cf9b184a (diff)
Portage Cray T3E
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1996 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
-rw-r--r--byterun/interp.c7
-rw-r--r--byterun/str.c16
-rwxr-xr-xconfigure3
3 files changed, 22 insertions, 4 deletions
diff --git a/byterun/interp.c b/byterun/interp.c
index 1769e6fb4..2d4ecfe8b 100644
--- a/byterun/interp.c
+++ b/byterun/interp.c
@@ -109,11 +109,18 @@ sp is a local copy of the global variable extern_sp. */
#define ACCU_REG asm("%l2")
#endif
#ifdef __alpha__
+#ifdef __CRAY__
+#define PC_REG asm("r9")
+#define SP_REG asm("r10")
+#define ACCU_REG asm("r11")
+#define JUMPTBL_BASE_REG asm("r12")
+#else
#define PC_REG asm("$9")
#define SP_REG asm("$10")
#define ACCU_REG asm("$11")
#define JUMPTBL_BASE_REG asm("$12")
#endif
+#endif
#ifdef __i386__
#define PC_REG asm("%esi")
#define SP_REG asm("%edi")
diff --git a/byterun/str.c b/byterun/str.c
index e2061b9b0..04f1aaf79 100644
--- a/byterun/str.c
+++ b/byterun/str.c
@@ -92,10 +92,18 @@ value fill_string(value s, value offset, value len, value init) /* ML */
return Val_unit;
}
-static unsigned char printable_chars_ascii[] = /* 0x20-0x7E */
- "\000\000\000\000\377\377\377\377\377\377\377\377\377\377\377\177\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000";
-static unsigned char printable_chars_iso[] = /* 0x20-0x7E 0xA1-0xFF */
- "\000\000\000\000\377\377\377\377\377\377\377\377\377\377\377\177\000\000\000\000\376\377\377\377\377\377\377\377\377\377\377\377";
+static unsigned char printable_chars_ascii[] = { /* 0x20-0x7E */
+ 0, 0, 0, 0, 0xFF, 0xFF, 0xFF, 0xFF,
+ 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x7F,
+ 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0
+};
+static unsigned char printable_chars_iso[] = { /* 0x20-0x7E 0xA1-0xFF */
+ 0, 0, 0, 0, 0xFF, 0xFF, 0xFF, 0xFF,
+ 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0x7F,
+ 0, 0, 0, 0, 0xFE, 0xFF, 0xFF, 0xFF,
+ 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF
+};
value is_printable(value chr) /* ML */
{
diff --git a/configure b/configure
index 8ec96c9b7..692af42cd 100755
--- a/configure
+++ b/configure
@@ -163,6 +163,9 @@ case "$bytecc,$host" in
# (For those who want to force "cc -64")
# Turn off warning "unused library"
bytecclinkopts="-Wl,-woff,84";;
+ *,alpha-*-unicos*)
+ # For the Cray T3E
+ bytecccompopts="-DUMK";;
esac
# Configure compiler to use in further tests