diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1998-04-21 16:09:26 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1998-04-21 16:09:26 +0000 |
| commit | 57e273953e7d714bc050eeafdded56a4b996f0da (patch) | |
| tree | bab7dc217d5ccda687348b6bc9c6ba3da4da7582 /byterun/parsing.c | |
| parent | 712d9b60dee5f2f3338e0dba5ec135511df0e80a (diff) | |
portage bytecode sur Cray T3E
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1927 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/parsing.c')
| -rw-r--r-- | byterun/parsing.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/byterun/parsing.c b/byterun/parsing.c index 6aeaeb14f..f4caea09b 100644 --- a/byterun/parsing.c +++ b/byterun/parsing.c @@ -59,8 +59,8 @@ struct parser_env { /* Mirrors parser_env in ../stdlib/parsing.ml */ #ifdef ARCH_BIG_ENDIAN #define Short(tbl,n) \ - (*((unsigned char *)((tbl) + (n) * sizeof(short))) + \ - (*((schar *)((tbl) + (n) * sizeof(short) + 1)) << 8)) + (*((unsigned char *)((tbl) + (n) * 2)) + \ + (*((schar *)((tbl) + (n) * 2 + 1)) << 8)) #else #define Short(tbl,n) (((short *)(tbl))[n]) #endif |