Searched refs:sptrdtype (Results 1 – 2 of 2) sorted by relevance
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | rest.c | 2778 int sptr, sptrdtype, ptr, astlw, astup, aststride; in new_seq_temp_array() local 2796 sptrdtype = DTYPEG(sptr); in new_seq_temp_array() 2797 ADD_MLPYR(sptrdtype, 0) = astb.bnd.one; in new_seq_temp_array() 2806 ADD_LWBD(sptrdtype, i) = ADD_LWAST(sptrdtype, i) = astb.bnd.one; in new_seq_temp_array() 2814 ADD_UPBD(sptrdtype, i) = ADD_UPAST(sptrdtype, i) = astup; in new_seq_temp_array() 2815 ADD_EXTNTAST(sptrdtype, i) = mk_extent(astb.bnd.one, astup, i); in new_seq_temp_array() 2816 ADD_MLPYR(sptrdtype, i + 1) = in new_seq_temp_array() 2817 mk_binop(OP_MUL, ADD_MLPYR(sptrdtype, i), astup, astb.bnd.dtype); in new_seq_temp_array()
|
H A D | ast.c | 2218 int sptr, sptrdtype, offsetx, numdim, asd, i, sub, offx, ssoffx; in mk_offset() local 2231 sptrdtype = DTYPEG(sptr); in mk_offset() 2233 numdim = ADD_NUMDIM(sptrdtype); in mk_offset() 2242 ssoffx = mk_binop(OP_SUB, ss, ADD_LWAST(sptrdtype, i), resdtype); in mk_offset() 2243 ssoffx = mk_binop(OP_MUL, ssoffx, ADD_MLPYR(sptrdtype, i), resdtype); in mk_offset() 2250 offx = mk_binop(OP_MUL, offx, size_ast(sptr, DTY(sptrdtype + 1)), resdtype); in mk_offset()
|