Identify (and sometimes fix) remaining uses of old-style GCC name mangling in cia files - Bug 3115
Instances which don't have defined "CSM_xxx" macros are marked "// CSM needed"
// Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies).
// All rights reserved.
// This component and the accompanying materials are made available
// under the terms of the License "Eclipse Public License v1.0"
// which accompanies this distribution, and is available
// at the URL "http://www.eclipse.org/legal/epl-v10.html".
//
// Initial Contributors:
// Nokia Corporation - initial contribution.
//
// Contributors:
//
// Description:
// e32\common\arm\cdes8.cia
//
//
#include <e32cia.h>
#include "../common.h"
#define __FIXED_POINT_64BIT_DIV10__
#if defined(__DES8_MACHINE_CODED__) || defined(__EABI__)
GLREF_C void Des8PanicBadDesType();
GLREF_C void Des8PanicPosOutOfRange();
#endif
#ifdef __DES8_MACHINE_CODED__
GLREF_C void Des8PanicLengthNegative();
GLREF_C void Des8PanicMaxLengthNegative();
GLREF_C void Des8PanicLengthOutOfRange();
GLREF_C void Des8PanicDesOverflow();
GLREF_C void Des8PanicDesIndexOutOfRange();
__NAKED__ EXPORT_C const TUint8 *TDesC8::Ptr() const
//
// Return a pointer to the buffer.
//
{
asm("ldr r1, [r0], #4 ");
asm("cmp r1, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r1, r1, r1, lsr #1 ");
asm("msr cpsr_flg, r1 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 ");
__JUMP(,lr);
}
#ifndef __EABI_CTORS__
__NAKED__ EXPORT_C TPtrC8::TPtrC8()
//
// Default constructor
//
{
asm("mov r1, #0x10000000 "); // type=EPtrC, length=0
asm("mov r2, #0 "); // ptr=NULL
asm("stmia r0, {r1,r2} ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8::TPtrC8(const TDesC8& /*aDes*/)
//
// Constructor
//
{
asm("ldr r2, [r1], #4 "); // r2 = type/length
asm("bic r3, r2, #0xF0000000"); // r3 = length
asm("orr r3, r3, #0x10000000"); // r3 = EPtrC + length
asm("cmp r2, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r2, r2, r2, lsr #1 ");
asm("msr cpsr_flg, r2 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1 = aDes.Ptr()
asm("str r3, [r0] ");
asm("str r1, [r0, #4] ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8::TPtrC8(const TUint8* /*aString*/)
//
// Constructor
//
{
asm("mov r2, r1 "); // save aString pointer
asm("1: ");
asm("ldrb r3, [r1], #1 ");
asm("cmp r3, #0 ");
asm("bne 1b "); // loop until we reach zero terminator
asm("sub r1, r1, r2 "); // r1 = length + 1
asm("sub r1, r1, #1 "); // r1 = length
asm("orr r1, r1, #0x10000000 "); // r1=EPtrC + length
asm("stmia r0, {r1, r2} "); // store type/length and ptr fields
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8::TPtrC8(const TUint8* /*aBuf*/,TInt /*aLength*/)
//
// Constructor
//
{
asm("orrs r2, r2, #0x10000000 ");
asm("strpl r2, [r0] ");
asm("strpl r1, [r0, #4] ");
__JUMP(pl,lr);
asm("b " CSM_Z23Des8PanicLengthNegativev);
}
__NAKED__ EXPORT_C TPtr8::TPtr8(TUint8* /*aBuf*/,TInt /*aMaxLength*/)
//
// Constructor
//
{
asm("cmp r2, #0 ");
asm("movpl r3, r1 ");
asm("movpl r1, #0x20000000 "); // length=0, EPtr
asm("stmplia r0, {r1,r2,r3} ");
__JUMP(pl,lr);
asm("b " CSM_Z26Des8PanicMaxLengthNegativev);
}
__NAKED__ EXPORT_C TPtr8::TPtr8(TUint8* /*aBuf*/,TInt /*aLength*/,TInt /*aMaxLength*/)
//
// Constructor
//
{
asm("cmp r2, #0 "); // check length>=0
asm("cmpge r3, r2 "); // if so, check maxlength>=length
asm("movge r12, r1 ");
asm("orrge r2, r2, #0x20000000 "); // r2 = length + EPtr
asm("stmgeia r0, {r2,r3,r12} ");
__JUMP(ge,lr);
asm("cmp r2, #0 ");
asm("bmi " CSM_Z23Des8PanicLengthNegativev);
asm("cmp r3, #0 ");
asm("bmi " CSM_Z26Des8PanicMaxLengthNegativev);
asm("b " CSM_Z25Des8PanicLengthOutOfRangev);
}
__NAKED__ EXPORT_C TPtr8::TPtr8(TBufCBase8& /*aLcb*/,TInt /*aMaxLength*/)
//
// Constructor
//
{
asm("mov r3, r1 ");
asm("ldr r1, [r3] ");
asm("bic r1, r1, #0xF0000000 "); // r1=aLcb.Length()
asm("cmp r1, r2 "); // check against maxlength
asm("orrle r1, r1, #0x40000000 "); // r1=aLcb.Length() + EBufCPtr
asm("stmleia r0, {r1,r2,r3} ");
__JUMP(le,lr);
asm("b " CSM_Z25Des8PanicLengthOutOfRangev);
}
__NAKED__ EXPORT_C TBufCBase8::TBufCBase8()
//
// Constructor
//
{
asm("mov r1, #0 ");
asm("str r1, [r0] ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TBufCBase8::TBufCBase8(const TUint8* /*aString*/,TInt /*aMaxLength*/)
//
// Constructor
//
{
asm("mov r3, r1 "); // save aString pointer
asm("1: ");
asm("ldrb r12, [r3], #1 ");
asm("cmp r12, #0 ");
asm("bne 1b "); // loop until we reach zero terminator
asm("sub r3, r3, r1 "); // r3 = length + 1
asm("sub r3, r3, #1 "); // r3 = length (+EBufC)
asm("cmp r3, r2 "); // check against max length
asm("bgt " CSM_Z25Des8PanicLengthOutOfRangev);
asm("stmfd sp!, {r0,lr} "); // save registers for function call
asm("str r3, [r0], #4 "); // save length/type field, r0->buffer
asm("mov r2, r3 "); // length into r2 for function call
asm("bl memmove ");
__POPRET("r0,");
}
__NAKED__ EXPORT_C TBufCBase8::TBufCBase8(const TDesC8& /*aDes*/,TInt /*aMaxLength*/)
//
// Constructor
//
{
asm("ldr r3, [r1], #4 "); // r3 = type/length
asm("bic r12, r3, #0xF0000000"); // r12 = length
asm("cmp r12, r2 "); // compare with maxlength
asm("bgt " CSM_Z25Des8PanicLengthOutOfRangev);
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1 = aDes.Ptr()
asm("stmfd sp!, {r0,lr} "); // save registers for function call
asm("str r12, [r0], #4 "); // store length/type, r0->buffer
asm("mov r2, r12 "); // length into r2 for function call
asm("bl memmove ");
__POPRET("r0,");
}
#endif
__NAKED__ EXPORT_C void TBufCBase8::Copy(const TUint8* /*aString*/,TInt /*aMaxLength*/)
//
// Copy from a string.
//
{
asm("mov r3, r1 "); // save aString pointer
asm("1: ");
asm("ldrb r12, [r3], #1 ");
asm("cmp r12, #0 ");
asm("bne 1b "); // loop until we reach zero terminator
asm("sub r3, r3, r1 "); // r3 = length + 1
asm("sub r3, r3, #1 "); // r3 = length (+EBufC)
asm("cmp r3, r2 "); // check against max length
asm("bgt " CSM_Z25Des8PanicLengthOutOfRangev);
asm("str r3, [r0], #4 "); // save length/type field, r0->buffer
asm("mov r2, r3 "); // length into r2 for function call
asm("b memmove ");
}
__NAKED__ EXPORT_C void TBufCBase8::Copy(const TDesC8& /*aDes*/,TInt /*aMaxLength*/)
//
// Copy from a descriptor.
//
{
asm("ldr r3, [r1], #4 "); // r3 = type/length
asm("bic r12, r3, #0xF0000000"); // r12 = length
asm("cmp r12, r2 "); // compare with maxlength
asm("bgt " CSM_Z20Des8PanicDesOverflowv);
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1 = aDes.Ptr()
asm("str r12, [r0], #4 "); // store length/type, r0->buffer
asm("mov r2, r12 "); // length into r2 for function call
asm("b memmove ");
}
#ifndef __EABI_CTORS__
__NAKED__ EXPORT_C TBufBase8::TBufBase8(TInt /*aMaxLength*/)
{
asm("mov r2, #0x30000000 "); // EBuf + zero length
asm("str r2, [r0] ");
asm("str r1, [r0, #4] ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TBufBase8::TBufBase8(TInt /*aLength*/, TInt /*aMaxLength*/)
{
asm("cmp r1, #0 "); // check length>=0
asm("cmpge r2, r1 "); // if so, check maxlength>=length
asm("orrge r1, r1, #0x30000000 "); // r1=length + EBuf
asm("stmgeia r0, {r1,r2} "); // store length/type and maxlength fields
__JUMP(ge,lr);
asm("cmp r2, #0 ");
asm("bmi " CSM_Z26Des8PanicMaxLengthNegativev);
asm("b " CSM_Z25Des8PanicLengthOutOfRangev);
}
__NAKED__ EXPORT_C TBufBase8::TBufBase8(const TUint8* /*aString*/, TInt /*aMaxLength*/)
{
asm("mov r12, r1 "); // save aString pointer
asm("1: ");
asm("ldrb r3, [r1], #1 ");
asm("cmp r3, #0 ");
asm("bne 1b "); // loop until we reach zero terminator
asm("sub r1, r1, r12 "); // r1 = length + 1
asm("sub r1, r1, #1 "); // r1 = length
asm("cmp r1, r2 "); // compare to max length
asm("bgt " CSM_Z25Des8PanicLengthOutOfRangev); // length too big, so panic
asm("orr r1, r1, #0x30000000 "); // if length<=max, r1=EBuf + length
asm("stmfd sp!, {r0,lr} "); // save registers for function call
asm("stmia r0!, {r1, r2} "); // store type/length and max length fields, r0->buffer
asm("bic r2, r1, #0xf0000000 "); // r2=length
asm("mov r1, r12 "); // r12=aString
asm("bl memmove ");
__POPRET("r0,");
}
__NAKED__ EXPORT_C TBufBase8::TBufBase8(const TDesC8& /*aDes*/, TInt /*aMaxLength*/)
{
asm("ldr r3, [r1], #4 "); // r3 = type/length
asm("bic r12, r3, #0xF0000000"); // r12 = length
asm("cmp r12, r2 "); // compare with maxlength
asm("bgt " CSM_Z25Des8PanicLengthOutOfRangev);
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1 = aDes.Ptr()
asm("stmfd sp!, {r0,lr} "); // save registers for function call
asm("orr r12, r12, #0x30000000 "); // add EBuf type field
asm("str r12, [r0], #4 "); // store length/type, r0->max length
asm("str r2, [r0], #4 "); // store max length, r0->buffer
asm("bic r2, r12, #0xf0000000 "); // length into r2 for function call
asm("bl memmove ");
__POPRET("r0,");
}
#endif
__NAKED__ EXPORT_C void TDes8::SetLength(TInt /*aLength*/)
//
// Set the length of the descriptor, checking the length is O.K.
//
{
asm("ldmia r0, {r2,r3} "); // r2=length/type, r3=maxlength
asm("cmp r1, r3 "); // check aLength against maxlength and for -ve values
asm("bhi " CSM_Z20Des8PanicDesOverflowv);
asm("and r2, r2, #0xF0000000 "); // r2=type field
asm("cmp r2, #0x40000000 "); // check for EBufCPtr
asm("orr r2, r2, r1 "); // r2=type + new length
asm("str r2, [r0] "); // store new length
__JUMP(ne,lr);
asm("ldr r2, [r0, #8] "); // r2=pointer to TBufCBase
asm("str r1, [r2] "); // update length of TBufCBase
__JUMP(,lr);
}
__NAKED__ EXPORT_C void TDes8::SetMax()
//
// Set the length to MaxLength().
//
{
asm("ldmia r0, {r1,r2} "); // r1=length/type, r2=maxlength
asm("and r1, r1, #0xF0000000 "); // r1=type field
asm("cmp r1, #0x40000000 "); // check for EBufCPtr
asm("orr r1, r1, r2 "); // r1=type field + maxlength
asm("str r1, [r0] "); // store new length
__JUMP(ne,lr);
asm("ldr r1, [r0, #8] "); // r1 = pointer to TBufCBase
asm("str r2, [r1] "); // update length of TBufCBase
__JUMP(,lr);
}
__NAKED__ EXPORT_C void TDes8::Copy(const TUint8* /*aString*/)
//
// Copy a string to this descriptor.
//
{
asm("mov r2, r1 "); // r2=aString
asm("1: ");
asm("ldrb r3, [r2], #1 ");
asm("cmp r3, #0 ");
asm("bne 1b "); // loop until zero terminator reached
asm("sub r2, r2, r1 ");
asm("sub r2, r2, #1 "); // r2=length of string
asm("ldmia r0, {r3,r12} "); // r3=type/length of this, r12=maxlength
asm("cmp r2, r12 "); // compare new length against maxlength
asm("bgt " CSM_Z20Des8PanicDesOverflowv);
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("and r3, r3, #0xF0000000 "); // r3=type of this
asm("orr r3, r3, r2 "); // r3=new type/length
asm("str r3, [r0], #4 "); // store it
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("streq r2, [r0], #4 "); // if EBufCPtr, update length of TBufCBase, r0=Ptr()
asm("b memmove ");
}
__NAKED__ EXPORT_C void TDes8::Copy(const TUint8* /*aBuf*/,TInt /*aLength*/)
//
// Copy the aLength characters to the descriptor.
//
{
asm("ldmia r0, {r3,r12} "); // r3=type/length of this, r12=maxlength
asm("cmp r2, r12 "); // compare new length against maxlength
asm("bhi " CSM_Z20Des8PanicDesOverflowv); // Des8Panic if >MaxLength or -ve
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("and r3, r3, #0xF0000000 "); // r3=type of this
asm("orr r3, r3, r2 "); // r3=new type/length
asm("str r3, [r0], #4 "); // store it
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("streq r2, [r0], #4 "); // if EBufCPtr, update length of TBufCBase, r0=Ptr()
asm("b memmove ");
}
__NAKED__ EXPORT_C void TDes8::Copy(const TDesC8& /*aDes*/)
//
// Copy a descriptor to this descriptor.
//
{
asm("ldr r3, [r1], #4 "); // r3 = type/length of aDes
asm("bic r12, r3, #0xF0000000"); // r12 = aDes.length
asm("ldr r2, [r0, #4] "); // r2=this.maxlength
asm("cmp r12, r2 "); // compare with maxlength
asm("bgt " CSM_Z20Des8PanicDesOverflowv);
asm("ldr r2, [r0] "); // get type of this
asm("cmp r2, #0x50000000 "); // check both descriptor types
asm("cmpcc r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("and r2, r2, #0xF0000000 ");
asm("orr r2, r12, r2 "); // r2=new type/length of this
asm("str r2, [r0], #4 "); // store it
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1 = aDes.Ptr()
asm("eor r2, r2, r2, lsr #1 ");
asm("msr cpsr_flg, r2 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("streq r12, [r0], #4 "); // if EBufCPtr, update length of TBufCBase, r0=Ptr()
asm("mov r2, r12 "); // length into r2 for function call
asm("b memmove ");
}
#ifndef __KERNEL_MODE__
__NAKED__ EXPORT_C TPtr8 TDes8::LeftTPtr(TInt /*aLength*/) const
//
// Extract the left portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aLength
// Return TPtr8 ([r0]=length/type,[r0,#4]=maxLength,[r0,#8]=Ptr)
asm("ldr r3, [r1], #4 "); // r3=this.length/type
asm("cmp r2, #0 "); // check aLength>=0
asm("blt " CSM_Z27Des8PanicDesIndexOutOfRangev); // if not panic
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r2, r12 "); // limit aLength to Length()
asm("movgt r2, r12 ");
asm("cmp r3, #0x50000000 "); // check type() <= 4
asm("bcs " CSM_Z19Des8PanicBadDesTypev); // if not, panic
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1=this.Ptr()
asm("mov r3, r1 "); // r3=this.Ptr()
asm("orr r1, r2, #0x20000000 "); // r1=aLength + EPtr
asm("stmia r0, {r1-r3} ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtr8 TDes8::RightTPtr(TInt /*aLength*/) const
//
// Extract the right portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aLength
// Return TPtr8 ([r0]=length/type,[r0,#4]=maxLength,[r0,#8]=Ptr)
asm("ldr r3, [r1], #4 "); // r3=this.length/type
asm("cmp r2, #0 "); // check aLength>=0
asm("blt " CSM_Z27Des8PanicDesIndexOutOfRangev); // if not, panic
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r2, r12 "); // limit aLength to Length()
asm("movgt r2, r12 ");
asm("cmp r3, #0x50000000 "); // check type() <= 4
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1=this.Ptr()
asm("add r3, r1, r12 "); // r3=this.Ptr()+Length()
asm("orr r1, r2, #0x20000000 "); // r1=aLength + EPtr
asm("sub r3, r3, r2 "); // r3=Ptr()+Length()-aLength
asm("stmia r0, {r1-r3} ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtr8 TDes8::MidTPtr(TInt /*aPos*/) const
//
// Extract the middle portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aPos
// Return TPtr8 ([r0]=length/type,[r0,#4]=maxLength,[r0,#8]=Ptr)
asm("ldr r3, [r1], #4 "); // r3=this.length/type
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r2, #0 "); // check aPos>=0
asm("cmpge r12, r2 "); // if so check Length()>=aPos
asm("blt " CSM_Z27Des8PanicDesIndexOutOfRangev);
asm("cmp r3, #0x50000000 "); // check type() <= 4
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1=this.Ptr()
asm("add r3, r1, r2 "); // r3=this.Ptr()+aPos
asm("sub r2, r12, r2 "); // r2=Length()-aPos (=newMaxLen)
asm("orr r1, r2, #0x20000000 "); // r1=Length()-aPos + EPtr (=newLen/Type)
asm("stmia r0, {r1-r3} ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtr8 TDes8::MidTPtr(TInt /*aPos*/,TInt /*aLength*/) const
//
// Extract the middle portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aPos, r3=aLength
// Return TPtr8 ([r0]=length/type,[r0,#4]=maxLength,[r0,#8]=Ptr)
asm("str r4, [sp, #-4]! "); // save r4
asm("ldr r12, [r1], #4 "); // r12=this.length/type
asm("mov r4, r1 ");
asm("cmp r12, #0x50000000 "); // check valid descriptor type
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r12, r12, r12, lsr #1 ");
asm("msr cpsr_flg, r12 ");
asm("ldr r12, [r1, #-4] ");
asm("addcs r4, r4, #4 ");
asm("ldrle r4, [r4] ");
asm("bic r12, r12, #0xF0000000 "); // r12=Length()
asm("addeq r4, r4, #4 "); // r4=this.Ptr()
asm("cmp r2, #0 "); // check aPos>=0
asm("subge r12, r12, r2 "); // if so, r12=Length()-aPos
asm("cmpge r12, r3 "); // and check Length()-aPos>=aLength
asm("orrge r1, r3, #0x20000000 "); // if so, r1=aLength + EPtr
asm("addge r3, r4, r2 "); // and r3=this.Ptr()+aPos
asm("bicge r2, r1, #0xF0000000 "); // and r2=aLength
asm("stmgeia r0, {r1-r3} ");
asm("ldrge r4, [sp], #4 ");
__JUMP(ge,lr);
asm("b " CSM_Z27Des8PanicDesIndexOutOfRangev);
}
#endif
__NAKED__ EXPORT_C const TUint8 &TDesC8::AtC(TInt /*anIndex*/) const
//
// Return a reference to the character in the buffer.
//
{
asm("ldr r2, [r0], #4 "); // r2=length/type
asm("bic r3, r2, #0xF0000000 "); // r3=length
asm("cmp r2, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r2, r2, r2, lsr #1 ");
asm("msr cpsr_flg, r2 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("cmp r1, #0 "); // check index>=0
asm("cmpge r3, r1 "); // if so, check Length()>index
asm("addgt r0, r0, r1 "); // return value = this.Ptr()+index
__JUMP(gt,lr);
asm("b " CSM_Z27Des8PanicDesIndexOutOfRangev);
}
__NAKED__ EXPORT_C TInt TDesC8::Locate(TChar /*aChar*/) const
//
// Locate character aChar in the descriptor.
//
{
asm("ldr r2, [r0], #4 "); // r2=length/type
asm("cmp r2, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("bics r3, r2, #0xF0000000 "); // r3=length
asm("mvneq r0, #0 "); // if length=0, not found
__JUMP(eq,lr);
asm("eor r2, r2, r2, lsr #1 ");
asm("msr cpsr_flg, r2 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("add r3, r3, r0 "); // r3=ptr+length
asm("add r12, r0, #1 "); // r12=ptr+1
asm("1: ");
asm("ldrb r2, [r0], #1 "); // r2=*r0++
asm("cmp r1, r2 "); // is r1=match char?
asm("cmpne r0, r3 "); // if not, is r0=r3 (end pointer)
asm("bne 1b ");
asm("cmp r1, r2 "); // did we find char?
asm("subeq r0, r0, r12 "); // if we did, return value = r0-ptr-1
asm("mvnne r0, #0 "); // else return value =-1
__JUMP(,lr);
}
__NAKED__ EXPORT_C TInt TDesC8::LocateReverse(TChar /*aChar*/) const
//
// Locate character aChar in the descriptor in reverse.
//
{
asm("ldr r2, [r0], #4 "); // r2=length/type
asm("cmp r2, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("bics r3, r2, #0xF0000000 "); // r3=length
asm("mvneq r0, #0 "); // if length=0, not found
__JUMP(eq,lr);
asm("eor r2, r2, r2, lsr #1 ");
asm("msr cpsr_flg, r2 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("sub r0, r0, #1 "); // r0=Ptr-1
asm("1: ");
asm("ldrb r2, [r0, r3] "); // r2=Ptr[r3-1]
asm("cmp r1, r2 "); // is r1=match char?
asm("subnes r3, r3, #1 "); // if not, decrement char count
asm("bne 1b ");
asm("cmp r1, r2 "); // did we find match char?
asm("subeq r0, r3, #1 "); // if we did, return value = r3-1
asm("mvnne r0, #0 "); // else return value =-1
__JUMP(,lr);
}
#ifndef __KERNEL_MODE__
__NAKED__ EXPORT_C TInt TDesC8::CompareF(const TDesC8& /*aDes*/) const
//
// Compare a descriptor to this descriptor folded.
//
{
asm("ldr r12, 1f ");
asm("b comparebody ");
asm("1: ");
asm(".word " CSM_ZN3Mem8CompareFEPKhiS1_i);
}
__NAKED__ EXPORT_C TInt TDesC8::CompareC(const TDesC8& /*aDes*/) const
//
// Compare a descriptor to this descriptor collated.
//
{
asm("ldr r12, 1f ");
asm("b comparebody ");
asm("1: ");
asm(".word " CSM_ZN3Mem8CompareCEPKhiS1_i);
}
#endif
__NAKED__ EXPORT_C TInt TDesC8::Compare(const TDesC8& /*aDes*/) const
//
// Compare a descriptor to this descriptor.
//
{
asm("ldr r12, 1f ");
asm("comparebody: ");
asm("mov r2, r1 "); // r2=&aDes
asm("ldr r3, [r0], #4 "); // r3=this.length/type
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("bic r1, r3, #0xF0000000 "); // r1=this.Length()
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("ldr r3, [r2], #4 "); // r3=aDes.length/type
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("ldr r3, [r2, #-4] ");
asm("bic r3, r3, #0xF0000000 "); // r3=aDes.Length()
asm("addcs r2, r2, #4 ");
asm("ldrle r2, [r2] ");
asm("addeq r2, r2, #4 "); // r2=aDes.Ptr()
__JUMP(,r12);
asm("1: ");
asm(".word memcompare ");
}
#endif // __DES8_MACHINE_CODED__
#if defined(__DES8_MACHINE_CODED__) && !defined(__EABI__)
__NAKED__ EXPORT_C TPtrC8 TDesC8::Left(TInt /*aLength*/) const
//
// Extract the left portion of the descriptor.
//
{
// On entry r0=this, r1=aLength
// Return TPtrC8 in r0,r1
asm("ldr r3, [r0], #4 "); // r3=this.length/type
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r1, #0 "); // check aLength>=0
asm("blt " CSM_Z22Des8PanicPosOutOfRangev); // if not panic
asm("cmp r1, r12 "); // else limit aLength to Length()
asm("movgt r1, r12 ");
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("orr r2, r1, #0x10000000 "); // r2=aLength + EPtrC
asm("mov r1, r0 "); // r1=result ptr
asm("mov r0, r2 "); // r0=result type/length
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8 TDesC8::Right(TInt /*aLength*/) const
//
// Extract the right portion of the descriptor.
//
{
// On entry r0=this, r1=aLength
// Return TPtrC8 in r0,r1
asm("ldr r3, [r0], #4 "); // r3=this.length/type
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r1, #0 "); // check aLength>=0
asm("blt " CSM_Z22Des8PanicPosOutOfRangev); // if not, panic
asm("cmp r1, r12 "); // else limit aLength to Length()
asm("movgt r1, r12 ");
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("add r3, r0, r12 "); // r3=this.Ptr()+len
asm("orr r0, r1, #0x10000000 "); // r0=aLength + EPtrC
asm("sub r1, r3, r1 "); // r1=Ptr()+len-aLength
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8 TDesC8::Mid(TInt /*aPos*/) const
//
// Extract the middle portion of the descriptor.
//
{
// On entry r0=this, r1=aPos
// Return TPtrC8 in r0,r1
asm("ldr r3, [r0], #4 "); // r3=this.length/type
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r1, #0 "); // check aPos>=0
asm("cmpge r12, r1 "); // if so check Length()>=aPos
asm("blt " CSM_Z22Des8PanicPosOutOfRangev);
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("sub r2, r12, r1 "); // r2=len-aPos
asm("add r1, r0, r1 "); // r1=this.Ptr()+aPos
asm("orr r0, r2, #0x10000000 "); // r0=aLength + EPtrC
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8 TDesC8::Mid(TInt /*aPos*/,TInt /*aLength*/) const
//
// Extract the middle portion of the descriptor.
//
{
// On entry r0=this, r1=aPos, r2=aLength
// Return TPtrC8 in r0,r1
asm("ldr r12, [r0], #4 "); // r12=this.length/type
asm("cmp r12, #0x50000000 "); // check valid descriptor type
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r12, r12, r12, lsr #1 ");
asm("msr cpsr_flg, r12 ");
asm("ldr r12, [r0, #-4] ");
asm("bic r12, r12, #0xF0000000 "); // r12=Length()
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=this.Ptr()
asm("cmp r1, #0 "); // check aPos>=0
asm("subge r12, r12, r1 "); // if so, r12=Length()-aPos
asm("cmpge r12, r2 "); // and check Length()-aPos>=aLength
asm("addge r1, r1, r0 "); // if so, r1=Ptr()+aPos
asm("orrge r0, r2, #0x10000000 "); // and r0 = aLength + EPtrC
__JUMP(ge,lr);
asm("b " CSM_Z22Des8PanicPosOutOfRangev);
}
#endif // defined(__DES8_MACHINE_CODED__) && !defined(__EABI__)
#ifdef __DES8_MACHINE_CODED__
// Here are the __EABI__ compliant versions of the above
#ifdef __EABI__
__NAKED__ EXPORT_C TPtrC8 TDesC8::Left(TInt /*aLength*/) const
//
// Extract the left portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aLength
// Return TPtrC8 ([r0]=length/type,[r0,#4]=Ptr)
asm("ldr r3, [r1], #4 "); // r3=this.length/type
asm("cmp r2, #0 "); // check aLength>=0
asm("blt " CSM_Z27Des8PanicDesIndexOutOfRangev); // if not panic
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r2, r12 "); // limit aLength to Length()
asm("movgt r2, r12 ");
asm("cmp r3, #0x50000000 "); // check type() <= 4
asm("bcs " CSM_Z19Des8PanicBadDesTypev); // if not, panic
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1=this.Ptr()
asm("mov r3, r1"); // r3=this.Ptr()
asm("orr r1, r2, #0x10000000 "); // r1=aLength + EPtrC
asm("stmia r0, {r1,r3} ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8 TDesC8::Right(TInt /*aLength*/) const
//
// Extract the right portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aLength
// Return TPtrC8 ([r0]=length/type,[r0,#4]=Ptr)
asm("ldr r3, [r1], #4 "); // r3=this.length/type
asm("cmp r2, #0 "); // check aLength>=0
asm("blt " CSM_Z27Des8PanicDesIndexOutOfRangev); // if not, panic
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r2, r12 "); // limit aLength to Length()
asm("movgt r2, r12 ");
asm("cmp r3, #0x50000000 "); // check type() <= 4
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r3=this.Ptr()
asm("add r3, r1, r12 "); // r3=this.Ptr()+Length()
asm("orr r1, r2, #0x10000000 "); // r1=aLength + EPtrC
asm("sub r3, r3, r2 "); // r3=Ptr()+Length()-aLength
asm("stmia r0, {r1,r3} ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8 TDesC8::Mid(TInt /*aPos*/) const
//
// Extract the middle portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aPos
// Return TPtrC8 ([r0]=length/type,[r0,#4]=Ptr)
asm("ldr r3, [r1], #4 "); // r3=this.length/type
asm("bic r12, r3, #0xF0000000 "); // r12=this.Length()
asm("cmp r2, #0 "); // check aPos>=0
asm("cmpge r12, r2 "); // if so check Length()>=aPos
asm("blt " CSM_Z27Des8PanicDesIndexOutOfRangev);
asm("cmp r3, #0x50000000 "); // check type() <= 4
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1=this.Ptr()
asm("add r3, r1, r2 "); // r3=this.Ptr()+aPos
asm("sub r2, r12, r2 "); // r2=Length()-aPos (=newMaxLen)
asm("orr r1, r2, #0x10000000 "); // r1=Length()-aPos + EPtrC (=newLen/Type)
asm("stmia r0, {r1,r3} ");
__JUMP(,lr);
}
__NAKED__ EXPORT_C TPtrC8 TDesC8::Mid(TInt /*aPos*/,TInt /*aLength*/) const
//
// Extract the middle portion of the descriptor.
//
{
// On entry r0=return store ptr, r1=this, r2=aPos, r3=aLength
// Return TPtrC8 ([r0]=length/type,[r0,#4]=Ptr)
asm("ldr r12, [r1], #4 "); // r12=this.length/type
asm("cmp r12, #0x50000000 "); // check valid descriptor type
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r12, r12, r12, lsr #1 ");
asm("msr cpsr_flg, r12 ");
asm("ldr r12, [r1, #-4] ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("bic r12, r12, #0xF0000000 "); // r12=Length()
asm("addeq r1, r1, #4 "); // r1=this.Ptr()
asm("cmp r2, #0 "); // check aPos>=0
asm("subge r12, r12, r2 "); // if so, r12=Length()-aPos
asm("cmpge r12, r3 "); // and check Length()-aPos>=aLength
asm("addge r2, r1, r2 "); // if so r2=this.Ptr()+aPos
asm("orrge r1, r3, #0x10000000 "); // and r1=aLength + EPtrC
asm("stmgeia r0, {r1,r2} ");
__JUMP(ge,lr);
asm("b " CSM_Z27Des8PanicDesIndexOutOfRangev);
}
#endif
__NAKED__ EXPORT_C void TDes8::Zero()
//
// Zero the buffer.
//
{
asm("ldr r1, [r0] "); // r1=length/type
asm("and r1, r1, #0xF0000000 "); // r1=type field, zero length
asm("cmp r1, #0x40000000 "); // check for EBufCPtr
asm("str r1, [r0] "); // store zero length
__JUMP(ne,lr);
asm("ldr r2, [r0, #8] "); // r2 = pointer to TBufCBase
asm("mov r1, #0 ");
asm("str r1, [r2] "); // update length of TBufCBase
__JUMP(,lr);
}
#ifndef __KERNEL_MODE__
__NAKED__ EXPORT_C void TDes8::ZeroTerminate()
//
// Zero terminate at Length().
//
{
// Fall through to PtrZ below...
}
__NAKED__ EXPORT_C const TUint8 *TDes8::PtrZ()
//
// Return a pointer to a 0 terminated string.
//
{
asm("ldmia r0, {r1,r2} "); // r1=length/type, r2=maxlength
asm("bic r3, r1, #0xF0000000 "); // r3=Length();
asm("cmp r3, r2 "); // check Length()<MaxLength()
asm("bge " CSM_Z20Des8PanicDesOverflowv);
asm("cmp r1, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("eor r1, r1, r1, lsr #1 ");
asm("msr cpsr_flg, r1 ");
asm("add r0, r0, #4 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=Ptr()
asm("mov r2, #0 ");
asm("strb r2, [r0, r3] "); // Ptr()[Length()]=0;
__JUMP(,lr);
}
#endif
__NAKED__ EXPORT_C void TDes8::Append(TChar /*aChar*/)
//
// Add a character at the end of the string.
//
{
asm("ldmia r0, {r2,r3} "); // r2=length/type, r3=maxlength
asm("bic r12, r2, #0xF0000000 "); // r12=Length();
asm("cmp r12, r3 "); // check Length()<MaxLength()
asm("bge " CSM_Z20Des8PanicDesOverflowv);
asm("cmp r2, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("add r2, r2, #1 "); // increment length by 1
asm("str r2, [r0] "); // store new length
asm("eor r2, r2, r2, lsr #1 ");
asm("msr cpsr_flg, r2 ");
asm("add r2, r0, #4 "); // r2=this+4
asm("addcs r2, r2, #4 ");
asm("ldrle r2, [r2] ");
asm("addeq r3, r12, #1 "); // if EBufCPtr, r3=Length()+1
asm("streq r3, [r2], #4 "); // and update length of TBufCBase, r2=Ptr()
asm("strb r1, [r2, r12] "); // Ptr()[Length()]=aChar;
__JUMP(,lr);
}
__NAKED__ EXPORT_C void TDes8::Append(const TDesC8& /*aDes*/)
//
// Append a descriptor to this descriptor.
//
{
asm("ldr r3, [r1], #4 "); // r3=aDes.length/type
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("bics r2, r3, #0xF0000000 "); // r2=aDes.Length()
__JUMP(eq,lr);
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("addcs r1, r1, #4 ");
asm("ldrle r1, [r1] ");
asm("addeq r1, r1, #4 "); // r1=aDes.Ptr()
asm("b appendbody "); // use following routine for rest of job
}
__NAKED__ EXPORT_C void TDes8::Append(const TUint8* /*aBuf*/,TInt /*aLength*/)
//
// Append aLength from aBuf characters to the descriptor.
//
{
asm("cmp r2, #0 "); // check aLength>=0
__JUMP(eq,lr);
asm("blt " CSM_Z23Des8PanicLengthNegativev);
asm("appendbody: ");
asm("ldmia r0, {r3,r12} "); // r3=type/length, r12=maxlength
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("bic r3, r3, #0xF0000000 "); // r3=Length()
asm("sub r12, r12, r3 "); // r12=MaxLength-Length
asm("cmp r2, r12 "); // check aLength<=(MaxLength-Length)
asm("bgt " CSM_Z20Des8PanicDesOverflowv);
asm("ldr r12, [r0] ");
asm("add r12, r12, r2 "); // new length/type field
asm("str r12, [r0], #4 "); // store it
asm("eor r12, r12, r12, lsr #1 ");
asm("msr cpsr_flg, r12 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("ldreq r12, [r0] "); // fetch length from TBufCBase
asm("addeq r12, r12, r2 "); // add aLength
asm("streq r12, [r0], #4 "); // update length of TBufCBase, r0=Ptr()
asm("add r0, r0, r3 "); // r0=Ptr()+Length()
asm("b memmove ");
}
__NAKED__ EXPORT_C void TDes8::FillZ()
//
// Fill the descriptor with 0.
//
{
asm("ldr r2, [r0] "); // r2=length/type
asm("cmp r2, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("bic r1, r2, #0xF0000000 "); // r1=Length()
asm("eor r2, r2, r2, lsr #1 ");
asm("msr cpsr_flg, r2 ");
asm("add r0, r0, #4 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=Ptr()
asm("b memclr ");
}
__NAKED__ EXPORT_C void TDes8::Fill(TChar /*aChar*/)
//
// Fill the descriptor with aChar.
//
{
asm("ldr r3, [r0] "); // r3=length/type
asm("cmp r3, #0x50000000 ");
asm("bcs " CSM_Z19Des8PanicBadDesTypev);
asm("bic r2, r3, #0xF0000000 "); // r2=Length()
asm("eor r3, r3, r3, lsr #1 ");
asm("msr cpsr_flg, r3 ");
asm("add r0, r0, #4 ");
asm("addcs r0, r0, #4 ");
asm("ldrle r0, [r0] ");
asm("addeq r0, r0, #4 "); // r0=Ptr()
asm("b memset "); // memset(Ptr(),aChar,Length())
}
#endif //__DES8_MACHINE_CODED__
#ifdef __DES_MACHINE_CODED__
__NAKED__ GLDEF_C TInt __DoConvertNum(TUint /*aVal*/, TRadix /*aRadix*/, TUint /*aA*/, TUint8*& /*aDest*/)
{
asm("ldr ip, [r3] "); // ip = aDest
asm("cmp r1, #16 ");
asm("beq do_convert_hex ");
asm("cmp r1, #10 ");
asm("beq do_convert_dec ");
#ifdef __KERNEL_MODE__
asm("mov r0, #%a0" : : "i" ((TInt)EInvalidRadix));
asm("b " CSM_Z5Panic9TCdtPanic);
#else // !__KERNEL_MODE__
asm("cmp r1, #2 ");
asm("beq do_convert_bin ");
asm("cmp r1, #8 ");
asm("beq do_convert_oct ");
asm("do_convert_any: ");
asm("stmfd sp!, {r4-r8,lr} ");
asm("mov r5, r1 "); // save radix
asm("and r6, r2, #0xff ");
asm("sub r6, r6, #10 "); // save aA - 10
asm("mov r4, ip "); // r4 = aDest
asm("mov r7, r3 "); // save &aDest
asm("mov r8, r2"); // save aA
asm("1: ");
asm("mov r1, r5 "); // r1 = radix
#ifndef __EABI__
asm(".extern __umodsi3 ");
asm("bl __umodsi3 "); // do division, quotient->r3, rem->r0
asm("mov r1, r0"); // move to make regs same as EABI function
asm("mov r0, r3");
#else //__EABI__
asm(".extern __aeabi_uidivmod ");
asm("bl __aeabi_uidivmod "); // do division, quotient->r0, rem->r1
#endif //__EABI__
asm("cmp r1, #9 ");
asm("addhi r1, r1, r6 "); // r1 = (r1 > 9) ? (r1 + (aA - 10)) : r1 + '0'
asm("addls r1, r1, #0x30 ");
asm("tst r8, #0x100 ");
asm("strneh r1, [r4, #-2]! "); // *--r4 = (TUint16)r1
asm("streqb r1, [r4, #-1]! "); // *--r4 = (TUint8)r1
asm("movs r1, r0 "); // new aVal into r1
asm("bne 1b ");
asm("ldr ip, [r7] "); // ip can be scratched by __aeabi_uidivmod
asm("str r4, [r7] "); // aDest = r4
asm("sub r0, ip, r4 "); // return aDest - r4
__POPRET("r4-r8,");
asm("do_convert_bin: ");
asm("mov r2, r2, lsl #22 "); // aA bit 8 into bit 30
asm("adds r2, r2, r2 "); // set V flag = aA bit 8
asm("1: ");
asm("movs r0, r0, lsr #1 "); // aVal>>=1, bit 0 into carry, V unaffected
asm("mov r1, #0x30 "); // r1 = '0'
asm("adc r1, r1, #0 "); // add in carry
asm("strvsh r1, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r1, [ip, #-1]! "); // else store 8 bits
asm("bne 1b "); // loop back if aVal still nonzero
asm("ldr r1, [r3] "); // r1 = original aDest
asm("str ip, [r3] "); // aDest = ip
asm("sub r0, r1, ip "); // return aDest - ip
__JUMP(,lr);
asm("do_convert_oct: ");
asm("mov r2, r2, lsl #22 "); // aA bit 8 into bit 30
asm("adds r2, r2, r2 "); // set V flag = aA bit 8
asm("1: ");
asm("and r1, r0, #7 "); // r1 = aVal & 7
asm("movs r0, r0, lsr #3 "); // aVal>>=3, set Z accordingly, V unaffected
asm("add r1, r1, #0x30 "); // r1 += '0'
asm("strvsh r1, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r1, [ip, #-1]! "); // else store 8 bits
asm("bne 1b "); // loop back if aVal still nonzero
asm("ldr r1, [r3] "); // r1 = original aDest
asm("str ip, [r3] "); // aDest = ip
asm("sub r0, r1, ip "); // return aDest - ip
__JUMP(,lr);
#endif //__KERNEL_MODE__
asm("do_convert_hex: ");
asm("mov r1, r2, lsl #22 "); // aA bit 8 into r1 bit 30
asm("adds r1, r1, r1 "); // set V flag = aA bit 8
asm("and r2, r2, #0xff ");
asm("sub r2, r2, #0x40 ");
asm("1: ");
asm("and r1, r0, #15 "); // r1 = aVal & 15
asm("add r1, r1, #0x36 "); // r1 += '0'+6
asm("tst r1, #0x40 ");
asm("subeq r1, r1, #6 ");
asm("addne r1, r1, r2 ");
asm("movs r0, r0, lsr #4 "); // aVal>>=4, V unaffected
asm("strvsh r1, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r1, [ip, #-1]! "); // else store 8 bits
asm("bne 1b "); // loop back if aVal still nonzero
asm("ldr r1, [r3] "); // r1 = original aDest
asm("str ip, [r3] "); // aDest = ip
asm("sub r0, r1, ip "); // return aDest - ip
__JUMP(,lr);
asm("do_convert_dec: ");
asm("and r2, r2, #0x100 "); // mask all bits of aA except bit 8
asm("orr r3, r3, r2, lsr #8 "); // r3 bit 0 = aA bit 8
asm("1: ");
asm("sub r1, r0, #10 "); // divide aVal by 10, r0=quotient, r1=remainder
asm("sub r0, r0, r0, lsr #2 ");
asm("add r0, r0, r0, lsr #4 ");
asm("add r0, r0, r0, lsr #8 ");
asm("add r0, r0, r0, lsr #16 ");
asm("mov r0, r0, lsr #3 ");
asm("add r2, r0, r0, lsl #2 ");
asm("subs r1, r1, r2, lsl #1 ");
asm("addpl r0, r0, #1 ");
asm("addmi r1, r1, #10 ");
asm("add r1, r1, #0x30 "); // add '0' to remainder
asm("tst r3, #1 "); // test aA bit 8
asm("strneh r1, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("streqb r1, [ip, #-1]! "); // else store 8 bits
asm("teq r0, #0 ");
asm("bne 1b "); // loop back if aVal still nonzero
asm("bic r3, r3, #1 ");
asm("ldr r1, [r3] "); // r1 = original aDest
asm("str ip, [r3] "); // aDest = ip
asm("sub r0, r1, ip "); // return aDest - ip
__JUMP(,lr);
}
__NAKED__ GLDEF_C TInt __DoConvertNum(TUint64 /*aVal*/, TRadix /*aRadix*/, TUint /*aA*/, TUint8*& /*aDest*/)
{
asm("ldr ip, [sp] "); // ip = &aDest
asm("cmp r2, #16 ");
asm("beq do_convert_hex64 ");
asm("cmp r2, #10 ");
asm("beq do_convert_dec64 ");
#ifdef __KERNEL_MODE__
asm("mov r0, #%a0" : : "i" ((TInt)EInvalidRadix));
asm("b " CSM_Z5Panic9TCdtPanic);
#else // !__KERNEL_MODE__
asm("cmp r2, #2 ");
asm("beq do_convert_bin64 ");
asm("cmp r2, #8 ");
asm("beq do_convert_oct64 ");
asm("stmfd sp!, {r4-r8,lr} ");
asm("ldr r4, [ip] "); // r4 = aDest
asm("mov r5, r2 "); // save radix
asm("and r6, r3, #0xff "); // r6 = aA & 0xff
asm("sub r6, r6, #10 "); // save a - 10
asm("mov r7, ip "); // save &aDest
asm("mov r8, r3"); // save aA
asm("teq r1, #0 "); // aVal > 0xffffffffu
asm("beq 2f ");
asm("1: ");
asm("mov r3, #0 ");
asm("mov r2, r5 "); // r3:r2 = radix
#ifndef __EABI__
asm("stmfd sp!, {r4-r6} "); // push the registers that are scratched by UDiv01
asm(".extern UDiv01 ");
asm("bl UDiv01 "); // do division, quotient->r5:r4, rem->r6:r3
asm("mov r0, r4"); // move to make regs same as EABI function
asm("mov r1, r5");
asm("mov r2, r3");
asm("mov r3, r6");
asm("ldmfd sp!, {r4-r6} "); // pop the registers that are scratched by UDiv01
#else //__EABI__
asm(".extern __aeabi_uldivmod ");
asm("bl __aeabi_uldivmod "); // do division, quotient->r1:r0, rem->r3:r2
#endif //__EABI__
asm("cmp r2, #9 ");
asm("addhi r2, r2, r6 "); // r2 = (r2>9) ? r2+aA-10 : r2+'0'
asm("addls r2, r2, #0x30 ");
asm("tst r8, #0x100 ");
asm("strneh r2, [r4, #-2]! "); // *--r4 = (TUint16)r2
asm("streqb r2, [r4, #-1]! "); // *--r4 = (TUint8)r2
asm("teq r1, #0 "); // new aVal > 0xffffffffu
asm("bne 1b ");
asm("2: ");
asm("mov r2, r8 "); // r2 = aA
asm("ldr r1, [r7] "); // r1 = aDest
asm("mov r3, r7 "); // r3 = &aDest
asm("sub r6, r1, r4 "); // r6 = aDest - r4
asm("mov r1, r5 "); // r1 = radix
asm("str r4, [r3] "); // aDest = r4
asm("mov ip, r4 "); // ip = aDest
asm("bl do_convert_any ");
asm("add r0, r0, r6 "); // r0 += r6
__POPRET("r4-r8,");
asm("do_convert_bin64: ");
asm("mov r2, ip "); // r2 = &aDest
asm("ldr ip, [ip] "); // ip = aDest
asm("mov r3, r3, lsl #22 "); // aA bit 8 into bit 30
asm("adds r3, r3, r3 "); // set V flag = aA bit 8
asm("teq r1, #0 "); // if (aVal <= 0xffffffffu)
asm("moveq r1, ip "); // r1 = orig. aDest in second half
asm("beq 2f "); // branch to second half of the loop
asm("1: ");
asm("movs r0, r0, lsr #1 "); // aVal >>= 1, bit 0 into carry, V unaffected
asm("mov r3, #0x30 "); // r3 = '0'
asm("adc r3, r3, #0 "); // add in carry
asm("strvsh r3, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r3, [ip, #-1]! "); // else store 8 bits
asm("bne 1b "); // loop back if (aVal & 0xffffffffu) still nonzero
asm("ldr r0, [r2] "); // r0 = original aDest
asm("subvc r0, r0, #32 "); // r0 = end of buffer for first word (8-bit descriptor)
asm("subvs r0, r0, #64 "); // r0 = end of buffer for first word (16-bit descriptor)
asm("teq ip, r0 "); // don't pad if we have already emitted 32 bits
asm("beq finish_bin_zero_pad ");
asm("bin_zero_pad: ");
asm("mov r3, #0x30 "); // r3 = '0'
asm("bin_zero_pad_loop: ");
asm("strvsh r3, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r3, [ip, #-1]! "); // else store 8 bits
asm("teq ip, r0 ");
asm("bne bin_zero_pad_loop "); // loop back if padding not complete
asm("finish_bin_zero_pad: ");
asm("addvc r0, r0, #32 "); // r0 = original aDest
asm("addvs r0, r0, #64 "); // r0 = original aDest
asm("mov r3, r1 ");
asm("mov r1, r0 ");
asm("mov r0, r3 "); // r1 = orig aDest, r0 = aVal >> 32
asm("2: ");
asm("movs r0, r0, lsr #1 "); // aVal >>= 1, bit 0 into carry, V unaffected
asm("mov r3, #0x30 "); // r3 = '0'
asm("adc r3, r3, #0 "); // add in carry
asm("strvsh r3, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r3, [ip, #-1]! "); // else store 8 bits
asm("bne 2b "); // loop back if aVal still nonzero
asm("str ip, [r2] "); // aDest = ip
asm("sub r0, r1, ip "); // return aDest - ip
__JUMP(,lr);
asm("do_convert_oct64: "); // Convert as 31 + 33 bits when > 32 bits
asm("mov r2, ip "); // r2 = &aDest
asm("ldr ip, [ip] "); // ip = aDest
asm("mov r3, r3, lsl #22 "); // aA bit 8 into bit 30
asm("adds r3, r3, r3 "); // set V flag = aA bit 8
asm("teq r1, #0 "); // if (aVal <= 0xffffffffu)
asm("moveq r1, ip "); // r1 = orig. aDest in second half
asm("beq 3f "); // branch to second half of the loop
asm("and r3, r0, #7 "); // r3 = aVal & 7
asm("mov r0, r0, lsr #3 "); // aVal>>=3, set Z accordingly, V unaffected
asm("orr r0, r0, r1, lsl #29 "); // note we now have the bottom 33 bits in r0:r3[2:0]
asm("ands r0, r0, #0x3fffffff "); // and the top 31 bits in r1
asm("mov r1, r1, lsr #1 ");
asm("add r3, r3, #0x30 "); // r3 += '0'
asm("strvsh r3, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r3, [ip, #-1]! "); // else store 8 bits
asm("beq 2f ");
asm("1: ");
asm("and r3, r0, #7 "); // r3 = aVal & 7
asm("movs r0, r0, lsr #3 "); // aVal>>=3, set Z accordingly, V unaffected
asm("add r3, r3, #0x30 "); // r3 += '0'
asm("strvsh r3, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r3, [ip, #-1]! "); // else store 8 bits
asm("bne 1b "); // loop back if (aVal & 0xffffffff) still nonzero
asm("2: ");
asm("ldr r0, [r2] "); // r0 = original aDest
asm("subvc r0, r0, #11 "); // r0 = end of buffer for first word (8-bit descriptor)
asm("subvs r0, r0, #22 "); // r0 = end of buffer for first word (16-bit descriptor)
asm("teq ip, r0 "); // don't pad if we have already emitted 32 bits
asm("beq finish_oct_zero_pad ");
asm("oct_zero_pad: ");
asm("mov r3, #0x30 "); // r3 = '0'
asm("oct_zero_pad_loop: ");
asm("strvsh r3, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r3, [ip, #-1]! "); // else store 8 bits
asm("teq ip, r0 ");
asm("bne oct_zero_pad_loop "); // loop back if padding not complete
asm("finish_oct_zero_pad: ");
asm("addvc r0, r0, #11 "); // r0 = original aDest
asm("addvs r0, r0, #22 "); // r0 = original aDest
asm("mov r3, r0 ");
asm("mov r0, r1 ");
asm("mov r1, r3 "); // r1 = orig aDest, r0 = aVal >> 32
asm("3: ");
asm("and r3, r0, #7 "); // r3 = aVal & 7
asm("movs r0, r0, lsr #3 "); // aVal>>=3, set Z accordingly, V unaffected
asm("add r3, r3, #0x30 "); // r3 += '0'
asm("strvsh r3, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r3, [ip, #-1]! "); // else store 8 bits
asm("bne 3b "); // loop back if aVal still nonzero
asm("str ip, [r2] "); // aDest = ip
asm("sub r0, r1, ip "); // return aDest - ip
__JUMP(,lr);
#endif //__KERNEL_MODE__
asm("do_convert_hex64: ");
asm("ldr ip, [ip] "); // ip = aDest
asm("mov r2, r3, lsl #22 "); // aA bit 8 into r2 bit 30
asm("adds r2, r2, r2 "); // set V flag = aA bit 8
asm("and r3, r3, #0xff "); // aA = aA & 0xff
asm("teq r1, #0 "); // if (aVal <= 0xffffffffu)
asm("sub r3, r3, #0x40 "); // bias by ('0' + 16) either way => r3 = aA - ('0' + 16)
asm("moveq r1, ip "); // r1 = orig. aDest in second half
asm("beq 2f "); // branch to second half of the loop
asm("1: ");
asm("and r2, r0, #0xf "); // r2 = aVal & 0xf
asm("add r2, r2, #0x36 "); // r2 += ('0' + 6)
asm("tst r2, #0x40 "); // if ((aVal & 0xf) > 9)
asm("addne r2, r2, r3 "); // r2 = (aVal & 0xf) + (aA - 10)
asm("subeq r2, r2, #6 "); // r2 = (aVal & 0xf) + '0'
asm("movs r0, r0, lsr #4 "); // aVal>>=4, V unaffected
asm("strvsh r2, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r2, [ip, #-1]! "); // else store 8 bits
asm("bne 1b "); // loop back if (aVal & 0xffffffffu) still nonzero
asm("ldr r0, [sp] "); // r0 = &aDest
asm("ldr r2, [r0] "); // r2 = original aDest
asm("subvc r0, r2, #8 "); // r0 = end of buffer for first word (8-bit descriptor)
asm("subvs r0, r2, #16 "); // r0 = end of buffer for first word (16-bit descriptor)
asm("teq ip, r0 "); // don't pad if we have already emitted 32 bits
asm("beq finish_hex_zero_pad ");
asm("hex_zero_pad: ");
asm("mov r2, #0x30 "); // r3 = '0'
asm("hex_zero_pad_loop: ");
asm("strvsh r2, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r2, [ip, #-1]! "); // else store 8 bits
asm("teq ip, r0 ");
asm("bne hex_zero_pad_loop "); // loop back if padding not complete
asm("finish_hex_zero_pad: ");
asm("addvc r0, r0, #8 "); // r0 = original aDest
asm("addvs r0, r0, #16 "); // r0 = original aDest
asm("mov r2, r0 ");
asm("mov r0, r1 ");
asm("mov r1, r2 "); // r1 = orig aDest, r0 = aVal >> 32
asm("2: ");
asm("and r2, r0, #0xf "); // r2 = aVal & 0xf
asm("add r2, r2, #0x36 "); // r2 += '0'+6
asm("tst r2, #0x40 ");
asm("subeq r2, r2, #6 "); // r2 = (aVal & 0xf) + '0'
asm("addne r2, r2, r3 "); // r2 = (aVal & 0xf) + (aA - 10)
asm("movs r0, r0, lsr #4 "); // aVal>>=4, V unaffected
asm("strvsh r2, [ip, #-2]! "); // if aA bit 8 set, store 16 bits
asm("strvcb r2, [ip, #-1]! "); // else store 8 bits
asm("bne 2b "); // loop back if aVal still nonzero
asm("ldr r2, [sp] "); // r2 = &aDest
asm("sub r0, r1, ip "); // return aDest - ip
asm("str ip, [r2] "); // aDest = ip
__JUMP(,lr);
#ifndef __FIXED_POINT_64BIT_DIV10__
asm("do_convert_dec64: "); // As generic case, except can save one reg as radix known
asm("stmfd sp!, {r4-r6,lr} ");
asm("ldr r4, [ip] "); // r4 = aDest
asm("mov r5, ip "); // save &aDest
asm("mov r6, r3"); // save aA
asm("teq r1, #0 "); // aVal > 0xffffffffu
asm("beq 2f ");
asm("1: ");
asm("mov r3, #0 ");
asm("mov r2, #10 "); // r3:r2 = radix
#ifndef __EABI__
asm("stmfd sp!, {r4-r6} "); // push the registers that are scratched by UDiv01
asm(".extern UDiv01 ");
asm("bl UDiv01 "); // do division, quotient->r5:r4, rem->r6:r3
asm("mov r0, r4"); // move to make regs same as EABI function
asm("mov r1, r5");
asm("mov r2, r3");
asm("mov r3, r6");
asm("ldmfd sp!, {r4-r6} "); // pop the registers that are scratched by UDiv01
#else //__EABI__
asm(".extern __aeabi_uldivmod ");
asm("bl __aeabi_uldivmod "); // do division, quotient->r1:r0, rem->r3:r2
#endif //__EABI__
asm("add r2, r2, #0x30 "); // add '0' to remainder
asm("tst r6, #0x100 ");
asm("strneh r2, [r4, #-2]! "); // *--r4 = (TUint16)r2
asm("streqb r2, [r4, #-1]! "); // *--r4 = (TUint8)r2
asm("teq r1, #0 "); // new aVal > 0xffffffffu
asm("bne 1b ");
asm("2: ");
asm("mov r2, r6 "); // r2 = aA
asm("ldr r1, [r5] "); // r1 = original aDest
asm("mov r3, r5 "); // r3 = &aDest
asm("sub r6, r1, r4 "); // r6 = original aDest - r4
asm("mov r1, #10 "); // r1 = radix
asm("str r4, [r3] "); // aDest = r4
asm("mov ip, r4 "); // ip = aDest
asm("bl do_convert_dec ");
asm("add r0, r0, r6 "); // r0 += r6
__POPRET("r4-r6,");
#else //__FIXED_POINT_64BIT_DIV10__
asm("do_convert_dec64: "); // Be extra cunning by doing fixed-point arithmetic using only shifts, adds and subtracts
asm("stmfd sp!, {r4-r7,lr} "); // - avoids costs of potentially inefficient calls to __aeabi_uldivmod
asm("mov r4, r3 "); // r4 = aA
asm("ldr r5, [ip] "); // r5 = aDest
asm("teq r1, #0 "); // aVal > 0xffffffffu
asm("beq 2f ");
asm("1: ");
asm("subs r2, r0, #10 "); // divide aVal by 10, r1:r0=quotient, r3:r2=remainder
asm("sbc r3, r1, #0 ");
asm("mov r6, r0, lsr #2 "); // NB: 0.8 rounded to 64 bits is:
asm("orr r6, r6, r1, lsl #30 "); // 0.11001100110011001100110011001100110011001100110011001100110011
asm("subs r0, r0, r6 ");
asm("sbc r1, r1, r1, lsr #2 "); // quotient -= quotient >> 2 (0.11)
asm("mov r6, r0, lsr #4 ");
asm("orr r6, r6, r1, lsl #28 ");
asm("adds r0, r0, r6 ");
asm("adc r1, r1, r1, lsr #4 "); // quotient += quotient >> 4 (0.110011)
asm("mov r6, r0, lsr #8 ");
asm("orr r6, r6, r1, lsl #24 ");
asm("adds r0, r0, r6 ");
asm("adc r1, r1, r1, lsr #8 "); // quotient += quotient >> 8 (0.11001100110011)
asm("mov r6, r0, lsr #16 ");
asm("orr r6, r6, r1, lsl #16 ");
asm("adds r0, r0, r6 ");
asm("adc r1, r1, r1, lsr #16 "); // quotient += quotient >> 16 (0.110011001100110011001100110011)
asm("adds r0, r0, r1 ");
asm("adc r1, r1, #0 "); // quotient += quotient >> 32 (0.11001100110011001100110011001100110011001100110011001100110011)
asm("mov r0, r0, lsr #3 ");
asm("orr r0, r0, r1, lsl #29 ");
asm("mov r1, r1, lsr #3 "); // quotient >>= 3 0.1 == (0.00011001100110011001100110011001100110011001100110011001100110011)
asm("mov r7, r1, lsl #2 "); // use r7:r6 as a temp
asm("orr r7, r7, r0, lsr #30 ");
asm("mov r6, r0, lsl #2 "); // r7:r6 = quotient << 2 == 4 * |aVal/10|
asm("adds r6, r6, r0 ");
asm("adc r7, r7, r1 "); // r7:r6 += quotient == 5 * |aVal/10|
asm("mov r7, r7, lsl #1 ");
asm("orr r7, r7, r6, lsr #31 ");
asm("mov r6, r6, lsl #1 "); // r7:r6 <<= 1 == 10 * |aVal/10|
asm("subs r2, r2, r6 ");
asm("sbcs r3, r3, r7 "); // r3:r2 = aVal - (10 * |aVal/10|) == remainder
asm("bpl fix_quotient ");
asm("adds r2, r2, #10 ");
asm("adc r3, r3, #0 "); // fix remainder
asm("b fix_end ");
asm("fix_quotient: ");
asm("adds r0, r0, #1 ");
asm("adc r1, r1, #0 "); // increment quotient
asm("fix_end: ");
asm("add r2, r2, #0x30 "); // add '0' to remainder
asm("tst r4, #0x100 "); // test aA bit 8
asm("strneh r2, [r5, #-2]! "); // if aA bit 8 set, store 16 bits
asm("streqb r2, [r5, #-1]! "); // else store 8 bits
asm("teq r1, #0 ");
asm("bne 1b "); // loop back if new aVal > 0xffffffffu
asm("2: ");
asm("mov r2, r4 "); // r2 = aA
asm("ldr r1, [ip] "); // r1 = original aDest
asm("mov r3, ip "); // r3 = &aDest
asm("sub r6, r1, r5 "); // r6 = original aDest - r5
asm("str r5, [r3] "); // aDest = r5
asm("mov r1, #10 "); // r1 = radix
asm("mov ip, r5 "); // ip = aDest
asm("bl do_convert_dec ");
asm("add r0, r0, r6 "); // r0 += r6
__POPRET("r4-r7,");
#endif //__FIXED_POINT_64BIT_DIV10__
}
#endif //__DES_MACHINE_CODED__