---

uentryList.c File Reference

#include "lclintMacros.nf"
#include "basic.h"

Go to the source code of this file.

Functions
uentryList	uentryList_new ()
uentryList	uentryList_single ( uentry el)
void	uentryList_clear (uentryList s)
uentryList	uentryList_add (uentryList s, uentry el)
cstring	uentryList_unparse (uentryList s)
cstring	uentryList_unparseFull (uentryList s)
cstring	uentryList_unparseParams (uentryList s)
bool	uentryList_matchParams (uentryList p1, uentryList p2, bool force, bool arg)
cstring	uentryList_unparseAbbrev (uentryList p)
int	uentryList_lookupRealName (uentryList s, cstring name)
uentryList	uentryList_copy (uentryList s)
void	uentryList_free (uentryList s)
bool	uentryList_isVoid (uentryList cl)
uentry	uentryList_getN (uentryList p, int n)
void	uentryList_fixMissingNames (uentryList cl)
void	uentryList_fixImpParams (uentryList cl)
int	uentryList_compareParams (uentryList s, uentryList t)
int	uentryList_compareStrict (uentryList s, uentryList t)
int	uentryList_compareFields (uentryList s, uentryList t)
uentry	uentryList_current (uentryList s)
cstring	uentryList_dumpParams (uentryList s)
cstring	uentryList_dumpFields (uentryList s)
uentryList	uentryList_undumpFields (char **s, fileloc loc)
uentryList	uentryList_undump (char **s)
void	uentryList_reset (uentryList s)
bool	uentryList_isFinished (uentryList s)
void	uentryList_advanceSafe (uentryList s)
int	uentryList_size (uentryList s)
bool	uentryList_isMissingParams (uentryList s)
bool	uentryList_hasReturned (uentryList ul)
uentry	uentryList_lookupField (uentryList f, cstring name)
uentryList	uentryList_mergeFields ( uentryList f1, uentryList f2)
void	uentryList_showFieldDifference (uentryList p1, uentryList p2)
bool	uentryList_matchFields (uentryList p1, uentryList p2)

---

Function Documentation

uentryList uentryList_add ( uentryList s, uentry el )

Definition at line 95 of file uentryList.c. Referenced by fixUentryList(), uentryList_mergeFields(), uentryList_undump(), and uentryList_undumpFields(). { if (uentryList_isUndefined (s)) { s = uentryList_new (); } if (s->nspace <= 0) uentryList_grow (s); s->nspace--; s->elements[s->nelements] = el; s->nelements++; return s; }

void uentryList_advanceSafe ( uentryList s )

Definition at line 648 of file uentryList.c. { if (uentryList_isUndefined (s)) return; s->current++; if (s->current > s->nelements) { s->current = s->nelements; } }

void uentryList_clear ( uentryList s )

Definition at line 82 of file uentryList.c. { if (uentryList_isUndefined (s)) { ; } else { s->nspace += s->nelements; s->nelements = 0; } }

int uentryList_compareFields ( uentryList s, uentryList t )

Definition at line 490 of file uentryList.c. { int i, sz; if (s == t) return 0; if (uentryList_isUndefined (s)) return 1; if (uentryList_isUndefined (t)) return -1; sz = uentryList_size (s); if (uentryList_size (t) != sz) { return (int_compare (sz, uentryList_size (t))); } for (i = 0; i < sz; i++) { uentry se = s->elements[i]; uentry te = t->elements[i]; int namecmp = cstring_compare (uentry_rawName (se), uentry_rawName (te)); if (namecmp == 0) { int uc = uentry_compare (s->elements[i], t->elements[i]); if (uc != 0) { return uc; } } else { return (namecmp); } } return 0; }

int uentryList_compareParams ( uentryList s, uentryList t )

Definition at line 425 of file uentryList.c. Referenced by uentry_compare(). { int i, sz; if (s == t) return 0; if (uentryList_isUndefined (s)) return 1; if (uentryList_isUndefined (t)) return -1; sz = uentryList_size (s); INTCOMPARERETURN (uentryList_size (t), sz); for (i = 0; i < sz; i++) { COMPARERETURN (uentry_compare (s->elements[i], t->elements[i])); } return 0; }

