X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Kernel%2Farch%2Farmv7%2Fproc.S;h=37f9650ac7c4ab977b861598a5486e287c30f426;hb=e31829ecc2b8ae2338745f4ed393748704a81531;hp=e92731461fbb4ee8745e9fa6b65649413fcc0dc8;hpb=2f9415b7b804073b0365781ad4f05a7306b6c890;p=tpg%2Facess2.git

diff --git a/Kernel/arch/armv7/proc.S b/Kernel/arch/armv7/proc.S
index e9273146..37f9650a 100644
--- a/Kernel/arch/armv7/proc.S
+++ b/Kernel/arch/armv7/proc.S
@@ -51,7 +51,7 @@ SwitchTask:
 	str sp, [r1]
 
 	@ Only update TTBR0 if the task has an explicit address space
-	ldr r1, [sp,#0x40]
+	ldr r1, [sp,#4*10]
 	tst r1, r1
 	mcrne p15, 0, r1, c2, c0, 0	@ Set TTBR0 to r0
 
@@ -79,8 +79,20 @@ Proc_CloneInt:
 	ldr r0, =Proc_CloneInt_new
 	pop {r4-r12,pc}
 Proc_CloneInt_new:
+	cps #18
+		
 	mov r0, #0
 	mov r1, #0x80000000
 	bl MM_DumpTables
+
+@	ldr r0, =csProc_CloneInt_NewTaskMessage
+@	bl Log
+	
+	cps #19
 	mov r0, #0
 	pop {r4-r12,pc}
+
+
+.section .rodata
+csProc_CloneInt_NewTaskMessage:
+	.asciz "New task"