more bug fixes

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1037 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-04-16 19:27:31 +00:00
parent 5b6e8182d1
commit f7a68f97cd
7 changed files with 221 additions and 37 deletions
--- a/H/compile.h
+++ b/H/compile.h
@@ -218,6 +218,11 @@ typedef struct intermediates {
  jmp_buf CompilerBotch;
  yamop *code_addr;
  yamop *expand_block;
+  /* for expanding code */
+  union { 
+    struct static_index *si;
+    struct logic_upd_index *lui;
+  } current_cl;
 } CIntermediates;

 #define	 SafeVar	0x01