int uentryList_compareStrict ( uentryList s, uentryList t )

Definition at line 447 of file uentryList.c. { int i, sz; if (s == t) { return 0; } if (uentryList_isMissingParams (s)) { if (uentryList_isMissingParams (t)) { return 0; } else { return 1; } } else { if (uentryList_isMissingParams (t)) { return -1; } else { sz = uentryList_size (s); INTCOMPARERETURN (uentryList_size (t), sz); for (i = 0; i < sz; i++) { COMPARERETURN (uentry_compareStrict (s->elements[i], t->elements[i])); } return 0; } } }

uentryList uentryList_copy ( uentryList s )

Definition at line 294 of file uentryList.c. Referenced by ctype_adjustPointers(), doneParams(), and fixUnnamedDecl(). { if (uentryList_isDefined (s)) { uentryList t = (uentryList) dmalloc (sizeof (*t)); int i; t->nelements = s->nelements; t->nspace = 0; t->current = s->current; if (s->nelements > 0) { t->elements = (uentry *) dmalloc (sizeof (*t->elements) * t->nelements); for (i = 0; i < s->nelements; i++) { t->elements[i] = uentry_copy (s->elements[i]); } } else { t->elements = NULL; } return t; } else { return uentryList_undefined; } }

uentry uentryList_current ( uentryList s )

Definition at line 533 of file uentryList.c. { llassert (uentryList_isDefined (s)); llassert (!(s->current < 0 || (s->current >= s->nelements))); return (s->elements[s->current]); }

cstring uentryList_dumpFields ( uentryList s )

Definition at line 556 of file uentryList.c. { cstring st = cstring_undefined; if (uentryList_isUndefined (s)) return st; uentryList_elements (s, current) { if (!uentry_isVariable (current)) { llassert (uentry_isFunction (current)); st = message ("%q!%q,", st, uentry_dump (current)); } else { st = message ("%q%q,", st, uentry_dump (current)); } } end_uentryList_elements; return st; }

cstring uentryList_dumpParams ( uentryList s )

Definition at line 541 of file uentryList.c. { cstring st = cstring_undefined; if (uentryList_isUndefined (s)) return st; uentryList_elements (s, current) { st = message ("%q%q,", st, uentry_dumpParam (current)); } end_uentryList_elements; return st; }

void uentryList_fixImpParams ( uentryList cl )

Definition at line 394 of file uentryList.c. Referenced by ctype_makeNFParamsFunction(), and ctype_makeParamsFunction(). { if (context_getFlag (FLG_PARAMIMPTEMP)) { uentryList_elements (cl, ce) { sRef s = uentry_getSref (ce); alkind ak = sRef_getAliasKind (s); if (alkind_isUnknown (ak) || alkind_isImplicit (ak)) { exkind ek = sRef_getExKind (s); if (exkind_isKnown (ek)) { sRef_setAliasKind (s, AK_IMPDEPENDENT, fileloc_undefined); } else { sRef_setAliasKind (s, AK_IMPTEMP, fileloc_undefined); } } else { } } end_uentryList_elements; } }

void uentryList_fixMissingNames ( uentryList cl )

Definition at line 371 of file uentryList.c. Referenced by handleParamTypeList(). { uentryList_elements (cl, ce) { if (!uentry_hasRealName (ce)) { ctype ct = uentry_getType (ce); if (ctype_isUA (ct)) { uentry_setName (ce, usymtab_getTypeEntryName (ctype_typeId (ct))); } else { llbug (message ("uentryList_fixMissingNames: not UA: %s", ctype_unparse (ct))); } uentry_setType (ce, ctype_int); } } end_uentryList_elements; }

void uentryList_free ( uentryList s )

