From 1d5e4c4956449d05599fdd2964b93d63cc757a4d Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 27 Jun 2001 17:12:44 +0000
Subject: [PATCH] save H for alpha.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@109 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/errors.c | 8 +++++++-
 C/exec.c   | 8 +++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/C/errors.c b/C/errors.c
index aeb94bc23..074da4492 100644
--- a/C/errors.c
+++ b/C/errors.c
@@ -258,9 +258,15 @@ Abort (char *format,...)
 #if PUSH_REGS
     restore_absmi_regs(&standard_regs);
 #endif
-#if defined(__GNUC__) && (defined(hppa) || defined(__alpha))
+#if defined(__GNUC__)
+#if (defined(hppa) || defined(__alpha))
     /* siglongjmp resets the TR hardware register */
     save_TR();
+#endif
+#if defined(__alpha)
+    /* siglongjmp resets the H hardware register */
+    save_H();
+#endif
 #endif
     siglongjmp (RestartEnv, 1);
   }
diff --git a/C/exec.c b/C/exec.c
index 892bd6429..253292c68 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -870,9 +870,15 @@ exec_absmi(int top)
 #endif
       yap_flags[SPY_CREEP_FLAG] = 0;
       CreepFlag = CalculateStackGap();
-#if defined(__GNUC__) && (defined(hppa) || defined(__alpha))
+#if defined(__GNUC__)
+#if defined(hppa) || defined(__alpha)
      /* siglongjmp resets the TR hardware register */
       restore_TR();
+#endif
+#if defined(__alpha)
+     /* siglongjmp resets the H hardware register */
+      restore_H();
+#endif
 #endif
       P = (yamop *)FAILCODE;
     }