genericopenlibs/cstdlib/LSIGNAL/JMP_MARM.CPP
changeset 0 e4d67989cc36
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/genericopenlibs/cstdlib/LSIGNAL/JMP_MARM.CPP	Tue Feb 02 02:01:42 2010 +0200
@@ -0,0 +1,71 @@
+// 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 "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:
+//
+
+#include <setjmp.h>
+
+extern "C" {
+
+EXPORT_C int setjmp(jmp_buf __jmpb)
+	{
+#ifdef __MARM_THUMB__
+	//the function destroys the contents of {r0,r1,r2,r3} registers
+	//r0 is used to hold the retrun value
+	//r1,r2,r3 - they are used usually to hold functions arguments/temp data and are
+	//not expected to preserve their values between functions calls.
+	asm("stmia r0!, {r4-r7}");//bytes {0..15} are occupied by {r4,r5,r6,r7} registers
+	asm("mov r2, r8");
+	asm("mov r3, r9");
+	asm("mov r4, r10");
+	asm("mov r5, r11");
+	asm("mov r6, sp");
+	asm("mov r7, lr");
+	asm("stmia r0!, {r2-r7}");//bytes {16..39} are occupied by {r8,r9,r10,r11,sp,lr} registers
+	asm("sub r0, #40");//r0 points now to the beginning of __jmpb
+	asm("ldmia r0!, {r4-r7}");//restore the contents of {r4,r5,r6,r7} registers
+#else
+	asm("stmia	r0, {r4-r11, sp, lr}	"); // Save the context
+#endif
+	return(0);
+	}
+
+EXPORT_C void longjmp(jmp_buf __jmpb, int __retval)
+	{
+#ifdef __MARM_THUMB__
+	asm("mov	r3, r0"); // save the jmp_buf pointer
+	asm("add	r3, #16");		//add on 16 to get to high registers
+	asm("ldmia	r3!, {r4-r7}");  
+	asm("mov	r8,r4");
+	asm("mov	r9,r5");
+	asm("mov	r10,r6");
+	asm("mov	r11,r7");
+	asm("ldmia	r3!, {r4-r5}");	//get sp and lr
+	asm("mov	sp, r4");
+	asm("mov	lr, r5");
+	asm("mov	r3, r0");		//get the jmp_buf ptr again
+	asm("ldmia  r3!, {r4-r7}");	//and restore the lo regs
+	asm("mov	r0, r1"); // return(__retval)
+	asm("cmp    r0, #0");
+	asm("bne    1f");
+	asm("mov    r0, #1");
+	asm("1:");
+#else
+	asm("ldmia	r0, {r4-r11, sp, lr}	"); // Restore the context
+	asm("movs	r0, r1"); // return(__retval == 0 ? 1 : retval)
+	asm("moveq  r0, #1");
+#endif
+	return;
+	}
+
+} // extern "C"