diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

save H for alpha. 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@109 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-27 17:12:44 +00:00
parent 22211cb453
commit 1d5e4c4956
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/errors.c
View File

@ -258,9 +258,15 @@ Abort (char *format,...)
#if PUSH_REGS #if PUSH_REGS
restore_absmi_regs(&standard_regs); restore_absmi_regs(&standard_regs);
#endif #endif
#if defined(__GNUC__) && (defined(hppa) || defined(__alpha)) #if defined(__GNUC__)
#if (defined(hppa) || defined(__alpha))
/* siglongjmp resets the TR hardware register */ /* siglongjmp resets the TR hardware register */
save_TR(); save_TR();
#endif
#if defined(__alpha)
/* siglongjmp resets the H hardware register */
save_H();
#endif
#endif #endif
siglongjmp (RestartEnv, 1); siglongjmp (RestartEnv, 1);
} }

8
C/exec.c
View File

@ -870,9 +870,15 @@ exec_absmi(int top)
#endif #endif
yap_flags[SPY_CREEP_FLAG] = 0; yap_flags[SPY_CREEP_FLAG] = 0;
CreepFlag = CalculateStackGap(); CreepFlag = CalculateStackGap();
#if defined(__GNUC__) && (defined(hppa) || defined(__alpha)) #if defined(__GNUC__)
#if defined(hppa) || defined(__alpha)
/* siglongjmp resets the TR hardware register */ /* siglongjmp resets the TR hardware register */
restore_TR(); restore_TR();
#endif
#if defined(__alpha)
/* siglongjmp resets the H hardware register */
restore_H();
#endif
#endif #endif
P = (yamop *)FAILCODE; P = (yamop *)FAILCODE;
} }