/* Specific implementation of the UNPACK intrinsic
- Copyright 2008, 2009, 2012 Free Software Foundation, Inc.
+ Copyright (C) 2008-2013 Free Software Foundation, Inc.
Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>, based on
unpack_generic.c by Paul Brook <paul@nowt.org>.
rs *= extent[n];
}
ret->offset = 0;
- ret->base_addr = internal_malloc_size (rs * sizeof (GFC_INTEGER_16));
+ ret->base_addr = xmalloc (rs * sizeof (GFC_INTEGER_16));
}
else
{
rs *= extent[n];
}
ret->offset = 0;
- ret->base_addr = internal_malloc_size (rs * sizeof (GFC_INTEGER_16));
+ ret->base_addr = xmalloc (rs * sizeof (GFC_INTEGER_16));
}
else
{