Branch: Tag:

1999-04-07

1999-04-07 23:10:12 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug and faster exit()

Rev: src/cpp.c:1.51
Rev: src/global.h:1.29
Rev: src/interpret.h:1.28
Rev: src/language.yacc:1.116
Rev: src/object.c:1.68
Rev: src/program.c:1.120
Rev: src/svalue.h:1.24
Rev: src/threads.h:1.64

5:   \*/      /* -  * $Id: svalue.h,v 1.23 1999/03/26 23:41:00 grubba Exp $ +  * $Id: svalue.h,v 1.24 1999/04/07 23:10:11 hubbe Exp $    */   #ifndef SVALUE_H   #define SVALUE_H
215:   }while(0)      #ifdef PIKE_DEBUG - #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\n") + #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) if((S)->type < MAX_REF_TYPE && (!(S)->u.refs || (S)->u.refs[0] < 0)) fatal("Svalue to object without references.\n")   #define check_refs2(S,T) if((T) < MAX_REF_TYPE && (S)->refs && (S)->refs[0] <= 0) fatal("Svalue to object without references.\n")