contrib/gcc/tree-browser.c

117   tree head;
127   head = N;                                                           \
129     if (head)                                                         \
131 	print_generic_expr (TB_OUT_FILE, head, 0);                    \
141     TB_update_up (head);
161 	  TB_update_up (head);
165 	  if (head && (INTEGRAL_TYPE_P (head)
166 		       || TREE_CODE (head) == REAL_TYPE))
167 	    TB_SET_HEAD (TYPE_MAX_VALUE (head));
173 	  if (head && (INTEGRAL_TYPE_P (head)
174 		       || TREE_CODE (head) == REAL_TYPE))
175 	    TB_SET_HEAD (TYPE_MIN_VALUE (head));
181 	  if (head && TREE_CODE (head) == TREE_VEC)
187 	  else if (head && TREE_CODE (head) == VECTOR_CST)
198 	  if (head && TREE_CODE (head) == TREE_LIST)
199 	    TB_SET_HEAD (TREE_VALUE (head));
205 	  if (head && TREE_CODE (head) == TREE_LIST)
206 	    TB_SET_HEAD (TREE_PURPOSE (head));
212 	  if (head && TREE_CODE (head) == COMPLEX_CST)
213 	    TB_SET_HEAD (TREE_IMAGPART (head));
219 	  if (head && TREE_CODE (head) == COMPLEX_CST)
220 	    TB_SET_HEAD (TREE_REALPART (head));
226 	  if (head && TREE_CODE (head) == BIND_EXPR)
227 	    TB_SET_HEAD (TREE_OPERAND (head, 2));
233 	  if (head && TREE_CODE (head) == BLOCK)
234 	    TB_SET_HEAD (BLOCK_SUBBLOCKS (head));
240 	  if (head && TREE_CODE (head) == BLOCK)
241 	    TB_SET_HEAD (BLOCK_SUPERCONTEXT (head));
247 	  if (head && TREE_CODE (head) == BLOCK)
248 	    TB_SET_HEAD (BLOCK_VARS (head));
249 	  else if (head && TREE_CODE (head) == BIND_EXPR)
250 	    TB_SET_HEAD (TREE_OPERAND (head, 0));
256 	  if (head && TYPE_P (head))
257 	    TB_SET_HEAD (TYPE_REFERENCE_TO (head));
263 	  if (head && TYPE_P (head))
264 	    TB_SET_HEAD (TYPE_POINTER_TO (head));
270 	  if (head && TREE_CODE (head) == OFFSET_TYPE)
271 	    TB_SET_HEAD (TYPE_OFFSET_BASETYPE (head));
277 	  if (head && (TREE_CODE (head) == FUNCTION_TYPE
278 		       || TREE_CODE (head) == METHOD_TYPE))
279 	    TB_SET_HEAD (TYPE_ARG_TYPES (head));
285 	  if (head && (TREE_CODE (head) == FUNCTION_TYPE
286 		       || TREE_CODE (head) == METHOD_TYPE)
287 	      && TYPE_METHOD_BASETYPE (head))
288 	    TB_SET_HEAD (TYPE_METHOD_BASETYPE (head));
294 	  if (head && (TREE_CODE (head) == RECORD_TYPE
295 		       || TREE_CODE (head) == UNION_TYPE
296 		       || TREE_CODE (head) == QUAL_UNION_TYPE))
297 	    TB_SET_HEAD (TYPE_FIELDS (head));
303 	  if (head && TREE_CODE (head) == ARRAY_TYPE)
304 	    TB_SET_HEAD (TYPE_DOMAIN (head));
310 	  if (head && TREE_CODE (head) == ENUMERAL_TYPE)
311 	    TB_SET_HEAD (TYPE_VALUES (head));
317 	  if (head && TREE_CODE (head) == PARM_DECL)
318 	    TB_SET_HEAD (DECL_ARG_TYPE (head));
324 	  if (head && DECL_P (head))
325 	    TB_SET_HEAD (DECL_INITIAL (head));
331 	  if (head && DECL_P (head))
332 	    TB_SET_HEAD (DECL_RESULT_FLD (head));
338 	  if (head && DECL_P (head))
339 	    TB_SET_HEAD (DECL_ARGUMENTS (head));
345 	  if (head && DECL_P (head))
346 	    TB_SET_HEAD (DECL_ABSTRACT_ORIGIN (head));
347 	  else if (head && TREE_CODE (head) == BLOCK)
348 	    TB_SET_HEAD (BLOCK_ABSTRACT_ORIGIN (head));
354 	  if (head && DECL_P (head))
355 	    TB_SET_HEAD (DECL_ATTRIBUTES (head));
356 	  else if (head && TYPE_P (head))
357 	    TB_SET_HEAD (TYPE_ATTRIBUTES (head));
363 	  if (head && DECL_P (head))
364 	    TB_SET_HEAD (DECL_CONTEXT (head));
365 	  else if (head && TYPE_P (head)
366 		   && TYPE_CONTEXT (head))
367 	    TB_SET_HEAD (TYPE_CONTEXT (head));
373 	  if (head && TREE_CODE (head) == FIELD_DECL)
374 	    TB_SET_HEAD (DECL_FIELD_OFFSET (head));
380 	  if (head && TREE_CODE (head) == FIELD_DECL)
381 	    TB_SET_HEAD (DECL_FIELD_BIT_OFFSET (head));
387 	  if (head && DECL_P (head))
388 	    TB_SET_HEAD (DECL_SIZE_UNIT (head));
389 	  else if (head && TYPE_P (head))
390 	    TB_SET_HEAD (TYPE_SIZE_UNIT (head));
396 	  if (head && DECL_P (head))
397 	    TB_SET_HEAD (DECL_SIZE (head));
398 	  else if (head && TYPE_P (head))
399 	    TB_SET_HEAD (TYPE_SIZE (head));
405 	  if (head && TREE_TYPE (head))
406 	    TB_SET_HEAD (TREE_TYPE (head));
412 	  if (head && TREE_CODE (head) == FUNCTION_DECL
413 	      && DECL_SAVED_TREE (head))
414 	    TB_SET_HEAD (DECL_SAVED_TREE (head));
420 	  if (head && TREE_CODE (head) == BIND_EXPR)
421 	    TB_SET_HEAD (TREE_OPERAND (head, 1));
427 	  if (head && EXPR_P (head) && TREE_OPERAND (head, 0))
428 	    TB_SET_HEAD (TREE_OPERAND (head, 0));
434           if (head && EXPR_P (head) && TREE_OPERAND (head, 1))
435 	    TB_SET_HEAD (TREE_OPERAND (head, 1));
441           if (head && EXPR_P (head) && TREE_OPERAND (head, 2))
442 	    TB_SET_HEAD (TREE_OPERAND (head, 2));
448 	  if (head && EXPR_P (head) && TREE_OPERAND (head, 3))
449 	    TB_SET_HEAD (TREE_OPERAND (head, 3));
455 	  if (head)
456 	    debug_tree (head);
462 	  if (head)
464 	      print_generic_stmt (TB_OUT_FILE, head, 0);
492 	      res = walk_tree (&head, find_node_with_code, &code, NULL);
507   if (head)                          \
510       t = FCT (head);                \
542 	     stack.  For this reason it should keep the "head = ..." statement
544 	  if (head)
550 		  head = t;
553 		      print_generic_expr (TB_OUT_FILE, head, 0);
566 	  if (head && TREE_CODE (head) == BLOCK)
567 	    TB_SET_HEAD (BLOCK_CHAIN (head));
568 	  else if (head && TREE_CHAIN (head))
569 	    TB_SET_HEAD (TREE_CHAIN (head));