projects / cacao.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
GNU header update.
[cacao.git] / src / vm / jit / x86_64 / codegen.c
diff --git a/src/vm/jit/x86_64/codegen.c b/src/vm/jit/x86_64/codegen.c
index 5385908addf59be7deff2e4d62ac6f8a3fc22b71..ebadb228d67f0c41e0db44c7f7abc9d7dbb17566 100644 (file)
--- a/src/vm/jit/x86_64/codegen.c
+++ b/src/vm/jit/x86_64/codegen.c
@@ -1,10 +1,9 @@
 /* jit/x86_64/codegen.c - machine code generator for x86_64
 
-   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.
 
@@ -28,7 +27,7 @@
    Authors: Andreas Krall
             Christian Thalinger
 
-   $Id: codegen.c 1668 2004-12-03 16:39:40Z twisti $
+   $Id: codegen.c 1735 2004-12-07 14:33:27Z twisti $
 
 */
 
@@ -52,6 +51,7 @@
 #include "vm/jit/x86_64/codegen.h"
 #include "vm/jit/x86_64/emitfuncs.h"
 #include "vm/jit/x86_64/types.h"
+#include "vm/jit/x86_64/asmoffsets.h"
 
 
 /* register descripton - array ************************************************/
@@ -3857,6 +3857,10 @@ u1 *createnativestub(functionptr f, methodinfo *m)
        t_inlining_globals *id;
        s4 dumpsize;
 
+       void **callAddrPatchPos=0;
+       u1 *jmpInstrPos=0;
+       void **jmpInstrPatchPos=0;
+
        /* mark start of dump memory area */
 
        dumpsize = dump_size();
@@ -3886,27 +3890,28 @@ u1 *createnativestub(functionptr f, methodinfo *m)
                }
        }
 
