Branch: Tag:

2000-04-17

2000-04-17 19:25:31 by Martin Stjernholm <mast@lysator.liu.se>

Fixed a typo in check_refs macros.

Rev: src/svalue.h:1.52

5:   \*/      /* -  * $Id: svalue.h,v 1.51 2000/04/15 05:05:28 hubbe Exp $ +  * $Id: svalue.h,v 1.52 2000/04/17 19:25:31 mast Exp $    */   #ifndef SVALUE_H   #define SVALUE_H
254:   #define check_type(T) if(T > MAX_TYPE && T!=T_LVALUE && T!=T_SHORT_LVALUE && T!=T_VOID && T!=T_DELETED && T!=T_ARRAY_LVALUE) fatal("Type error: %d\n",T)      #define check_refs(S) do {\ -  if((S)->type < MAX_REF_TYPE && (!(S)->u.refs || (S)->u.refs[0] < 0)) { \ +  if((S)->type <= MAX_REF_TYPE && (!(S)->u.refs || (S)->u.refs[0] < 0)) { \    describe((S)->u.refs); \    fatal("Svalue to object without references.\n"); \   } }while(0)      #define check_refs2(S,T) do { \ - if((T) < MAX_REF_TYPE && (S)->refs && (S)->refs[0] <= 0) {\ + if((T) <= MAX_REF_TYPE && (S)->refs && (S)->refs[0] <= 0) {\    describe((S)->refs); \    fatal("(short) Svalue to object without references.\n"); \   } }while(0)