Definition at line 329 of file uentryList.c. Referenced by ctype_createUnnamedStruct(), and ctype_createUnnamedUnion(). { if (!uentryList_isUndefined (s)) { int i; for (i = 0; i < s->nelements; i++) { uentry_free (s->elements[i]); } sfree (s->elements); sfree (s); } }

uentry uentryList_getN ( uentryList p, int n )

Definition at line 357 of file uentryList.c. Referenced by exprNode_iterId(), exprNode_iterNewId(), exprNode_iterStart(), processNamedDecl(), sRef_hasName(), sRef_sameName(), uentryList_lookupField(), and uentry_makeIdFunction(). { llassert (uentryList_isDefined (p)); if (n < 0 || (n >= uentryList_size (p))) { llcontbug (message ("uentryList_getN: out of range: %d (size %d)", n, uentryList_size (p))); return uentry_undefined; } return (p->elements[n]); }

bool uentryList_hasReturned ( uentryList ul )

Definition at line 677 of file uentryList.c. Referenced by uentry_makeVarFunction(). { uentryList_elements (ul, current) { if (uentry_isReturned (current)) return TRUE; } end_uentryList_elements; return FALSE; }

bool uentryList_isFinished ( uentryList s )

Definition at line 641 of file uentryList.c. { if (uentryList_isUndefined (s)) return TRUE; return (s->current > s->nelements - 1); }

bool uentryList_isMissingParams ( uentryList s )

Definition at line 672 of file uentryList.c. Referenced by uentryList_compareStrict(), uentryList_matchParams(), and uentry_makeIdFunction(). { return (uentryList_isUndefined (s) || s->nelements == 0); }

bool uentryList_isVoid ( uentryList cl )

Definition at line 347 of file uentryList.c. Referenced by uentryList_unparseParams(). { if (cl != NULL && cl->nelements == 1) { return (ctype_isVoid (uentry_getType (cl->elements[0]))); } return FALSE; }

uentry uentryList_lookupField ( uentryList f, cstring name )

Definition at line 688 of file uentryList.c. Referenced by exprNode_arrowAccess(), exprNode_fieldAccess(), exprNode_offsetof(), modListArrowAccess(), modListFieldAccess(), sRef_deriveType(), and uentryList_mergeFields(). { int i = uentryList_lookupDirectName (f, name); if (i >= 0) { return (uentryList_getN (f, i)); } else { return uentry_undefined; } }

int uentryList_lookupRealName ( uentryList s, cstring name )

Definition at line 271 of file uentryList.c. Referenced by doVaDcl(), and processNamedDecl(). { if (uentryList_isDefined (s)) { int i; for (i = 0; i < uentryList_size (s); i++) { cstring uname = uentry_getName (s->elements[i]); if (cstring_equal (name, uname)) { cstring_free (uname); return i; } cstring_free (uname); } } return -1; }

bool uentryList_matchFields ( uentryList p1, uentryList p2 )

Definition at line 815 of file uentryList.c. { int index; uentry cp1, cp2; if (p1 == p2) { return (TRUE); } if (uentryList_isEmpty (p1) || uentryList_isEmpty (p2)) { return (TRUE); } if (uentryList_size (p1) != uentryList_size (p2)) { return FALSE; } for (index = 0; index < p1->nelements; index++) { cp1 = p1->elements[index]; cp2 = p2->elements[index]; if (!(cstring_equal (uentry_rawName (cp1), uentry_rawName (cp2)) && (ctype_almostEqual (uentry_getType (cp1), uentry_getType (cp2))))) { /* was ctype_match! */ return FALSE; } } return TRUE; }

bool uentryList_matchParams ( uentryList p1, uentryList p2, bool force, bool arg )

Definition at line 190 of file uentryList.c. { int sz1 = uentryList_size (p1); int sz2 = uentryList_size (p2); int i; if (p1 == p2) return TRUE; if (uentryList_isMissingParams (p1) || uentryList_isMissingParams (p2)) { return TRUE; } if (sz1 != sz2) return FALSE; for (i = 0; i < sz1; i++) { if (!ctype_genMatch (uentry_getType (p1->elements[i]), uentry_getType (p2->elements[i]), force, arg, FALSE, FALSE)) { return FALSE; } } return TRUE; }

