From b0fc1cc408195e4812e99de755cb0b37c6e2d55d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
 <grubba@grubba.org>
Date: Tue, 4 Apr 2000 17:30:21 +0200
Subject: [PATCH] ERROR_COPY_SVALUE() now survives a NULL...

Rev: src/error.c:1.43
---
 src/error.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/error.c b/src/error.c
index bb2753d57f..94400bbf90 100644
--- a/src/error.c
+++ b/src/error.c
@@ -19,7 +19,7 @@
 #include "module_support.h"
 #include "threads.h"
 
-RCSID("$Id: error.c,v 1.42 2000/03/20 21:00:04 hubbe Exp $");
+RCSID("$Id: error.c,v 1.43 2000/04/04 15:30:21 grubba Exp $");
 
 #undef ATTRIBUTE
 #define ATTRIBUTE(X)
@@ -373,7 +373,7 @@ void f_error_backtrace(INT32 args)
   ERROR_STRUCT(STRUCT,o)->X=X
 
 #define ERROR_COPY_SVALUE(STRUCT,X) \
-  assign_svalue_no_free( & ERROR_STRUCT(STRUCT,o)->X, 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_REF(STRUCT,X) \
-- 
GitLab