/*
** Splint - annotation-assisted static program checker
-** Copyright (C) 1994-2002 University of Virginia,
+** Copyright (C) 1994-2003 University of Virginia,
** Massachusetts Institute of Technology
**
** This program is free software; you can redistribute it and/or modify it
** the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
** MA 02111-1307, USA.
**
-** For information on lclint: lclint-request@cs.virginia.edu
-** To report a bug: lclint-bug@cs.virginia.edu
+** For information on splint: info@splint.org
+** To report a bug: splint-bug@splint.org
** For more information: http://www.splint.org
*/
/*
** 20 January 1991
*/
-# include "lclintMacros.nf"
-# include "llbasic.h"
+# include "splintMacros.nf"
+# include "basic.h"
# include "gram.h"
# include "lclscan.h"
# include "lclsyntable.h"
llassert (lineptr != NULL);
lineptr = strchr (lineptr + 1, ' '); /* go past namestr */
llassert (lineptr != NULL);
- col = 5 + lineptr - line; /* 5 for initial "%LCL "*/
+ col = 5 + ((int) (lineptr - line)); /* 5 for initial "%LCL "*/
lclbug (message ("%q: Imported files contains unknown base sort",
fileloc_unparseRawCol (importfile, inputStream_thisLineNumber (srce), col)));
if (!usymtab_existsGlobEither (cnamestr))
{
(void) usymtab_addEntry
- (uentry_makeDatatype (cnamestr, ctype_unknown,
- ti->abstract ? ynm_fromBool (ti->modifiable) : MAYBE,
- ti->abstract ? YES : NO,
- fileloc_copy (imploc)));
+ (uentry_makeDatatype
+ (cnamestr, ctype_unknown,
+ ti->abstract ? ynm_fromBool (ti->modifiable) : MAYBE,
+ ti->abstract ? qual_createAbstract () : qual_createConcrete (),
+ fileloc_copy (imploc)));
}
}
llassert (lineptr != NULL);
lineptr = strchr (lineptr + 1, ' '); /* go past namestr */
llassert (lineptr != NULL);
- col = 5 + lineptr - line; /* 5 for initial "%LCL "*/
+ col = 5 + ((int) (lineptr - line)); /* 5 for initial "%LCL "*/
if (sort_isNoSort (bsort))
{
lineptr = strchr (lineptr + 1, ' '); /* go past namestr */
llassert (lineptr != NULL);
- col = 5 + lineptr - line; /* 5 for initial "%LCL "*/
+ col = 5 + ((int) (lineptr - line)); /* 5 for initial "%LCL "*/
if (sort_isNoSort (bsort))
{
}
else
{
- /* evans 2001-05-27: detected by lclint after fixing external alias bug. */
+ /* evans 2001-05-27: detected by splint after fixing external alias bug. */
if (op->name != NULL)
{
ltoken_free (op->name->content.opid);
lineptr = strchr (lineptr + 1, ' '); /* go past namestr */
llassert (lineptr != NULL);
- col = 5 + lineptr - line; /* 5 for initial "%LCL "*/
+ col = 5 + ((int) (lineptr - line)); /* 5 for initial "%LCL "*/
if (sort_isNoSort (bsort))
{
lclplainerror (message ("%q: unknown base sort\n",
/*@only@*/ lslOpSet
symtable_opsWithLegalDomain (symtable tab, /*@temp@*/ /*@null@*/ nameNode n,
- sortSetList argSorts, sort qual)
+ sortSetList argSorts, sort q)
{
/* handles nil qual */
lslOpSet ops = lslOpSet_new ();
{
rangeSort = sigNode_rangeSort (sig);
- if ((qual == 0) || (sort_equal (rangeSort, qual)))
+ if ((q == NULL) || (sort_equal (rangeSort, q)))
{
if (domainMatches (sig->domain, argSorts))
{