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
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);
}

8
C/exec.c
View File

@ -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;
}