From c6bdcec867107a95e3ae7c79601dc9dc9527cd12 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 19 Mar 1999 03:43:14 -0800
Subject: [PATCH] now uses object exceptions in some cases
Rev: src/interpret.c:1.118
---
src/interpret.c | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/src/interpret.c b/src/interpret.c
index af8c7af244..78f982624e 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -5,7 +5,7 @@
\*/
/**/
#include "global.h"
-RCSID("$Id: interpret.c,v 1.117 1999/03/17 21:51:30 hubbe Exp $");
+RCSID("$Id: interpret.c,v 1.118 1999/03/19 11:43:14 hubbe Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
@@ -269,9 +269,9 @@ void lvalue_to_svalue_no_free(struct svalue *to,struct svalue *lval)
default:
if(IS_ZERO(lval))
- error("Indexing the NULL value.\n"); /* Per */
+ index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");
else
- error("Indexing a basic type.\n");
+ index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");
}
}
@@ -328,9 +328,9 @@ void assign_lvalue(struct svalue *lval,struct svalue *from)
default:
if(IS_ZERO(lval))
- error("Indexing the NULL value.\n"); /* Per */
+ index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");
else
- error("Indexing a basic type.\n");
+ index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");
}
}
@@ -368,9 +368,9 @@ union anything *get_pointer_if_this_type(struct svalue *lval, TYPE_T t)
default:
if(IS_ZERO(lval))
- error("Indexing the NULL value.\n"); /* Per */
- else
- error("Indexing a basic type.\n");
+ index_error(0,0,0,lval,lval+1,"Indexing the NULL value.\n");
+ else
+ index_error(0,0,0,lval,lval+1,"Indexing a basic type.\n");
return 0;
}
}
--
GitLab