From: Richard Henderson <rth@gcc.gnu.org>
Date: Wed, 8 Apr 1998 18:30:32 +0000 (-0700)
Subject: Support recursive calls to exit.
X-Git-Tag: prereleases/egcs-1.1-prerelease~1768
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=54a4fa075536d21fae4bd8a1c84c5d1f19048e98;p=thirdparty%2Fgcc.git

Support recursive calls to exit.

From-SVN: r19052
---

diff --git a/gcc/config/alpha/crtbegin.asm b/gcc/config/alpha/crtbegin.asm
index dfb11e51eab8..c28440d8a248 100644
--- a/gcc/config/alpha/crtbegin.asm
+++ b/gcc/config/alpha/crtbegin.asm
@@ -75,6 +75,11 @@ __DTOR_LIST__:
  # Invoke our destructors in order.
  #
 
+.data
+
+ # Support recursive calls to exit.
+9:	.quad	__DTOR_LIST__
+
 .text
 
 	.align 3
@@ -84,20 +89,22 @@ __do_global_dtors_aux:
 	ldgp	$29,0($27)
 	lda     $30,-16($30)
 	.frame  $30,16,$26,0
+	stq	$9,8($30)
 	stq     $26,0($30)
-	.mask   0x4000000,-16
+	.mask   0x4000200,-16
 	.prologue 1
 
-	lda     $1,__DTOR_LIST__
+	lda     $9,9b
 	br      1f
-0:	stq	$1,8($30)
+0:	stq	$1,0($9)
 	jsr     $26,($27)
-	ldq	$1,8($30)
-1:	ldq     $27,8($1)
+1:	ldq	$1,0($9)
+	ldq     $27,8($1)
 	addq    $1,8,$1
 	bne     $27,0b
 
 	ldq     $26,0($30)
+	ldq	$9,8($30)
 	lda     $30,16($30)
 	ret