uentryList uentryList_mergeFields ( uentryList f1, uentryList f2 )

Definition at line 703 of file uentryList.c. { if (uentryList_isUndefined (f1)) { return (f2); } if (uentryList_isDefined (f2)) { uentryList_elements (f2, current) { uentry old = uentryList_lookupField (f1, uentry_rawName (current)); if (uentry_isValid (old)) { voptgenerror (FLG_SYNTAX, message ("Field name reused: %s", uentry_rawName (current)), uentry_whereDefined (current)); llgenmsg (message ("Previous use of %s", uentry_rawName (current)), uentry_whereDefined (old)); } /* okay to use exposed current since f2 is killed */ /*@-exposetrans@*/ /*@-dependenttrans@*/ f1 = uentryList_add (f1, current); /*@=exposetrans@*/ /*@=dependenttrans@*/ } end_uentryList_elements; sfree (f2->elements); sfree (f2); } return (f1); }

uentryList uentryList_new ( )

Definition at line 32 of file uentryList.c. Referenced by fixUentryList(), uentryList_add(), uentryList_undump(), and uentryList_undumpFields(). { uentryList s = (uentryList) dmalloc (sizeof (*s)); s->nelements = 0; s->nspace = uentryListBASESIZE; s->elements = (uentry *) dmalloc (sizeof (*s->elements) * uentryListBASESIZE); s->current = 0; return (s); }

void uentryList_reset ( uentryList s )

Definition at line 634 of file uentryList.c. { if (uentryList_isUndefined (s)) return; s->current = 0; }

void uentryList_showFieldDifference ( uentryList p1, uentryList p2 )

Definition at line 741 of file uentryList.c. { uentry cp1, cp2; int index; llassert (NOALIAS (p1, p2)); llassert (uentryList_isDefined (p1)); llassert (uentryList_isDefined (p2)); for (index = 0; index < p1->nelements; index++) { cp1 = p1->elements[index]; if (index == p2->nelements) { llgenindentmsg (message ("Field present in %s, missing in %rdeclaration: %q", uentry_specDeclName (cp1), uentry_isDeclared (cp1), uentry_unparse (cp1)), uentry_whereEither (cp1)); return; } cp2 = p2->elements[index]; if (!(cstring_equal (uentry_rawName (cp1), uentry_rawName (cp2)))) { llgenindentmsg (message ("Field %s in %s corresponds to %s in %rdeclaration", uentry_rawName (cp1), uentry_specOrDefName (cp1), uentry_rawName (cp2), uentry_isCodeDefined (cp1)), uentry_whereDefined (cp2)); uentry_showWhereLastPlain (cp1); return; } else { /* evs 2000-07-25 was ctype_match, should match uentryList_matchFields */ if (!ctype_almostEqual (uentry_getType (cp1), uentry_getType (cp2))) { llgenindentmsg (message ("Field %s %rdeclared as %s, %s as %s", uentry_rawName (cp2), uentry_isCodeDefined (cp1), ctype_unparse (uentry_getType (cp1)), uentry_specOrDefName (cp2), ctype_unparse (uentry_getType (cp2))), uentry_whereDefined (cp2)); uentry_showWhereLastPlain (cp1); return; } } } if (index != p2->nelements) { cp2 = p2->elements[index]; llgenindentmsg (message ("Extra field in new declaration: %q", uentry_unparse (cp2)), uentry_whereEither (cp2)); return; } llbug (message ("uentryList_showFieldDifference: match: %q / %q", uentryList_unparse (p1), uentryList_unparse (p2))); }

uentryList uentryList_single ( uentry el )

Definition at line 46 of file uentryList.c. { uentryList s = (uentryList) dmalloc (sizeof (*s)); s->nelements = 1; s->nspace = uentryListBASESIZE - 1; s->elements = (uentry *) dmalloc (sizeof (*s->elements) * uentryListBASESIZE); s->elements[0] = el; s->current = 0; return (s); }

