From 62ec49f6e124194e42235fbd357f8f863afc2aad Mon Sep 17 00:00:00 2001 From: vsc Date: Thu, 23 Jan 2003 17:12:58 +0000 Subject: [PATCH] fix Env_ToP git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@748 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- H/amidefs.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/H/amidefs.h b/H/amidefs.h index ea0e0efe1..973e306dc 100644 --- a/H/amidefs.h +++ b/H/amidefs.h @@ -339,6 +339,7 @@ typedef struct yami { union { struct yami *l; struct pred_entry *p; + SMALLUNSGN m_num; } sla_u; struct pred_entry *p0; CELL next; @@ -554,7 +555,7 @@ typedef struct choicept { #define RealEnvSize (EnvSizeInCells*sizeof(CELL)) #define ENV_Size(cp) (((yamop *)((CODEADDR)(cp) - (CELL)NEXTOP((yamop *)NIL,sla)))->u.sla.s) -#define ENV_ToP(cp) ((yamop *)((CODEADDR)(cp) - (CELL)NEXTOP((yamop *)NIL,sla)))->u.sla.p) +#define ENV_ToP(cp) (((yamop *)((CODEADDR)(cp) - (CELL)NEXTOP((yamop *)NIL,sla)))->u.sla.sla_u.p) #define ENV_ToOp(cp) (((yamop *)((CODEADDR)(cp) - (CELL)NEXTOP((yamop *)NIL,sla)))->opc) #define EnvSize(cp) ((-ENV_Size(cp))/(OPREG)sizeof(CELL)) #define EnvBMap(p) (((yamop *)((CODEADDR)(p) - (CELL)NEXTOP((yamop *)NIL,sla)))->u.sla.bmap)