2 ** Copyright (C) University of Virginia, Massachusetts Institue of Technology 1994-2001.
3 ** See ../LICENSE for license information.
16 ** ctype typ --- type of expression
23 ** } *val --- value, if known. if unknown, val = (_val *)0
25 ** storeRef sref --- storage referred to by expression, of storeRef_null
27 ** cstring etext --- to get nice error messages, punt for now!
30 /* in exprNode_type: typedef struct _exprNode *exprNode; */
34 XPR_PARENS, XPR_ASSIGN, XPR_CALL, XPR_EMPTY, XPR_VAR,
35 XPR_OP, XPR_POSTOP, XPR_PREOP, XPR_SIZEOFT, XPR_SIZEOF, XPR_ALIGNOFT, XPR_ALIGNOF,
36 XPR_OFFSETOF, XPR_CAST, XPR_FETCH, XPR_VAARG, XPR_ITER,
37 XPR_FOR, XPR_FORPRED, XPR_GOTO, XPR_CONTINUE, XPR_BREAK,
38 XPR_RETURN, XPR_NULLRETURN, XPR_COMMA, XPR_COND, XPR_IF, XPR_IFELSE,
39 XPR_DOWHILE, XPR_WHILE, XPR_STMT, XPR_STMTLIST, XPR_SWITCH,
40 XPR_INIT, XPR_FACCESS, XPR_ARROW, XPR_CONST, XPR_STRINGLITERAL,
41 XPR_NUMLIT, XPR_BODY, XPR_NODE, XPR_ITERCALL, XPR_TOK,
42 XPR_WHILEPRED, XPR_CASE, XPR_FTCASE, XPR_DEFAULT, XPR_FTDEFAULT,
43 XPR_BLOCK, XPR_INITBLOCK, XPR_LABEL
49 /*@only@*/ cstringList field;
54 /*@only@*/ exprNode a;
55 /*@only@*/ exprNode b;
60 /*@only@*/ exprNode pred;
61 /*@only@*/ exprNode tbranch;
62 /*@only@*/ exprNode fbranch;
67 /*@dependent@*/ /*@observer@*/ uentry sname;
68 /*@only@*/ exprNodeList args;
69 /*@only@*/ exprNode body;
70 /*@dependent@*/ /*@observer@*/ uentry ename;
75 /*@only@*/ exprNode fcn;
76 /*@only@*/ exprNodeList args;
81 /*@dependent@*/ /*@exposed@*/ uentry iter;
82 /*@only@*/ exprNodeList args;
87 /*@only@*/ exprNode a;
88 /*@only@*/ exprNode b;
94 /*@only@*/ exprNode rec;
95 /*@only@*/ cstring field;
100 /*@only@*/ exprNode a;
106 /*@only@*/ exprNode exp;
113 /*@only@*/ exprNode exp;
117 typedef /*@null@*/ union
122 qtype qt; /* sizeof(type) */
123 /* use for any 2-operator (comma, arrayFetch, case, stmt) */
125 exprOp op; /* pair + operator */
130 exprIterCall itercall;
134 exprTriple triple; /* ifelse, ternary op, for pred */
138 /*@constant null exprData exprData_undefined; @*/
139 # define exprData_undefined ((exprData) NULL)
143 bool isJumpPoint BOOLBITS; /* expr can be reached non-sequentially */
144 bool canBreak BOOLBITS; /* expr can break (has break, continue) */
145 bool mustBreak BOOLBITS;
151 /*@exposed@*/ sRef sref;
152 sRefSet uses; /* sRef's used by this expression */
153 sRefSet sets; /* sRef's set by this expression */
154 sRefSet msets; /* sRef's possibly set (implicit out params, etc.) */
160 /*@relnull@*/ exprData edata;
162 /*@notnull@*/ constraintList requiresConstraints;
163 /*@notnull@*/ constraintList ensuresConstraints;
164 //these two are used only for boolean expressions
165 //they store the ensures constraints for the true and false cases
166 /*@notnull@*/ constraintList trueEnsuresConstraints;
167 /*@notnull@*/ constraintList falseEnsuresConstraints;
170 /*@constant null exprNode exprNode_undefined; @*/
171 # define exprNode_undefined ((exprNode)NULL)
173 extern /*@falsenull@*/ bool exprNode_isDefined (exprNode p_e) /*@*/ ;
174 extern /*@unused@*/ /*@truenull@*/ bool exprNode_isUndefined (exprNode p_e) /*@*/ ;
175 extern /*@truenull@*/ bool exprNode_isError (exprNode p_e) /*@*/ ;
177 # define exprNode_isDefined(e) ((e) != exprNode_undefined)
178 # define exprNode_isUndefined(e) ((e) == exprNode_undefined)
179 # define exprNode_isError(e) ((e) == exprNode_undefined)
181 extern /*@dependent@*/ /*@exposed@*/ guardSet
182 exprNode_getGuards (/*@sef@*/ exprNode p_e) /*@*/ ;
183 # define exprNode_getGuards(e) \
184 (exprNode_isDefined(e) ? (e)->guards : guardSet_undefined)
186 extern ctype exprNode_getType (/*@sef@*/ exprNode p_e) /*@*/ ;
187 # define exprNode_getType(e) \
188 (exprNode_isDefined(e) ? (e)->typ : ctype_unknown)
190 extern /*@unused@*/ /*@falsenull@*/ bool exprNode_isInParens (/*@sef@*/ exprNode p_e) /*@*/ ;
191 # define exprNode_isInParens(e) \
192 (exprNode_isDefined(e) && (e)->kind == XPR_PARENS)
194 extern bool exprNode_isStringLiteral (/*@sef@*/ exprNode p_e) /*@*/ ;
195 # define exprNode_isStringLiteral(e) \
196 (exprNode_isDefined(e) && (e)->kind == XPR_STRINGLITERAL)
198 extern /*@unused@*/ bool exprNode_knownIntValue (/*@sef@*/ exprNode p_e) /*@*/ ;
199 # define exprNode_knownIntValue(e) \
200 (exprNode_isDefined(e) && multiVal_isInt (exprNode_getValue (e)))
202 extern /*@unused@*/ bool exprNode_knownStringValue (/*@sef@*/ exprNode p_e) /*@*/ ;
203 # define exprNode_knownStringValue(e) \
204 (exprNode_isDefined(e) && multiVal_isString (exprNode_getValue (e)))
206 extern bool exprNode_hasValue (/*@sef@*/ exprNode p_e) /*@*/ ;
207 # define exprNode_hasValue(e) \
208 (exprNode_isDefined(e) && multiVal_isDefined (exprNode_getValue (e)))
210 extern /*@exposed@*/ multiVal exprNode_getValue (exprNode p_e) /*@*/ ;
211 extern long exprNode_getLongValue (exprNode p_e) /*@*/ ;
213 extern /*@observer@*/ cstring exprNode_unparseFirst (exprNode p_e) /*@*/ ;
214 extern /*@observer@*/ guardSet exprNode_getForGuards (exprNode p_pred) /*@*/ ;
215 extern bool exprNode_isNullValue (exprNode p_e) /*@*/ ;
216 extern /*@exposed@*/ sRef exprNode_getSref (exprNode p_e) /*@*/ ;
217 extern /*@observer@*/ uentry exprNode_getUentry (exprNode p_e)
218 /*@globals internalState@*/ ;
219 extern void exprNode_produceGuards (exprNode p_pred) /*@modifies p_pred@*/ ;
220 extern /*@observer@*/ fileloc exprNode_loc (exprNode p_e) /*@*/ ;
222 exprNode_charLiteral (char p_c, cstring p_text, /*@only@*/ fileloc p_loc) /*@*/ ;
223 extern /*@observer@*/ exprNode exprNode_makeMustExit (void) /*@*/ ;
225 exprNode_cond (/*@keep@*/ exprNode p_pred, /*@keep@*/ exprNode p_ifclause,
226 /*@keep@*/ exprNode p_elseclause) /*@*/ ;
227 extern exprNode exprNode_makeError(void) /*@*/ ;
229 extern exprNode exprNode_makeInitBlock (lltok p_brace, /*@only@*/ exprNodeList p_inits) /*@*/ ;
231 extern exprNode exprNode_functionCall (/*@only@*/ exprNode p_f,
232 /*@only@*/ exprNodeList p_args) /*@*/ ;
233 extern /*@notnull@*/ exprNode
234 exprNode_fromIdentifier (/*@observer@*/ uentry p_c) /*@globals internalState@*/ ;
235 extern exprNode exprNode_fromUIO (cstring p_c) /*@globals internalState@*/ ;
236 extern exprNode exprNode_fieldAccess (/*@only@*/ exprNode p_s,
237 /*@only@*/ lltok p_dot,
238 /*@only@*/ cstring p_f) /*@*/ ;
240 extern exprNode exprNode_arrowAccess (/*@only@*/ exprNode p_s,
241 /*@only@*/ lltok p_arrow,
242 /*@only@*/ cstring p_f) /*@*/ ;
244 extern exprNode exprNode_postOp (/*@only@*/ exprNode p_e, /*@only@*/ lltok p_op)
246 extern exprNode exprNode_preOp (/*@only@*/ exprNode p_e, /*@only@*/ lltok p_op) /*@*/ ;
247 extern exprNode exprNode_addParens (/*@only@*/ lltok p_lpar, /*@only@*/ exprNode p_e) /*@*/ ;
248 extern exprNode exprNode_offsetof (/*@only@*/ qtype p_qt, /*@only@*/ cstringList p_s) /*@*/ ;
249 extern exprNode exprNode_sizeofType (/*@only@*/ qtype p_qt) /*@*/ ;
250 extern exprNode exprNode_sizeofExpr (/*@only@*/ exprNode p_e) /*@*/ ;
251 extern exprNode exprNode_alignofType (/*@only@*/ qtype p_qt) /*@*/ ;
252 extern exprNode exprNode_alignofExpr (/*@only@*/ exprNode p_e) /*@*/ ;
254 exprNode_op (/*@only@*/ exprNode p_e1, /*@keep@*/ exprNode p_e2, /*@only@*/ lltok p_op) /*@*/ ;
256 exprNode_assign (/*@only@*/ exprNode p_e1, /*@only@*/ exprNode p_e2, /*@only@*/ lltok p_op) ;
258 exprNode_arrayFetch (/*@only@*/ exprNode p_e1, /*@only@*/ exprNode p_e2)
259 /*@modifies p_e1, p_e2@*/ ;
261 extern void exprNode_free (/*@only@*/ exprNode p_e) ;
263 exprNode_vaArg (/*@only@*/ lltok p_tok, /*@only@*/ exprNode p_arg, /*@only@*/ qtype p_qt)
264 /*@globals internalState@*/ ;
267 ** Has surrounding quotes.
271 exprNode_stringLiteral (/*@only@*/ cstring p_t, /*@only@*/ fileloc p_loc) /*@*/ ;
274 ** No surrounding quotes.
278 exprNode_rawStringLiteral (/*@only@*/ cstring p_t, /*@only@*/ fileloc p_loc) /*@*/ ;
280 extern exprNode exprNode_comma (/*@only@*/ exprNode p_e1, /*@only@*/ exprNode p_e2) /*@*/ ;
281 extern exprNode exprNode_labelMarker (/*@only@*/ cstring p_label);
283 exprNode_notReached (/*@returned@*/ exprNode p_stmt);
286 exprNode exprNode_caseMarker (/*@only@*/ exprNode p_test, bool p_fallThrough) /*@*/ ;
288 extern exprNode exprNode_concat (/*@only@*/ exprNode p_e1, /*@only@*/ exprNode p_e2);
289 extern exprNode exprNode_createTok (/*@only@*/ lltok p_t) /*@*/ ;
290 extern exprNode exprNode_statement (/*@only@*/ exprNode p_e, /*@only@*/ lltok p_t);
291 extern exprNode exprNode_makeBlock (/*@only@*/ exprNode p_e);
292 extern exprNode exprNode_if (/*@only@*/ exprNode p_pred, /*@only@*/ exprNode p_tclause);
294 exprNode_ifelse (/*@only@*/ exprNode p_pred, /*@only@*/ exprNode p_tclause,
295 /*@only@*/ exprNode p_eclause);
296 extern exprNode exprNode_switch (/*@only@*/ exprNode p_e, /*@only@*/ exprNode p_s);
297 extern exprNode exprNode_while (/*@keep@*/ exprNode p_t, /*@keep@*/ exprNode p_b);
298 extern exprNode exprNode_doWhile (/*@only@*/ exprNode p_b, /*@only@*/ exprNode p_t);
299 extern /*@notnull@*/ /*@only@*/ exprNode exprNode_goto (/*@only@*/ cstring p_label);
300 extern exprNode exprNode_continue (/*@only@*/ lltok p_l, int p_qcontinue);
301 extern exprNode exprNode_break (/*@only@*/ lltok p_l, int p_bqual);
302 extern exprNode exprNode_nullReturn (/*@only@*/ lltok p_t);
303 extern exprNode exprNode_return (/*@only@*/ exprNode p_e);
304 extern /*@dependent@*/ /*@observer@*/ cstring
305 exprNode_unparse (/*@temp@*/ exprNode p_e) /*@*/ ;
307 extern bool exprNode_isCharLit (exprNode p_e) /*@*/ ;
308 extern bool exprNode_isNumLit (exprNode p_e) /*@*/ ;
311 exprNode_makeInitialization (/*@only@*/ idDecl p_t, /*@only@*/ exprNode p_e);
313 exprNode exprNode_makeEmptyInitialization (/*@only@*/ idDecl p_t) ;
315 extern bool exprNode_isInitializer (exprNode p_e) /*@*/ ;
317 extern bool exprNode_matchType (ctype p_expected, exprNode p_e);
319 extern /*@notnull@*/ /*@only@*/ exprNode
320 exprNode_defaultMarker (/*@only@*/ lltok p_def, bool p_fallThrough);
323 exprNode_iter (/*@observer@*/ uentry p_name, /*@only@*/ exprNodeList p_alist,
324 /*@only@*/ exprNode p_body, /*@observer@*/ uentry p_end);
325 extern exprNode exprNode_iterId (/*@observer@*/ uentry p_c);
326 extern exprNode exprNode_iterExpr (/*@returned@*/ exprNode p_e);
327 extern exprNode exprNode_iterNewId (/*@only@*/ cstring p_s);
329 exprNode_iterStart (/*@observer@*/ uentry p_name, /*@only@*/ exprNodeList p_alist);
331 exprNode_numLiteral (ctype p_c, /*@temp@*/ cstring p_t,
332 /*@only@*/ fileloc p_loc, long p_val);
333 extern void exprNode_initMod (void) /*@modifies internalState@*/ ;
334 extern exprNode exprNode_for (/*@keep@*/ exprNode p_inc, /*@keep@*/ exprNode p_body);
336 exprNode_forPred (/*@only@*/ exprNode p_init,
337 /*@only@*/ exprNode p_test, /*@only@*/ exprNode p_inc);
339 exprNode_floatLiteral (double p_d, ctype p_ct,
340 cstring p_text, /*@only@*/ fileloc p_loc);
341 extern /*@notnull@*/ exprNode exprNode_createId (/*@observer@*/ uentry p_c);
342 extern exprNode exprNode_cast (/*@only@*/ lltok p_tok, /*@only@*/ exprNode p_e, /*@only@*/ qtype p_q);
343 extern bool exprNode_matchLiteral (ctype p_expected, exprNode p_e);
344 extern void exprNode_checkUseParam (exprNode p_current);
345 extern void exprNode_checkSet (exprNode p_e, /*@exposed@*/ sRef p_s);
346 extern void exprNode_checkMSet (exprNode p_e, /*@exposed@*/ sRef p_s);
347 extern exprNode exprNode_checkExpr (/*@returned@*/ exprNode p_e);
348 extern bool exprNode_mustEscape (exprNode p_e);
349 extern bool exprNode_errorEscape (exprNode p_e);
350 extern bool exprNode_mayEscape (exprNode p_e);
351 extern exprNode exprNode_whilePred (/*@only@*/ exprNode p_test);
353 exprNode_updateLocation (/*@returned@*/ exprNode p_e, /*@temp@*/ fileloc p_loc);
354 extern void exprNode_freeShallow (/*@only@*/ exprNode p_e);
355 extern void exprNode_destroyMod (void) /*@modifies internalState@*/ ;
356 extern bool exprNode_isAssign (exprNode p_e) /*@*/ ;
360 extern /*@observer@*/ fileloc exprNode_getfileloc (exprNode p_e) ;
363 extern bool exprNode_isDefaultMarker (exprNode p_e) /*@*/ ;
364 extern bool exprNode_isCaseMarker (exprNode p_e) /*@*/ ;
365 extern bool exprNode_isLabelMarker (exprNode p_e) /*@*/ ;
368 extern /*@only@*/ exprNode exprNode_combineLiterals (/*@only@*/ exprNode p_e, /*@only@*/ exprNode p_rest) ;
370 extern /*@only@*/ fileloc exprNode_getNextSequencePoint (exprNode p_e) ;
373 // Commenting out because this seems to conflict with Dave Evans version
374 //exprNode exprNode_fakeCopy (@returned@ exprNode p_e);
377 exprNode exprNode_createNew(ctype p_c);
380 # error "Multiple include"