contrib/gcc/sdbout.c

1249    of all the parms in PARMS, which is a chain of PARM_DECL nodes.  */
1252 sdbout_parms (tree parms)
1254   for (; parms; parms = TREE_CHAIN (parms))
1255     if (DECL_NAME (parms))
1258 	const char *name = IDENTIFIER_POINTER (DECL_NAME (parms));
1265 	DECL_INCOMING_RTL (parms)
1266 	  = eliminate_regs (DECL_INCOMING_RTL (parms), 0, NULL_RTX);
1267 	SET_DECL_RTL (parms,
1268 		      eliminate_regs (DECL_RTL (parms), 0, NULL_RTX));
1270 	if (PARM_PASSED_IN_MEMORY (parms))
1272 	    rtx addr = XEXP (DECL_INCOMING_RTL (parms), 0);
1285 	    if (REG_P (DECL_RTL (parms))
1286 		&& REGNO (DECL_RTL (parms)) < FIRST_PSEUDO_REGISTER)
1287 	      type = DECL_ARG_TYPE (parms);
1299 		    && TREE_TYPE (parms) != DECL_ARG_TYPE (parms))
1301 		    (GET_MODE_SIZE (TYPE_MODE (DECL_ARG_TYPE (parms)))
1302 		     - GET_MODE_SIZE (GET_MODE (DECL_RTL (parms))));
1304 		if (MEM_P (DECL_RTL (parms))
1305 		    && GET_CODE (XEXP (DECL_RTL (parms), 0)) == PLUS
1306 		    && (GET_CODE (XEXP (XEXP (DECL_RTL (parms), 0), 1))
1308 		    && (INTVAL (XEXP (XEXP (DECL_RTL (parms), 0), 1))
1310 		  type = TREE_TYPE (parms);
1314 		    type = DECL_ARG_TYPE (parms);
1324 	else if (REG_P (DECL_RTL (parms)))
1333 	    if (REGNO (DECL_RTL (parms)) < FIRST_PSEUDO_REGISTER)
1334 	      best_rtl = DECL_RTL (parms);
1338 	      best_rtl = DECL_INCOMING_RTL (parms);
1343 	    PUT_SDB_TYPE (plain_type (TREE_TYPE (parms)));
1346 	else if (MEM_P (DECL_RTL (parms))
1347 		 && XEXP (DECL_RTL (parms), 0) != const0_rtx)
1355 	    if (REG_P (XEXP (DECL_RTL (parms), 0))
1356 		|| MEM_P (XEXP (DECL_RTL (parms), 0)))
1359 	      current_sym_value = INTVAL (XEXP (XEXP (DECL_RTL (parms), 0), 1));
1364 						  XEXP (DECL_RTL (parms), 0)));
1366 	    PUT_SDB_TYPE (plain_type (TREE_TYPE (parms)));
1372 /* Output definitions for the places where parms live during the function,
1373    when different from where they were passed, when the parms were passed
1376    It is not useful to do this for parms passed in registers
1384 sdbout_reg_parms (tree parms)
1386   for (; parms; parms = TREE_CHAIN (parms))
1387     if (DECL_NAME (parms))
1389 	const char *name = IDENTIFIER_POINTER (DECL_NAME (parms));
1391 	/* Report parms that live in registers during the function
1393 	if (REG_P (DECL_RTL (parms))
1394 	    && REGNO (DECL_RTL (parms)) < FIRST_PSEUDO_REGISTER
1395 	    && PARM_PASSED_IN_MEMORY (parms))
1400 	    PUT_SDB_INT_VAL (DBX_REGISTER_NUMBER (REGNO (DECL_RTL (parms))));
1402 	    PUT_SDB_TYPE (plain_type (TREE_TYPE (parms)));
1405 	/* Report parms that live in memory but not where they were passed.  */
1406 	else if (MEM_P (DECL_RTL (parms))
1407 		 && GET_CODE (XEXP (DECL_RTL (parms), 0)) == PLUS
1408 		 && GET_CODE (XEXP (XEXP (DECL_RTL (parms), 0), 1)) == CONST_INT
1409 		 && PARM_PASSED_IN_MEMORY (parms)
1410 		 && ! rtx_equal_p (DECL_RTL (parms), DECL_INCOMING_RTL (parms)))
1413 	    int offset = DECL_OFFSET (parms) / BITS_PER_UNIT;
1419 		&& TREE_TYPE (parms) != DECL_ARG_TYPE (parms))
1420 	      offset += (GET_MODE_SIZE (TYPE_MODE (DECL_ARG_TYPE (parms)))
1421 			 - GET_MODE_SIZE (GET_MODE (DECL_RTL (parms))));
1422 	    if (INTVAL (XEXP (XEXP (DECL_RTL (parms), 0), 1)) != offset) {...}
1429 				 (XEXP (DECL_RTL (parms), 0)));
1431 		PUT_SDB_TYPE (plain_type (TREE_TYPE (parms)));