Branch: Tag:

2000-04-04

2000-04-04 15:53:36 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Bugfix.

Rev: src/error.c:1.44

19:   #include "module_support.h"   #include "threads.h"    - RCSID("$Id: error.c,v 1.43 2000/04/04 15:30:21 grubba Exp $"); + RCSID("$Id: error.c,v 1.44 2000/04/04 15:39:13 grubba Exp $");      #undef ATTRIBUTE   #define ATTRIBUTE(X)
372:   #define ERROR_COPY(STRUCT,X) \    ERROR_STRUCT(STRUCT,o)->X=X    - #define ERROR_COPY_SVALUE(STRUCT,X) \ -  (X?assign_svalue_no_free( & ERROR_STRUCT(STRUCT,o)->X, X):((ERROR_STRUCT(STRUCT, o)->X.type = T_INTEGER), (ERROR_STRUCT(STRUCT, o)->X.subtype = 0), (ERROR_STRUCT(STRUCT, o)->X.u.integer = 0))) + #define ERROR_COPY_SVALUE(STRUCT,X) do { \ +  if (X) { \ +  assign_svalue_no_free( & ERROR_STRUCT(STRUCT,o)->X, X); \ +  } else { \ +  ERROR_STRUCT(STRUCT, o)->X.type = T_INT; \ +  ERROR_STRUCT(STRUCT, o)->X.subtype = 0; \ +  ERROR_STRUCT(STRUCT, o)->X.u.integer = 0; \ +  } \ +  } while (0)         #define ERROR_COPY_REF(STRUCT,X) \