diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-02-03 10:14:54 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-02-03 10:14:54 +0000 |
| commit | 48d0d4414671797f663ffa007474db7cf8cbb411 (patch) | |
| tree | 004fff5ea0c6f40c90eafec1ac7110fbd1e9adcd /testasmcomp | |
| parent | e2d787ddf294f364116131aef9caa223d5b301fc (diff) | |
| download | ocaml-48d0d4414671797f663ffa007474db7cf8cbb411.tar.gz | |
Suite du portage SGI
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1253 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'testasmcomp')
| -rw-r--r-- | testasmcomp/Makefile | 2 | ||||
| -rw-r--r-- | testasmcomp/mips.S | 32 |
2 files changed, 17 insertions, 17 deletions
diff --git a/testasmcomp/Makefile b/testasmcomp/Makefile index 93395278a4..6686239a1c 100644 --- a/testasmcomp/Makefile +++ b/testasmcomp/Makefile @@ -12,7 +12,7 @@ CAMLRUN=../boot/ocamlrun CODEGEN=./codegen CC=$(NATIVECC) -CFLAGS=-g +CFLAGS=$(NATIVECCCOMPOPTS) -g PROGS=fib.out tak.out quicksort.out quicksort2.out soli.out integr.out \ arith.out checkbound.out diff --git a/testasmcomp/mips.S b/testasmcomp/mips.S index 48eba1327d..f8b721a7f2 100644 --- a/testasmcomp/mips.S +++ b/testasmcomp/mips.S @@ -14,8 +14,8 @@ .globl call_gen_code .ent call_gen_code call_gen_code: - subu $sp, $sp, 88 - sw $31, 84($sp) + subu $sp, $sp, 96 + sw $31, 88($sp) /* Save all callee-save registers */ sw $16, 0($sp) sw $17, 4($sp) @@ -26,12 +26,12 @@ call_gen_code: sw $22, 24($sp) sw $23, 28($sp) sw $30, 32($sp) - s.d $f20, 36($sp) - s.d $f22, 44($sp) - s.d $f24, 52($sp) - s.d $f26, 60($sp) - s.d $f28, 68($sp) - s.d $f30, 76($sp) + s.d $f20, 40($sp) + s.d $f22, 48($sp) + s.d $f24, 56($sp) + s.d $f26, 64($sp) + s.d $f28, 72($sp) + s.d $f30, 80($sp) /* Shuffle arguments */ move $8, $5 move $9, $6 @@ -41,7 +41,7 @@ call_gen_code: #endif jal $4 /* Restore registers */ - lw $31, 84($sp) + lw $31, 88($sp) lw $16, 0($sp) lw $17, 4($sp) lw $18, 8($sp) @@ -51,13 +51,13 @@ call_gen_code: lw $22, 24($sp) lw $23, 28($sp) lw $30, 32($sp) - l.d $f20, 36($sp) - l.d $f22, 44($sp) - l.d $f24, 52($sp) - l.d $f26, 60($sp) - l.d $f28, 68($sp) - l.d $f30, 76($sp) - addu $sp, $sp, 88 + l.d $f20, 40($sp) + l.d $f22, 48($sp) + l.d $f24, 56($sp) + l.d $f26, 64($sp) + l.d $f28, 72($sp) + l.d $f30, 80($sp) + addu $sp, $sp, 96 j $31 .end call_gen_code |