Mercurial > hg > CbC > CbC_gcc

comparison libgfortran/m4/ifunction-s2.m4 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
223 index_type len; 223 index_type len;
224 index_type delta; 224 index_type delta;
225 index_type mdelta; 225 index_type mdelta;
226 int mask_kind; 226 int mask_kind;
227 227
228 if (mask == NULL)
229 {
230 name`'rtype_qual`_'atype_code (retarray, xlen, array, pdim, string_len);
231 return;
232 }
233
228 assert (xlen == string_len); 234 assert (xlen == string_len);
229 235
230 dim = (*pdim) - 1; 236 dim = (*pdim) - 1;
231 rank = GFC_DESCRIPTOR_RANK (array) - 1; 237 rank = GFC_DESCRIPTOR_RANK (array) - 1;
232 238
406 index_type rank; 412 index_type rank;
407 index_type n; 413 index_type n;
408 index_type dim; 414 index_type dim;
409 415
410 416
411 if (*mask) 417 if (mask == NULL || *mask)
412 { 418 {
413 name`'rtype_qual`_'atype_code (retarray, xlen, array, pdim, string_len); 419 name`'rtype_qual`_'atype_code (retarray, xlen, array, pdim, string_len);
414 return; 420 return;
415 } 421 }
416 /* Make dim zero based to avoid confusion. */ 422 /* Make dim zero based to avoid confusion. */