The Tor Browser / annotate

xpcom/reflect/xptcall/src/md/unix/xptcstubs_linux_alpha.cpp@b8a032363ba2 (annotated)

xpcom/reflect/xptcall/src/md/unix/xptcstubs_linux_alpha.cpp

Thu, 22 Jan 2015 13:21:57 +0100

author
Michael Schloh von Bennewitz <michael@schloh.com>
date
Thu, 22 Jan 2015 13:21:57 +0100
branch
TOR_BUG_9701
changeset 15
b8a032363ba2
permissions
-rw-r--r--

Incorporate requested changes from Mozilla in review:
https://bugzilla.mozilla.org/show_bug.cgi?id=1123480#c6

michael@0 1 /* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
michael@0 2 /* This Source Code Form is subject to the terms of the Mozilla Public
michael@0 3 * License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0 4 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
michael@0 5
michael@0 6 /* Implement shared vtbl methods. */
michael@0 7
michael@0 8 #include "xptcprivate.h"
michael@0 9 #include "xptiprivate.h"
michael@0 10
michael@0 11 /* Prototype specifies unmangled function name and disables unused warning */
michael@0 12 static nsresult
michael@0 13 PrepareAndDispatch(nsXPTCStubBase* self, uint32_t methodIndex, uint64_t* args)
michael@0 14 __asm__("PrepareAndDispatch") ATTRIBUTE_USED;
michael@0 15
michael@0 16 static nsresult
michael@0 17 PrepareAndDispatch(nsXPTCStubBase* self, uint32_t methodIndex, uint64_t* args)
michael@0 18 {
michael@0 19 const uint8_t PARAM_BUFFER_COUNT = 16;
michael@0 20 const uint8_t NUM_ARG_REGS = 6-1; // -1 for "this" pointer
michael@0 21
michael@0 22 nsXPTCMiniVariant paramBuffer[PARAM_BUFFER_COUNT];
michael@0 23 nsXPTCMiniVariant* dispatchParams = nullptr;
michael@0 24 const nsXPTMethodInfo* info;
michael@0 25 uint8_t paramCount;
michael@0 26 uint8_t i;
michael@0 27 nsresult result = NS_ERROR_FAILURE;
michael@0 28
michael@0 29 NS_ASSERTION(self,"no self");
michael@0 30
michael@0 31 self->mEntry->GetMethodInfo(uint16_t(methodIndex), &info);
michael@0 32
michael@0 33 paramCount = info->GetParamCount();
michael@0 34
michael@0 35 // setup variant array pointer
michael@0 36 if(paramCount > PARAM_BUFFER_COUNT)
michael@0 37 dispatchParams = new nsXPTCMiniVariant[paramCount];
michael@0 38 else
michael@0 39 dispatchParams = paramBuffer;
michael@0 40 NS_ASSERTION(dispatchParams,"no place for params");
michael@0 41
michael@0 42 // args[0] to args[NUM_ARG_REGS] hold floating point register values
michael@0 43 uint64_t* ap = args + NUM_ARG_REGS;
michael@0 44 for(i = 0; i < paramCount; i++, ap++)
michael@0 45 {
michael@0 46 const nsXPTParamInfo& param = info->GetParam(i);
michael@0 47 const nsXPTType& type = param.GetType();
michael@0 48 nsXPTCMiniVariant* dp = &dispatchParams[i];
michael@0 49
michael@0 50 if(param.IsOut() || !type.IsArithmetic())
michael@0 51 {
michael@0 52 dp->val.p = (void*) *ap;
michael@0 53 continue;
michael@0 54 }
michael@0 55 // else
michael@0 56 switch(type)
michael@0 57 {
michael@0 58 case nsXPTType::T_I8 : dp->val.i8 = (int8_t) *ap; break;
michael@0 59 case nsXPTType::T_I16 : dp->val.i16 = (int16_t) *ap; break;
michael@0 60 case nsXPTType::T_I32 : dp->val.i32 = (int32_t) *ap; break;
michael@0 61 case nsXPTType::T_I64 : dp->val.i64 = (int64_t) *ap; break;
michael@0 62 case nsXPTType::T_U8 : dp->val.u8 = (uint8_t) *ap; break;
michael@0 63 case nsXPTType::T_U16 : dp->val.u16 = (uint16_t) *ap; break;
michael@0 64 case nsXPTType::T_U32 : dp->val.u32 = (uint32_t) *ap; break;
michael@0 65 case nsXPTType::T_U64 : dp->val.u64 = (uint64_t) *ap; break;
michael@0 66 case nsXPTType::T_FLOAT :
michael@0 67 if(i < NUM_ARG_REGS)
michael@0 68 {
michael@0 69 // floats passed via registers are stored as doubles
michael@0 70 // in the first NUM_ARG_REGS entries in args
michael@0 71 dp->val.u64 = (uint64_t) args[i];
michael@0 72 dp->val.f = (float) dp->val.d; // convert double to float
michael@0 73 }
michael@0 74 else
michael@0 75 dp->val.u32 = (uint32_t) *ap;
michael@0 76 break;
michael@0 77 case nsXPTType::T_DOUBLE :
michael@0 78 // doubles passed via registers are also stored
michael@0 79 // in the first NUM_ARG_REGS entries in args
michael@0 80 dp->val.u64 = (i < NUM_ARG_REGS) ? args[i] : *ap;
michael@0 81 break;
michael@0 82 case nsXPTType::T_BOOL : dp->val.b = (bool) *ap; break;
michael@0 83 case nsXPTType::T_CHAR : dp->val.c = (char) *ap; break;
michael@0 84 case nsXPTType::T_WCHAR : dp->val.wc = (char16_t) *ap; break;
michael@0 85 default:
michael@0 86 NS_ERROR("bad type");
michael@0 87 break;
michael@0 88 }
michael@0 89 }
michael@0 90
michael@0 91 result = self->mOuter->CallMethod((uint16_t)methodIndex, info, dispatchParams);
michael@0 92
michael@0 93 if(dispatchParams != paramBuffer)
michael@0 94 delete [] dispatchParams;
michael@0 95
michael@0 96 return result;
michael@0 97 }
michael@0 98
michael@0 99 /*
michael@0 100 * SharedStub()
michael@0 101 * Collects arguments and calls PrepareAndDispatch. The "methodIndex" is
michael@0 102 * passed to this function via $1 to preserve the argument registers.
michael@0 103 */
michael@0 104 __asm__(
michael@0 105 "#### SharedStub ####\n"
michael@0 106 ".text\n\t"
michael@0 107 ".align 5\n\t"
michael@0 108 ".ent SharedStub\n"
michael@0 109 "SharedStub:\n\t"
michael@0 110 ".frame $30,96,$26,0\n\t"
michael@0 111 ".mask 0x4000000,-96\n\t"
michael@0 112 "ldgp $29,0($27)\n"
michael@0 113 "$SharedStub..ng:\n\t"
michael@0 114 "subq $30,96,$30\n\t"
michael@0 115 "stq $26,0($30)\n\t"
michael@0 116 ".prologue 1\n\t"
michael@0 117
michael@0 118 /*
michael@0 119 * Store arguments passed via registers to the stack.
michael@0 120 * Floating point registers are stored as doubles and converted
michael@0 121 * to floats in PrepareAndDispatch if necessary.
michael@0 122 */
michael@0 123 "stt $f17,16($30)\n\t" /* floating point registers */
michael@0 124 "stt $f18,24($30)\n\t"
michael@0 125 "stt $f19,32($30)\n\t"
michael@0 126 "stt $f20,40($30)\n\t"
michael@0 127 "stt $f21,48($30)\n\t"
michael@0 128 "stq $17,56($30)\n\t" /* integer registers */
michael@0 129 "stq $18,64($30)\n\t"
michael@0 130 "stq $19,72($30)\n\t"
michael@0 131 "stq $20,80($30)\n\t"
michael@0 132 "stq $21,88($30)\n\t"
michael@0 133
michael@0 134 /*
michael@0 135 * Call PrepareAndDispatch function.
michael@0 136 */
michael@0 137 "bis $1,$1,$17\n\t" /* pass "methodIndex" */
michael@0 138 "addq $30,16,$18\n\t" /* pass "args" */
michael@0 139 "bsr $26,$PrepareAndDispatch..ng\n\t"
michael@0 140
michael@0 141 "ldq $26,0($30)\n\t"
michael@0 142 "addq $30,96,$30\n\t"
michael@0 143 "ret $31,($26),1\n\t"
michael@0 144 ".end SharedStub"
michael@0 145 );
michael@0 146
michael@0 147 /*
michael@0 148 * nsresult nsXPTCStubBase::Stub##n()
michael@0 149 * Sets register $1 to "methodIndex" and jumps to SharedStub.
michael@0 150 */
michael@0 151 #define STUB_MANGLED_ENTRY(n, symbol) \
michael@0 152 "#### Stub"#n" ####" "\n\t" \
michael@0 153 ".text" "\n\t" \
michael@0 154 ".align 5" "\n\t" \
michael@0 155 ".globl " symbol "\n\t" \
michael@0 156 ".ent " symbol "\n" \
michael@0 157 symbol ":" "\n\t" \
michael@0 158 ".frame $30,0,$26,0" "\n\t" \
michael@0 159 "ldgp $29,0($27)" "\n" \
michael@0 160 "$" symbol "..ng:" "\n\t" \
michael@0 161 ".prologue 1" "\n\t" \
michael@0 162 "lda $1,"#n "\n\t" \
michael@0 163 "br $31,$SharedStub..ng" "\n\t" \
michael@0 164 ".end " symbol
michael@0 165
michael@0 166 #define STUB_ENTRY(n) \
michael@0 167 __asm__( \
michael@0 168 ".if "#n" < 10" "\n\t" \
michael@0 169 STUB_MANGLED_ENTRY(n, "_ZN14nsXPTCStubBase5Stub"#n"Ev") "\n\t" \
michael@0 170 ".elseif "#n" < 100" "\n\t" \
michael@0 171 STUB_MANGLED_ENTRY(n, "_ZN14nsXPTCStubBase6Stub"#n"Ev") "\n\t" \
michael@0 172 ".elseif "#n" < 1000" "\n\t" \
michael@0 173 STUB_MANGLED_ENTRY(n, "_ZN14nsXPTCStubBase7Stub"#n"Ev") "\n\t" \
michael@0 174 ".else" "\n\t" \
michael@0 175 ".err \"Stub"#n" >= 1000 not yet supported.\"" "\n\t" \
michael@0 176 ".endif" \
michael@0 177 );
michael@0 178
michael@0 179
michael@0 180 #define SENTINEL_ENTRY(n) \
michael@0 181 nsresult nsXPTCStubBase::Sentinel##n() \
michael@0 182 { \
michael@0 183 NS_ERROR("nsXPTCStubBase::Sentinel called"); \
michael@0 184 return NS_ERROR_NOT_IMPLEMENTED; \
michael@0 185 }
michael@0 186
michael@0 187 #include "xptcstubsdef.inc"

Mercurial Repository: The Tor Browser

Europalab SCM Repository Server

mercurial