From 8114f67e2642494421f4de4e9deb226ac3c5a8ee Mon Sep 17 00:00:00 2001
From: jaortega <jaortega>
Date: Mon, 13 Nov 2000 23:29:21 +0000
Subject: corrected bug in stress3.mixal (pking)

---
 mixlib/mix_parser.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'mixlib/mix_parser.c')

diff --git a/mixlib/mix_parser.c b/mixlib/mix_parser.c
index fc80a76..82dd692 100644
--- a/mixlib/mix_parser.c
+++ b/mixlib/mix_parser.c
@@ -209,7 +209,13 @@ update_future_refs_value_ (mix_parser_t *parser, const gchar *name,
 	  node = 
 	    (ins_node_ *)g_tree_lookup (parser->ins_table,tmp->data);
 	  g_assert (node);
-	  mix_word_set_address (node->ins, value);
+	  if (mix_get_ins_address (node->ins) == 1) {
+	    value = mix_short_negative (value);
+	    node->ins = mix_word_set_field (node->ins,
+					    MIX_WORD_ZERO,
+					    mix_fspec_new (1,2));
+	  }
+	  mix_word_add_address (node->ins, value);
 	  g_tree_insert (parser->ins_table, tmp->data, (gpointer)node);
 	  tmp = g_slist_next (tmp);
 	}
-- 
cgit v1.2.3