mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

fix nondeterminism in vm-i-system.c

Browse source 
* libguile/vm-i-system.c (br-if-eq, br-if-not-eq): Fix some
  nondeterminism caught by GCC 4.4.
This commit is contained in:
Andy Wingo 2009-04-04 11:36:18 -07:00
parent 6f36dbbe48
commit 2c0f99a28b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/vm-i-system.c
View file

@ -446,12 +446,14 @@ VM_DEFINE_INSTRUCTION (33, br_if_not, "br-if-not", 2, 0, 0)
VM_DEFINE_INSTRUCTION (34, br_if_eq, "br-if-eq", 2, 0, 0) VM_DEFINE_INSTRUCTION (34, br_if_eq, "br-if-eq", 2, 0, 0)
{ {
BR (SCM_EQ_P (sp[0], sp--[1])); sp--; /* underflow? */
BR (SCM_EQ_P (sp[0], sp[1]));
} }
VM_DEFINE_INSTRUCTION (35, br_if_not_eq, "br-if-not-eq", 2, 0, 0) VM_DEFINE_INSTRUCTION (35, br_if_not_eq, "br-if-not-eq", 2, 0, 0)
{ {
BR (!SCM_EQ_P (sp[0], sp--[1])); sp--; /* underflow? */
BR (!SCM_EQ_P (sp[0], sp[1]));
} }
VM_DEFINE_INSTRUCTION (36, br_if_null, "br-if-null", 2, 0, 0) VM_DEFINE_INSTRUCTION (36, br_if_null, "br-if-null", 2, 0, 0)