int uentryList_size ( uentryList s )

Definition at line 661 of file uentryList.c. Referenced by declareStruct(), declareUnion(), declareUnnamedStruct(), declareUnnamedUnion(), exprNode_checkAllMods(), exprNode_iterStart(), sRef_isDirectParam(), uentryList_compareFields(), uentryList_compareParams(), uentryList_compareStrict(), uentryList_getN(), uentryList_lookupRealName(), uentryList_matchFields(), uentryList_matchParams(), uentryList_unparse(), uentryList_unparseAbbrev(), uentryList_unparseFull(), uentryList_unparseParams(), uentry_directParamNo(), and uentry_makeIdFunction(). { if (uentryList_isUndefined (s)) return 0; if (s->nelements == 1 && ctype_isVoid (uentry_getType (s->elements[0]))) return 0; return s->nelements; }

uentryList uentryList_undump ( char ** s )

Definition at line 602 of file uentryList.c. { char c; uentryList pn = uentryList_new (); int paramno = 0; c = **s; while (c != '#' && c != '@' && c != ')') { uentry ue = uentry_undump (ekind_variable, g_currentloc, s); if (!uentry_isUndefined (ue)) { pn = uentryList_add (pn, ue); } else { uentry_free (ue); } checkChar (s, ','); c = **s; paramno++; } checkChar (s, ')'); return pn; }

uentryList uentryList_undumpFields ( char ** s, fileloc loc )

Definition at line 579 of file uentryList.c. { uentryList ul = uentryList_new (); while (**s != '\0' && **s != '}') { if (**s == '!') { checkChar (s, '!'); ul = uentryList_add (ul, uentry_undump (ekind_function, loc, s)); } else { ul = uentryList_add (ul, uentry_undump (ekind_variable, loc, s)); } checkChar (s, ','); } checkChar (s, '}'); return ul; }

cstring uentryList_unparse ( uentryList s )

Definition at line 113 of file uentryList.c. Referenced by exprNode_checkAllMods(), and uentryList_showFieldDifference(). { cstring st = cstring_undefined; int i; if (uentryList_isDefined (s)) { for (i = 0; i < uentryList_size (s); i++) { if (i == 0) { st = message ("%q;", uentry_unparse (s->elements[i])); } else st = message ("%q %q;", st, uentry_unparse (s->elements[i])); } } return (st); }

cstring uentryList_unparseAbbrev ( uentryList p )

Definition at line 220 of file uentryList.c. { bool first = TRUE; cstring s = cstring_undefined; int i = 0; if (uentryList_isUndefined (p)) return s; if (uentryList_size (p) == 0) return cstring_makeLiteral ("void"); for (i = 0; i < p->nelements && i < PRINTBREADTH; i++) { if (first) { s = message ("%q;", uentry_unparseAbbrev (p->elements[i])); first = FALSE; } else { s = message ("%q %q;", s, uentry_unparseAbbrev (p->elements[i])); } } if (i != uentryList_size (p)) s = message ("%q, ...", s); return (s); }

cstring uentryList_unparseFull ( uentryList s )

Definition at line 135 of file uentryList.c. { cstring st = cstring_undefined; int i; if (uentryList_isDefined (s)) { for (i = 0; i < uentryList_size (s); i++) { if (i == 0) { st = message ("%q;", uentry_unparseFull (s->elements[i])); } else { st = message ("%q %q;", st, uentry_unparseFull (s->elements[i])); } } } return (st); }

cstring uentryList_unparseParams ( uentryList s )

Definition at line 158 of file uentryList.c. { int i; cstring st = cstring_undefined; if (uentryList_isUndefined (s)) { return st; } else if (uentryList_isVoid (s)) { return (cstring_makeLiteral ("void")); } else { for (i = 0; i < uentryList_size (s); i++) { if (i == 0) { st = message ("%s", ctype_unparse (uentry_getType (s->elements[i]))); } else { st = message ("%q, %s", st, ctype_unparse (uentry_getType (s->elements[i]))); } } return st; } }

---