-/* jit/mips/asmpart.S - Java-C interface functions for mips
+/* vm/jit/mips/asmpart.S - Java-C interface functions for mips
- Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
- Institut f. Computersprachen, TU Wien
- R. Grafl, A. Krall, C. Kruegel, C. Oates, R. Obermaisser, M. Probst,
- S. Ring, E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich,
- J. Wenninger
+ Copyright (C) 1996-2005 R. Grafl, A. Krall, C. Kruegel, C. Oates,
+ R. Obermaisser, M. Platter, M. Probst, S. Ring, E. Steiner,
+ C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich, J. Wenninger,
+ Institut f. Computersprachen - TU Wien
This file is part of CACAO.
Authors: Andreas Krall
- $Id: asmpart.S 1484 2004-11-11 14:40:48Z twisti $
+ $Id: asmpart.S 1735 2004-12-07 14:33:27Z twisti $
*/
#include "config.h"
-#include "offsets.h"
+#include "vm/jit/mips/offsets.h"
+#include "vm/jit/mips/asmoffsets.h"
#define zero $0
#define ashift 3
-#define MethodPointer -8
-#define FrameSize -12
-#define IsSync -16
-#define IsLeaf -20
-#define IntSave -24
-#define FltSave -28
-#define ExTableSize -32
-#define ExTableStart -32
-
-#define ExEntrySize -32
-#define ExStartPC -8
-#define ExEndPC -16
-#define ExHandlerPC -24
-#define ExCatchType -32
-
-
.text
.set noat
.ent asm_calljavafunction
call_name:
- .ascii "calljavafunction\0\0"
-
.align 3
- .quad 0 /* catch type all */
- .quad calljava_xhandler /* handler pc */
- .quad calljava_xhandler /* end pc */
- .quad asm_calljavafunction /* start pc */
- .long 1 /* extable size */
- .long 0 /* fltsave */
- .long 0 /* intsave */
- .long 0 /* isleaf */
- .long 0 /* IsSync */
- .long 10*8 /* frame size */
- .quad 0 /* method pointer (pointer to name) */
+
+ .dword 0 /* catch type all */
+ .dword calljava_xhandler /* handler pc */
+ .dword calljava_xhandler /* end pc */
+ .dword asm_calljavafunction /* start pc */
+ .word 1 /* extable size */
+ .word 0 /* fltsave */
+ .word 0 /* intsave */
+ .word 0 /* isleaf */
+ .word 0 /* IsSync */
+ .word 10*8 /* frame size */
+ .dword 0 /* method pointer (pointer to name) */
asm_calljavafunction:
aaddiu sp,sp,-10*8 /* allocate stack space */
.ent asm_calljavafunction2
call_name2:
- .ascii "calljavafunction2\0\0"
-
.align 3
- .quad 0 /* catch type all */
- .quad calljava_xhandler2 /* handler pc */
- .quad calljava_xhandler2 /* end pc */
- .quad asm_calljavafunction2 /* start pc */
- .long 1 /* extable size */
- .long 0 /* fltsave */
- .long 1 /* intsave */
- .long 0 /* isleaf */
- .long 0 /* IsSync */
- .long 96 /* frame size */
- .quad 0 /* method pointer (pointer to name) */
+
+ .dword 0 /* catch type all */
+ .dword calljava_xhandler2 /* handler pc */
+ .dword calljava_xhandler2 /* end pc */
+ .dword asm_calljavafunction2 /* start pc */
+ .word 1 /* extable size */
+ .word 0 /* fltsave */
+ .word 1 /* intsave */
+ .word 0 /* isleaf */
+ .word 0 /* IsSync */
+ .word 12*8 /* frame size */
+ .dword 0 /* method pointer (pointer to name) */
asm_calljavafunction2:
asm_calljavafunction2double:
.ent asm_check_clinit
asm_check_clinit:
- lw itmp2,offclassinit(itmp1)
- bnez itmp2,L_is_initialized
-
- daddiu sp,sp,-22*8
- sd ra,0*8(sp)
+ daddiu sp,sp,-24*8
+
+ sd ra,0*8(sp) /* save return address */
sd a0,1*8(sp) /* save argument registers for leaf funcs */
sd a1,2*8(sp)
sdc1 fa6,20*8(sp)
sdc1 fa7,21*8(sp)
- move a0,itmp1
+ sd itmp2,22*8(sp) /* save machine code */
+
+ /* check if class is initialized */
+ lw itmp3,offclassinit(itmp1)
+ bnez itmp3,L_is_initialized
+
+ move a0,itmp1 /* move class pointer to a0 */
jal class_init
- ld ra,0*8(sp)
+ beqz v0,L_initializererror
+
+L_is_initialized:
+ ld ra,0*8(sp) /* get return address */
+ ld itmp1,22*8(sp) /* get machine code */
+
+ daddiu ra,ra,-2*4 /* go back 2 instructions (jal + nop delay) */
+ sw itmp1,0(ra) /* patch first instruction */
+ dsrl32 itmp1,itmp1,0 /* get high 32 bit */
+ sw itmp1,4(ra) /* patch second instruction */
+
+ move a0,ra /* start of flush area */
+ addiu a1,zero,2*4 /* 2 instruction words long */
+ jal docacheflush /* flush! */
+
+ ld ra,0*8(sp) /* restore return address */
ld a0,1*8(sp) /* restore argument registers */
ld a1,2*8(sp)
ldc1 fa6,20*8(sp)
ldc1 fa7,21*8(sp)
- daddiu sp,sp,22*8
-
- beqz v0,L_initializererror
-
-L_is_initialized:
-#if 0
- move itmp1,ra /* now patch the calling code */
- daddiu itmp1,itmp1,-4*4 /* go back 4 instructions */
- lui itmp2,0x1000 /* b */
- daddiu itmp2,itmp2,3 /* jump over 3 instructions */
- sw itmp2,0(itmp1) /* store the new branch: br +3 */
- sw zero,4(itmp1) /* and a nop delay slot */
-#endif
+ daddiu sp,sp,24*8
- j ra
+ daddiu ra,ra,-2*4 /* go back 2 instructions (jal + nop delay) */
+ jr ra
L_initializererror:
#if defined(USE_THREADS) && defined(NATIVE_THREADS)
- daddiu sp,sp,-1*8
- sd ra,0*8(sp)
jal builtin_asm_get_exceptionptrptr
- ld ra,0*8(sp)
- daddiu sp,sp,1*8
- ld xptr,0(v0) /* get the exception pointer */
- sd zero,0(v0) /* clear the exception pointer */
#else
- la itmp3,_exceptionptr
- ld xptr,0(itmp3)
- sd zero,0(itmp3)
+ la v0,_exceptionptr
#endif
+ ld xptr,0(v0) /* get the exception pointer */
+ sd zero,0(v0) /* clear the exception pointer */
+
+ ld ra,0*8(sp) /* restore return address */
+
+ ld a0,1*8(sp) /* restore argument registers */
+ ld a1,2*8(sp)
+ ld a2,3*8(sp)
+ ld a3,4*8(sp)
+ ld a4,5*8(sp)
+ ld a5,6*8(sp)
+ ld a6,7*8(sp)
+ ld a7,8*8(sp)
+
+ ld t0,9*8(sp)
+ ld t1,10*8(sp)
+ ld t2,11*8(sp)
+ ld t3,12*8(sp)
+ ld t8,13*8(sp)
+
+ ldc1 fa0,14*8(sp)
+ ldc1 fa1,15*8(sp)
+ ldc1 fa2,16*8(sp)
+ ldc1 fa3,17*8(sp)
+ ldc1 fa4,18*8(sp)
+ ldc1 fa5,19*8(sp)
+ ldc1 fa6,20*8(sp)
+ ldc1 fa7,21*8(sp)
+
+ daddiu sp,sp,24*8
aaddiu xpc,ra,-4 /* faulting address is return adress - 4 */
b asm_handle_exception
j t9
nb_monitorenter:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
ald a0,string_java_lang_NullPointerException
jal new_exception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
aaddiu xpc,ra,-4 /* faulting address is return adress - 4*/
b asm_handle_nat_exception
j t9
nb_monitorexit:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
jal new_nullpointerexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
aaddiu xpc,ra,-4 /* faulting address is return adress - 4*/
b asm_handle_nat_exception
j itmp3
nb_idiv:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
jal new_arithmeticexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
aaddiu xpc,ra,-4 /* faulting address is return adress - 4*/
b asm_handle_nat_exception
j itmp3
nb_ldiv:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
jal new_arithmeticexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
aaddiu xpc,ra,-4 /* faulting address is return adress - 4*/
b asm_handle_nat_exception
j t9
nb_irem:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
jal new_arithmeticexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
aaddiu xpc,ra,-4 /* faulting address is return adress - 4*/
b asm_handle_nat_exception
j t9
nb_lrem:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
jal new_arithmeticexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
aaddiu xpc,ra,-4 /* faulting address is return adress - 4*/
b asm_handle_nat_exception
j ra /* return */
nb_aastore_null:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
jal new_nullpointerexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
move xpc,ra /* faulting address is return adress */
b asm_handle_nat_exception
nb_aastore_bound:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
move a0,a1 /* move index into a0 */
jal new_arrayindexoutofboundsexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
aaddiu sp,sp,32 /* free stack space */
move xpc,ra /* faulting address is return adress */
b asm_handle_nat_exception
nb_aastore_store:
- daddiu sp,sp,-1*8
+ daddiu sp,sp,-2*8
sd ra,0*8(sp)
jal new_arraystoreexception
move xptr,v0
ld ra,0*8(sp)
- daddiu sp,sp,1*8
+ daddiu sp,sp,2*8
move xpc,ra /* faulting address is return adress */
b asm_handle_nat_exception
asm_criticalsections:
#if defined(USE_THREADS) && defined(NATIVE_THREADS)
- .quad _crit_begin1
- .quad _crit_end1
- .quad _crit_restart1
- .quad _crit_begin2
- .quad _crit_end2
- .quad _crit_restart2
+ .dword _crit_begin1
+ .dword _crit_end1
+ .dword _crit_restart1
+ .dword _crit_begin2
+ .dword _crit_end2
+ .dword _crit_restart2
#endif
- .quad 0
+ .dword 0
.text
projects / cacao.git / blobdiff