From 6bf7b63e1153a70116148d89d20a1e12bfdbe188 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Mon, 25 May 1998 23:24:02 +0200
Subject: [PATCH] describe_svalue() now tells the subtype of a string if any.
Rev: src/svalue.c:1.33
---
src/svalue.c | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/svalue.c b/src/svalue.c
index 7bbcd72d0c..65206b22c5 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -21,7 +21,7 @@
#include <ctype.h>
#include "queue.h"
-RCSID("$Id: svalue.c,v 1.32 1998/05/19 20:40:40 hubbe Exp $");
+RCSID("$Id: svalue.c,v 1.33 1998/05/25 21:24:02 grubba Exp $");
struct svalue dest_ob_zero = { T_INT, 0 };
@@ -720,7 +720,7 @@ int is_lt(struct svalue *a,struct svalue *b)
void describe_svalue(struct svalue *s,int indent,struct processing *p)
{
- char buf[40];
+ char buf[50];
check_type(s->type);
check_refs(s);
@@ -740,6 +740,10 @@ void describe_svalue(struct svalue *s,int indent,struct processing *p)
case T_STRING:
{
int i;
+ if (s->subtype) {
+ sprintf(buf,"/* subtype:%ld */ ",(long)s->subtype);
+ my_strcat(buf);
+ }
my_putchar('"');
for(i=0; i < s->u.string->len; i++)
{
--
GitLab