-       if (runverbose) {
-               s4 p, l, s1;
 
-               x86_64_alu_imm_reg(cd, X86_64_SUB, (INT_ARG_CNT + FLT_ARG_CNT + 1) * 8, REG_SP);
+       x86_64_alu_imm_reg(cd, X86_64_SUB, (INT_ARG_CNT + FLT_ARG_CNT + 1) * 8, REG_SP);
 
-               x86_64_mov_reg_membase(cd, rd->argintregs[0], REG_SP, 1 * 8);
-               x86_64_mov_reg_membase(cd, rd->argintregs[1], REG_SP, 2 * 8);
-               x86_64_mov_reg_membase(cd, rd->argintregs[2], REG_SP, 3 * 8);
-               x86_64_mov_reg_membase(cd, rd->argintregs[3], REG_SP, 4 * 8);
-               x86_64_mov_reg_membase(cd, rd->argintregs[4], REG_SP, 5 * 8);
-               x86_64_mov_reg_membase(cd, rd->argintregs[5], REG_SP, 6 * 8);
+       x86_64_mov_reg_membase(cd, rd->argintregs[0], REG_SP, 1 * 8);
+       x86_64_mov_reg_membase(cd, rd->argintregs[1], REG_SP, 2 * 8);
+       x86_64_mov_reg_membase(cd, rd->argintregs[2], REG_SP, 3 * 8);
+       x86_64_mov_reg_membase(cd, rd->argintregs[3], REG_SP, 4 * 8);
+       x86_64_mov_reg_membase(cd, rd->argintregs[4], REG_SP, 5 * 8);
+       x86_64_mov_reg_membase(cd, rd->argintregs[5], REG_SP, 6 * 8);
 
-               x86_64_movq_reg_membase(cd, rd->argfltregs[0], REG_SP, 7 * 8);
-               x86_64_movq_reg_membase(cd, rd->argfltregs[1], REG_SP, 8 * 8);
-               x86_64_movq_reg_membase(cd, rd->argfltregs[2], REG_SP, 9 * 8);
-               x86_64_movq_reg_membase(cd, rd->argfltregs[3], REG_SP, 10 * 8);
+       x86_64_movq_reg_membase(cd, rd->argfltregs[0], REG_SP, 7 * 8);
+       x86_64_movq_reg_membase(cd, rd->argfltregs[1], REG_SP, 8 * 8);
+       x86_64_movq_reg_membase(cd, rd->argfltregs[2], REG_SP, 9 * 8);
+       x86_64_movq_reg_membase(cd, rd->argfltregs[3], REG_SP, 10 * 8);
 /*             x86_64_movq_reg_membase(cd, rd->argfltregs[4], REG_SP, 11 * 8); */
 /*             x86_64_movq_reg_membase(cd, rd->argfltregs[5], REG_SP, 12 * 8); */
 /*             x86_64_movq_reg_membase(cd, rd->argfltregs[6], REG_SP, 13 * 8); */
 /*             x86_64_movq_reg_membase(cd, rd->argfltregs[7], REG_SP, 14 * 8); */
 
+       if (runverbose) {
+               s4 p, l, s1;
+
                /* show integer hex code for float arguments */
                for (p = 0, l = 0; p < m->paramcount; p++) {
                        if (IS_FLT_DBL_TYPE(m->paramtypes[p])) {
@@ -3921,27 +3926,44 @@ u1 *createnativestub(functionptr f, methodinfo *m)
 
                x86_64_mov_imm_reg(cd, (s8) m, REG_ITMP1);
                x86_64_mov_reg_membase(cd, REG_ITMP1, REG_SP, 0 * 8);
-               x86_64_mov_imm_reg(cd, (s8) builtin_trace_args, REG_ITMP1);
+               x86_64_mov_imm_reg(cd, (s8) builtin_trace_args, REG_ITMP1);
                x86_64_call_reg(cd, REG_ITMP1);
+       }
+/* call method to resolve native function if needed */
+#ifndef STATIC_CLASSPATH
+       if (f==0) { /* only if not already resolved */
+               x86_64_jmp_imm(cd,0);
+               jmpInstrPos=cd->mcodeptr-4; /*needed to patch a jump over this block*/
+               x86_64_mov_imm_reg(cd,(u8)m,rd->argintregs[0]);
+               x86_64_mov_imm_reg(cd,0,rd->argintregs[1]);
+               callAddrPatchPos=cd->mcodeptr-8; /* at this position the place is specified where the native function adress should be patched into*/
+               x86_64_mov_imm_reg(cd,0,rd->argintregs[2]);
+               jmpInstrPatchPos=cd->mcodeptr-8;
+               x86_64_mov_imm_reg(cd,jmpInstrPos,rd->argintregs[3]);
+               x86_64_mov_imm_reg(cd,(s8)codegen_resolve_native,REG_ITMP1);
+               x86_64_call_reg(cd,REG_ITMP1);
+               *(jmpInstrPatchPos)=cd->mcodeptr-jmpInstrPos-1; /*=opcode jmp_imm size*/
+       }
+#endif
 
-               x86_64_mov_membase_reg(cd, REG_SP, 1 * 8, rd->argintregs[0]);
-               x86_64_mov_membase_reg(cd, REG_SP, 2 * 8, rd->argintregs[1]);
-               x86_64_mov_membase_reg(cd, REG_SP, 3 * 8, rd->argintregs[2]);
-               x86_64_mov_membase_reg(cd, REG_SP, 4 * 8, rd->argintregs[3]);
-               x86_64_mov_membase_reg(cd, REG_SP, 5 * 8, rd->argintregs[4]);
-               x86_64_mov_membase_reg(cd, REG_SP, 6 * 8, rd->argintregs[5]);
-
-               x86_64_movq_membase_reg(cd, REG_SP, 7 * 8, rd->argfltregs[0]);
-               x86_64_movq_membase_reg(cd, REG_SP, 8 * 8, rd->argfltregs[1]);
-               x86_64_movq_membase_reg(cd, REG_SP, 9 * 8, rd->argfltregs[2]);
-               x86_64_movq_membase_reg(cd, REG_SP, 10 * 8, rd->argfltregs[3]);
+       x86_64_mov_membase_reg(cd, REG_SP, 1 * 8, rd->argintregs[0]);
+       x86_64_mov_membase_reg(cd, REG_SP, 2 * 8, rd->argintregs[1]);
+       x86_64_mov_membase_reg(cd, REG_SP, 3 * 8, rd->argintregs[2]);
+       x86_64_mov_membase_reg(cd, REG_SP, 4 * 8, rd->argintregs[3]);
+       x86_64_mov_membase_reg(cd, REG_SP, 5 * 8, rd->argintregs[4]);
+       x86_64_mov_membase_reg(cd, REG_SP, 6 * 8, rd->argintregs[5]);
+
+       x86_64_movq_membase_reg(cd, REG_SP, 7 * 8, rd->argfltregs[0]);
+       x86_64_movq_membase_reg(cd, REG_SP, 8 * 8, rd->argfltregs[1]);
+       x86_64_movq_membase_reg(cd, REG_SP, 9 * 8, rd->argfltregs[2]);
+       x86_64_movq_membase_reg(cd, REG_SP, 10 * 8, rd->argfltregs[3]);
 /*             x86_64_movq_membase_reg(cd, REG_SP, 11 * 8, rd->argfltregs[4]); */
 /*             x86_64_movq_membase_reg(cd, REG_SP, 12 * 8, rd->argfltregs[5]); */
 /*             x86_64_movq_membase_reg(cd, REG_SP, 13 * 8, rd->argfltregs[6]); */
 /*             x86_64_movq_membase_reg(cd, REG_SP, 14 * 8, rd->argfltregs[7]); */
 
-               x86_64_alu_imm_reg(cd, X86_64_ADD, (INT_ARG_CNT + FLT_ARG_CNT + 1) * 8, REG_SP);
-       }
+       x86_64_alu_imm_reg(cd, X86_64_ADD, (INT_ARG_CNT + FLT_ARG_CNT + 1) * 8, REG_SP);
+       
 
 #if 0
        x86_64_alu_imm_reg(cd, X86_64_SUB, 7 * 8, REG_SP);    /* keep stack 16-byte aligned */
@@ -4010,6 +4032,10 @@ u1 *createnativestub(functionptr f, methodinfo *m)
        x86_64_mov_imm_reg(cd, (u8) &env, rd->argintregs[0]);
 
        x86_64_mov_imm_reg(cd, (u8) f, REG_ITMP1);
+#ifndef STATIC_CLASSPATH
+       if (f==0)
+               (*callAddrPatchPos)=cd->mcodeptr-8;
+#endif
        x86_64_call_reg(cd, REG_ITMP1);
 
        /* remove stackframe if there is one */
inofficial http://www.cacaojvm.org/ git mirror