Back to index

lightning-sunbird  0.9+nobinonly
xptcinvoke_ppc_aix.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  *
00024  * Alternatively, the contents of this file may be used under the terms of
00025  * either of the GNU General Public License Version 2 or later (the "GPL"),
00026  * or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
00027  * in which case the provisions of the GPL or the LGPL are applicable instead
00028  * of those above. If you wish to allow use of your version of this file only
00029  * under the terms of either the GPL or the LGPL, and not to allow others to
00030  * use your version of this file under the terms of the MPL, indicate your
00031  * decision by deleting the provisions above and replace them with the notice
00032  * and other provisions required by the GPL or the LGPL. If you do not delete
00033  * the provisions above, a recipient may use your version of this file under
00034  * the terms of any one of the MPL, the GPL or the LGPL.
00035  *
00036  * ***** END LICENSE BLOCK ***** */
00037 
00038 /* Platform specific code to invoke XPCOM methods on native objects */
00039 
00040 #include "xptcprivate.h"
00041 
00042 #ifndef AIX
00043 #error "This code is for PowerPC only"
00044 #endif
00045 
00046 extern "C" void
00047 invoke_copy_to_stack(PRUint32* d, PRUint32 paramCount, nsXPTCVariant* s, double *fprData)
00048 {
00049 /*
00050     We need to copy the parameters for this function to locals and use them
00051     from there since the parameters occupy the same stack space as the stack
00052     we're trying to populate.
00053 */
00054     PRUint32 *l_d = d;
00055     nsXPTCVariant *l_s = s;
00056     PRUint32 l_paramCount = paramCount, fpCount = 0;
00057     double *l_fprData = fprData;
00058 
00059     typedef struct {
00060         uint32 hi;
00061         uint32 lo;
00062     } DU;               // have to move 64 bit entities as 32 bit halves since
00063                         // stack slots are not guaranteed 16 byte aligned
00064 
00065     for(uint32 i = 0; i < l_paramCount; i++, l_d++, l_s++)
00066     {
00067         if(l_s->IsPtrData())
00068         {
00069             *((void**)l_d) = l_s->ptr;
00070             continue;
00071         }
00072         switch(l_s->type)
00073         {
00074         case nsXPTType::T_I8     : *((int32*)  l_d) = l_s->val.i8;          break;
00075         case nsXPTType::T_I16    : *((int32*)  l_d) = l_s->val.i16;         break;
00076         case nsXPTType::T_I32    : *((int32*)  l_d) = l_s->val.i32;         break;
00077         case nsXPTType::T_I64    : 
00078         case nsXPTType::T_U64    :
00079             *((uint32*) l_d++) = ((DU *)l_s)->hi;
00080             *((uint32*) l_d) = ((DU *)l_s)->lo;
00081             break;
00082         case nsXPTType::T_DOUBLE :
00083             *((uint32*) l_d++) = ((DU *)l_s)->hi;
00084             *((uint32*) l_d) = ((DU *)l_s)->lo;
00085             if(fpCount < 13)
00086                 l_fprData[fpCount++] = l_s->val.d;
00087             break;
00088         case nsXPTType::T_U8     : *((uint32*) l_d) = l_s->val.u8;          break;
00089         case nsXPTType::T_U16    : *((uint32*) l_d) = l_s->val.u16;         break;
00090         case nsXPTType::T_U32    : *((uint32*) l_d) = l_s->val.u32;         break;
00091         case nsXPTType::T_FLOAT  :
00092             *((float*)  l_d) = l_s->val.f;
00093             if(fpCount < 13)
00094                 l_fprData[fpCount++] = l_s->val.f;
00095             break;
00096         case nsXPTType::T_BOOL   : *((PRBool*) l_d) = l_s->val.b;           break;
00097         case nsXPTType::T_CHAR   : *((uint32*) l_d) = l_s->val.c;           break;
00098         case nsXPTType::T_WCHAR  : *((int32*)  l_d) = l_s->val.wc;          break;
00099         default:
00100             // all the others are plain pointer types
00101             *((void**)l_d) = l_s->val.p;
00102             break;
00103         }
00104     }
00105 }
00106