Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add a type comparison function.

Browse Source
This commit is contained in:
christos 2016-08-19 10:18:11 +00:00
parent a751e06a6e
commit c6347f3a1e
2 changed files with 66 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
usr.bin/xlint/common/externs.h
View File

@ -1,4 +1,4 @@
/* $NetBSD: externs.h,v 1.5 2014/04/17 18:52:03 christos Exp $ */
/* $NetBSD: externs.h,v 1.6 2016/08/19 10:18:11 christos Exp $ */
/*
* Copyright (c) 1994, 1995 Jochen Pohl
@ -44,7 +44,8 @@ extern void inittyp(void);
/*
* tyname.c
*/
extern const char *tyname(char *, size_t, type_t *);
extern const char *tyname(char *, size_t, const type_t *);
extern int sametype(const type_t *, const type_t *);
extern const char *basictyname(tspec_t);
/*

66
usr.bin/xlint/common/tyname.c
View File

@ -1,4 +1,4 @@
/* $NetBSD: tyname.c,v 1.11 2012/06/20 18:50:11 christos Exp $ */
/* $NetBSD: tyname.c,v 1.12 2016/08/19 10:18:11 christos Exp $ */
/*-
* Copyright (c) 2005 The NetBSD Foundation, Inc.
@ -35,7 +35,7 @@
#include <sys/cdefs.h>
#if defined(__RCSID) && !defined(lint)
__RCSID("$NetBSD: tyname.c,v 1.11 2012/06/20 18:50:11 christos Exp $");
__RCSID("$NetBSD: tyname.c,v 1.12 2016/08/19 10:18:11 christos Exp $");
#endif
#include <limits.h>
@ -88,8 +88,68 @@ basictyname(tspec_t t)
}
}
int
sametype(const type_t *t1, const type_t *t2)
{
tspec_t t;
if (t1->t_tspec != t2->t_tspec)
return 0;
/* Ignore const/void */
switch (t = t1->t_tspec) {
case BOOL:
case CHAR:
case UCHAR:
case SCHAR:
case SHORT:
case USHORT:
case INT:
case UINT:
case LONG:
case ULONG:
case QUAD:
case UQUAD:
case FLOAT:
case DOUBLE:
case LDOUBLE:
case VOID:
case FUNC:
case COMPLEX:
case FCOMPLEX:
case DCOMPLEX:
case LCOMPLEX:
return 1;
case ARRAY:
if (t1->t_dim != t2->t_dim)
return 0;
/*FALLTHROUGH*/
case PTR:
return sametype(t1->t_subt, t2->t_subt);
case ENUM:
#ifdef t_enum
return strcmp(t1->t_enum->etag->s_name,
t2->t_enum->etag->s_name) == 0;
#else
return 1;
#endif
case STRUCT:
case UNION:
#ifdef t_str
return strcmp(t1->t_str->stag->s_name,
t2->t_str->stag->s_name) == 0;
#else
return 1;
#endif
default:
LERROR("tyname(%d)", t);
return 0;
}
}
const char *
tyname(char *buf, size_t bufsiz, type_t *tp)
tyname(char *buf, size_t bufsiz, const type_t *tp)
{
tspec_t t;
const char *s;