2002-07-12 Chris Demetriou <cgd@broadcom.com>

* mips/array.ld (hardware_exit_hook, hardware_hazard_hook): New
        symbols for optionally-provided functions.
        * mips/ddb-kseg0.ld: Likewise.
        * mips/ddb.ld: Likewise.
        * mips/dve.ld: Likewise.
        * mips/idt.ld: Likewise.
        * mips/idt32.ld: Likewise.
        * mips/idt64.ld: Likewise.
        * mips/idtecoff.ld: Likewise.
        * mips/jmr3904app-java.ld: Likewise.
        * mips/jmr3904app.ld: Likewise.
        * mips/jmr3904dram-java.ld: Likewise.
        * mips/jmr3904dram.ld: Likewise.
        * mips/lsi.ld: Likewise.
        * mips/nullmon.ld: Likewise.
        * mips/pmon.ld: Likewise.
        * mips/crt0.S: Invoke hardware_exit_hook and hardware_hazard_hook
        functions if they are provided.
        (_exit): Handle __embedded_pic properly.

libgloss/ChangeLog

@@ -1,3 +1,25 @@
+2002-07-12  Chris Demetriou  <cgd@broadcom.com>
+
+        * mips/array.ld (hardware_exit_hook, hardware_hazard_hook): New
+        symbols for optionally-provided functions.
+        * mips/ddb-kseg0.ld: Likewise.
+        * mips/ddb.ld: Likewise.
+        * mips/dve.ld: Likewise.
+        * mips/idt.ld: Likewise.
+        * mips/idt32.ld: Likewise.
+        * mips/idt64.ld: Likewise.
+        * mips/idtecoff.ld: Likewise.
+        * mips/jmr3904app-java.ld: Likewise.
+        * mips/jmr3904app.ld: Likewise.
+        * mips/jmr3904dram-java.ld: Likewise.
+        * mips/jmr3904dram.ld: Likewise.
+        * mips/lsi.ld: Likewise.
+        * mips/nullmon.ld: Likewise.
+        * mips/pmon.ld: Likewise.
+        * mips/crt0.S: Invoke hardware_exit_hook and hardware_hazard_hook
+        functions if they are provided.
+        (_exit): Handle __embedded_pic properly.
+
 2002-06-18  Dave Brolley  <brolley@redhat.com>
 
 	From Catherine Moore, Michael Meissner, Richard Sandiford:

libgloss/mips/array.ld

@@ -74,6 +74,8 @@ PROVIDE (__stack = 1M - 8);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/crt0.S

@@ -54,11 +54,13 @@
  */
 	nop
 
+	.globl	hardware_hazard_hook .text
 	.globl	_start
 	.ent	_start
 _start:
 	.set	noreorder
 #ifdef __mips_embedded_pic
+#define PICBASE start_PICBASE
 	PICBASE = .+8
         bal	PICBASE
 	nop
@@ -75,6 +77,14 @@ _start:
 	mtc0	zero, C0_CAUSE
 	nop
 
+	/* Avoid hazard from FPU enable and other SR changes.  */
+	LA (t0, hardware_hazard_hook)
+	beq	t0,zero,1f
+	nop
+	jal	t0
+	nop
+1:
+
 /* Check for FPU presence.  Don't check if we know that soft_float is
    being used.  (This also avoids illegal instruction exceptions.)  */
 
@@ -97,6 +107,12 @@ _start:
 	li	v0, (STATUS_MASK-(STATUS_MASK & SR_CU1))
 	mtc0	v0, C0_SR
 	nop
+	/* Avoid hazard from FPU disable.  */
+	LA (t0, hardware_hazard_hook)
+	beq	t0,zero,2f
+	nop
+	jal	t0
+	nop
 2:
 
 
@@ -205,6 +221,11 @@ init:
 						# destructors
 	move	a0,v0				# pass through the exit code
 	.end	init
+
+/* Assume the PICBASE set up above is no longer valid below here.  */
+#ifdef __mips_embedded_pic
+#undef PICBASE
+#endif
 	
 /*
  * _exit -- Exit from the application. Normally we cause a user trap
@@ -214,14 +235,32 @@ init:
  *          executables that contain a complete world to be linked with
  *          just the crt0.o object.
  */
+	.globl	hardware_exit_hook .text
 	.globl	_exit
 	.ent _exit
 _exit:
 7:
+#ifdef __mips_embedded_pic
+	/* Need to reinit PICBASE, since we might be called via exit()
+	   rather than via a return path which would restore old s0.  */
+#define PICBASE exit_PICBASE
+	PICBASE = .+8
+	bal	PICBASE
+	nop
+	move	s0,$31
+#endif
 #ifdef GCRT0
-	jal	_mcleanup
+	LA (t0, _mcleanup)
+	jal	t0
 	nop
 #endif
+	LA (t0, hardware_exit_hook)
+	beq	t0,zero,1f
+	nop
+	jal	t0
+	nop
+1:
+
 	# break instruction can cope with 0xfffff, but GAS limits the range:
 	break	1023
 	nop
@@ -229,4 +268,9 @@ _exit:
 	nop
 	.end _exit
 
+/* Assume the PICBASE set up above is no longer valid below here.  */
+#ifdef __mips_embedded_pic
+#undef PICBASE
+#endif
+
 /* EOF crt0.S */

libgloss/mips/ddb-kseg0.ld

@@ -22,6 +22,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/ddb.ld

@@ -22,6 +22,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/dve.ld

@@ -22,6 +22,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/idt.ld

@@ -23,6 +23,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/idt32.ld

@@ -25,6 +25,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/idt64.ld

@@ -25,6 +25,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/idtecoff.ld

@@ -25,6 +25,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/jmr3904app-java.ld

@@ -22,6 +22,8 @@ PROVIDE (_Jv_QthreadsStackSize = 0x10000);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/jmr3904app.ld

@@ -19,6 +19,8 @@ PROVIDE (_mem_size = 0x100000); /* JMR3904 comes as standard with 512k of RAM */
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/jmr3904dram-java.ld

@@ -23,6 +23,8 @@ PROVIDE (_Jv_QthreadsStackSize = 0x10000);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/jmr3904dram.ld

@@ -20,6 +20,8 @@ PROVIDE (_mem_size = 0x100000); /* JMR3904 comes as standard with 512k of RAM */
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/lsi.ld

@@ -23,6 +23,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/nullmon.ld

@@ -23,6 +23,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);
 

libgloss/mips/pmon.ld

@@ -23,6 +23,8 @@ PROVIDE (__stack = 0);
  * We have to initalize them twice, so we multiple object file
  * formats, as some prepend an underscore.
  */
+PROVIDE (hardware_exit_hook = 0);
+PROVIDE (hardware_hazard_hook = 0);
 PROVIDE (hardware_init_hook = 0);
 PROVIDE (software_init_hook = 0);