From 4b67a1a365633f480861a6f2c8901c843c1f36a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Wed, 15 Nov 1995 11:07:46 +0100
Subject: [PATCH] fixed some typos
Rev: src/svalue.c:1.3
---
src/svalue.c | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/src/svalue.c b/src/svalue.c
index a9e717baac..d742cb186d 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -395,12 +395,14 @@ int is_eq(struct svalue *a, struct svalue *b)
if (a->type != b->type) return 0;
switch(a->type)
{
- case T_INT:
case T_LIST:
case T_OBJECT:
case T_PROGRAM:
case T_ARRAY:
case T_MAPPING:
+ return a->u.refs == b->u.refs;
+
+ case T_INT:
return a->u.integer == b->u.integer;
case T_STRING:
@@ -438,6 +440,7 @@ int low_is_equal(struct svalue *a,
case T_STRING:
case T_FLOAT:
case T_FUNCTION:
+ case T_PROGRAM:
return 0;
case T_OBJECT:
@@ -509,7 +512,7 @@ int is_gt(const struct svalue *a,const struct svalue *b)
switch(a->type)
{
default:
- error("Bad argument 1 tp '<'.\n");
+ error("Bad argument 1 to '>'.\n");
case T_INT:
return a->u.integer > b->u.integer;
@@ -536,7 +539,7 @@ int is_lt(const struct svalue *a,const struct svalue *b)
switch(a->type)
{
default:
- error("Bad arg 1 to '<='.\n");
+ error("Bad arg 1 to '<'.\n");
case T_INT:
return a->u.integer < b->u.integer;
@@ -641,6 +644,7 @@ void clear_svalues(struct svalue *s, INT32 num)
struct svalue dum;
dum.type=T_INT;
dum.subtype=NUMBER_NUMBER;
+ dum.u.refs=0;
dum.u.integer=0;
while(--num >= 0) *(s++)=dum;
}
--
GitLab