mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

* throw.c (scm_ithrow): removed winds "asm" protection in favor of

Browse source 
scm_remember_upto_here_1.
This commit is contained in:
Rob Browning 2003-04-11 18:32:01 +00:00
parent 9300912e0c
commit 6e19af7d09
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/throw.c
View file

@ -622,14 +622,6 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED)
}
}
#ifdef __GNUC__
/* Dirk:FIXME:: This bugfix should be removed some time. */
/* GCC 2.95.2 has a bug in its optimizer that makes it generate
incorrect code sometimes. This barrier stops it from being too
clever. */
asm volatile ("" : "=g" (winds));
#endif
/* If we didn't find anything, print a message and abort the process
right here. If you don't want this, establish a catch-all around
any code that might throw up. */
@ -640,8 +632,14 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED)
}
/* If the wind list is malformed, bail. */
/* remember calls added below to fix segfaults on ia64 and (I think)
powerpc */
if (!SCM_CONSP (winds))
abort ();
{
scm_remember_upto_here_1 (winds);
abort ();
}
scm_remember_upto_here_1 (winds);
jmpbuf = SCM_CDR (dynpair);