Back to index

lightning-sunbird  0.9+nobinonly
xptcinvoke_linux_alpha.cpp
Go to the documentation of this file.
00001 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
00002 /* ***** BEGIN LICENSE BLOCK *****
00003  * Version: MPL 1.1/GPL 2.0/LGPL 2.1
00004  *
00005  * The contents of this file are subject to the Mozilla Public License Version
00006  * 1.1 (the "License"); you may not use this file except in compliance with
00007  * the License. You may obtain a copy of the License at
00008  * http://www.mozilla.org/MPL/
00009  *
00010  * Software distributed under the License is distributed on an "AS IS" basis,
00011  * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
00012  * for the specific language governing rights and limitations under the
00013  * License.
00014  *
00015  * The Original Code is mozilla.org code.
00016  *
00017  * The Initial Developer of the Original Code is
00018  * Netscape Communications Corporation.
00019  * Portions created by the Initial Developer are Copyright (C) 1998
00020  * the Initial Developer. All Rights Reserved.
00021  *
00022  * Contributor(s):
00023  *   Glen Nakamura <glen@imodulo.com>
00024  *
00025  * Alternatively, the contents of this file may be used under the terms of
00026  * either of the GNU General Public License Version 2 or later (the "GPL"),
00027  * or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
00028  * in which case the provisions of the GPL or the LGPL are applicable instead
00029  * of those above. If you wish to allow use of your version of this file only
00030  * under the terms of either the GPL or the LGPL, and not to allow others to
00031  * use your version of this file under the terms of the MPL, indicate your
00032  * decision by deleting the provisions above and replace them with the notice
00033  * and other provisions required by the GPL or the LGPL. If you do not delete
00034  * the provisions above, a recipient may use your version of this file under
00035  * the terms of any one of the MPL, the GPL or the LGPL.
00036  *
00037  * ***** END LICENSE BLOCK ***** */
00038 
00039 /* Platform specific code to invoke XPCOM methods on native objects */
00040 
00041 #include "xptcprivate.h"
00042 
00043 /* Prototype specifies unmangled function name and disables unused warning */
00044 static void
00045 invoke_copy_to_stack(PRUint64* d, PRUint32 paramCount, nsXPTCVariant* s)
00046 __asm__("invoke_copy_to_stack") __attribute__((used));
00047 
00048 static void
00049 invoke_copy_to_stack(PRUint64* d, PRUint32 paramCount, nsXPTCVariant* s)
00050 {
00051     const PRUint8 NUM_ARG_REGS = 6-1;        // -1 for "this" pointer
00052 
00053     for(PRUint32 i = 0; i < paramCount; i++, d++, s++)
00054     {
00055         if(s->IsPtrData())
00056         {
00057             *d = (PRUint64)s->ptr;
00058             continue;
00059         }
00060         switch(s->type)
00061         {
00062         case nsXPTType::T_I8     : *d = (PRUint64)s->val.i8;     break;
00063         case nsXPTType::T_I16    : *d = (PRUint64)s->val.i16;    break;
00064         case nsXPTType::T_I32    : *d = (PRUint64)s->val.i32;    break;
00065         case nsXPTType::T_I64    : *d = (PRUint64)s->val.i64;    break;
00066         case nsXPTType::T_U8     : *d = (PRUint64)s->val.u8;     break;
00067         case nsXPTType::T_U16    : *d = (PRUint64)s->val.u16;    break;
00068         case nsXPTType::T_U32    : *d = (PRUint64)s->val.u32;    break;
00069         case nsXPTType::T_U64    : *d = (PRUint64)s->val.u64;    break;
00070         case nsXPTType::T_FLOAT  :
00071             if(i < NUM_ARG_REGS)
00072             {
00073                 // convert floats to doubles if they are to be passed
00074                 // via registers so we can just deal with doubles later
00075                 union { PRUint64 u64; double d; } t;
00076                 t.d = (double)s->val.f;
00077                 *d = t.u64;
00078             }
00079             else
00080                 // otherwise copy to stack normally
00081                 *d = (PRUint64)s->val.u32;
00082             break;
00083         case nsXPTType::T_DOUBLE : *d = (PRUint64)s->val.u64;    break;
00084         case nsXPTType::T_BOOL   : *d = (PRUint64)s->val.b;      break;
00085         case nsXPTType::T_CHAR   : *d = (PRUint64)s->val.c;      break;
00086         case nsXPTType::T_WCHAR  : *d = (PRUint64)s->val.wc;     break;
00087         default:
00088             // all the others are plain pointer types
00089             *d = (PRUint64)s->val.p;
00090             break;
00091         }
00092     }
00093 }
00094 
00095 /*
00096  * XPTC_PUBLIC_API(nsresult)
00097  * XPTC_InvokeByIndex(nsISupports* that, PRUint32 methodIndex,
00098  *                    PRUint32 paramCount, nsXPTCVariant* params)
00099  */
00100 __asm__(
00101     "#### XPTC_InvokeByIndex ####\n"
00102 ".text\n\t"
00103     ".align 5\n\t"
00104     ".globl XPTC_InvokeByIndex\n\t"
00105     ".ent XPTC_InvokeByIndex\n"
00106 "XPTC_InvokeByIndex:\n\t"
00107     ".frame $15,32,$26,0\n\t"
00108     ".mask 0x4008000,-32\n\t"
00109     "ldgp $29,0($27)\n"
00110 "$XPTC_InvokeByIndex..ng:\n\t"
00111     "subq $30,32,$30\n\t"
00112     "stq $26,0($30)\n\t"
00113     "stq $15,8($30)\n\t"
00114     "bis $30,$30,$15\n\t"
00115     ".prologue 1\n\t"
00116 
00117     /*
00118      * Allocate enough stack space to hold the greater of 6 or "paramCount"+1
00119      * parameters. (+1 for "this" pointer)  Room for at least 6 parameters
00120      * is required for storage of those passed via registers.
00121      */
00122 
00123     "bis $31,5,$2\n\t"      /* count = MAX(5, "paramCount") */
00124     "cmplt $2,$18,$1\n\t"
00125     "cmovne $1,$18,$2\n\t"
00126     "s8addq $2,16,$1\n\t"   /* room for count+1 params (8 bytes each) */
00127     "bic $1,15,$1\n\t"      /* stack space is rounded up to 0 % 16 */
00128     "subq $30,$1,$30\n\t"
00129 
00130     "stq $16,0($30)\n\t"    /* save "that" (as "this" pointer) */
00131     "stq $17,16($15)\n\t"   /* save "methodIndex" */
00132 
00133     "addq $30,8,$16\n\t"    /* pass stack pointer */
00134     "bis $18,$18,$17\n\t"   /* pass "paramCount" */
00135     "bis $19,$19,$18\n\t"   /* pass "params" */
00136     "bsr $26,$invoke_copy_to_stack..ng\n\t"     /* call invoke_copy_to_stack */
00137 
00138     /*
00139      * Copy the first 6 parameters to registers and remove from stack frame.
00140      * Both the integer and floating point registers are set for each parameter
00141      * except the first which is the "this" pointer.  (integer only)
00142      * The floating point registers are all set as doubles since the
00143      * invoke_copy_to_stack function should have converted the floats.
00144      */
00145     "ldq $16,0($30)\n\t"    /* integer registers */
00146     "ldq $17,8($30)\n\t"
00147     "ldq $18,16($30)\n\t"
00148     "ldq $19,24($30)\n\t"
00149     "ldq $20,32($30)\n\t"
00150     "ldq $21,40($30)\n\t"
00151     "ldt $f17,8($30)\n\t"   /* floating point registers */
00152     "ldt $f18,16($30)\n\t"
00153     "ldt $f19,24($30)\n\t"
00154     "ldt $f20,32($30)\n\t"
00155     "ldt $f21,40($30)\n\t"
00156 
00157     "addq $30,48,$30\n\t"   /* remove params from stack */
00158 
00159     /*
00160      * Call the virtual function with the constructed stack frame.
00161      */
00162     "bis $16,$16,$1\n\t"    /* load "this" */
00163     "ldq $2,16($15)\n\t"    /* load "methodIndex" */
00164     "ldq $1,0($1)\n\t"      /* load vtable */
00165 #if defined(__GXX_ABI_VERSION) && __GXX_ABI_VERSION >= 100 /* G++ V3 ABI */
00166     "s8addq $2,$31,$2\n\t"  /* vtable index = "methodIndex" * 8 */
00167 #else /* not G++ V3 ABI */
00168     "s8addq $2,16,$2\n\t"   /* vtable index = "methodIndex" * 8 + 16 */
00169 #endif /* G++ V3 ABI */
00170     "addq $1,$2,$1\n\t"
00171     "ldq $27,0($1)\n\t"     /* load address of function */
00172     "jsr $26,($27),0\n\t"   /* call virtual function */
00173     "ldgp $29,0($26)\n\t"
00174 
00175     "bis $15,$15,$30\n\t"
00176     "ldq $26,0($30)\n\t"
00177     "ldq $15,8($30)\n\t"
00178     "addq $30,32,$30\n\t"
00179     "ret $31,($26),1\n\t"
00180     ".end XPTC_InvokeByIndex"
00181     );