From cdc6e2c50f96119bdc4c1205ff5901ca82ec8357 Mon Sep 17 00:00:00 2001 From: camthesaxman Date: Wed, 29 Jan 2020 18:17:43 -0600 Subject: add old compiler with ARM support --- gcc_arm/varray.c | 70 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 70 insertions(+) create mode 100755 gcc_arm/varray.c (limited to 'gcc_arm/varray.c') diff --git a/gcc_arm/varray.c b/gcc_arm/varray.c new file mode 100755 index 0000000..80f15b2 --- /dev/null +++ b/gcc_arm/varray.c @@ -0,0 +1,70 @@ +/* Virtual array support. + Copyright (C) 1998 Free Software Foundation, Inc. + Contributed by Cygnus Solutions. + + This file is part of GNU CC. + + GNU CC is free software; you can redistribute it and/or modify it + under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + GNU CC is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. + + You should have received a copy of the GNU General Public License + along with GNU CC; see the file COPYING. If not, write to the Free + the Free Software Foundation, 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ + +#include "config.h" +#include "system.h" +#include "rtl.h" +#include "tree.h" +#include "bitmap.h" +#include "varray.h" + +#define VARRAY_HDR_SIZE (sizeof (struct varray_head_tag) - sizeof (varray_data)) + +/* Allocate a virtual array with NUM_ELEMENT elements, each of which is + ELEMENT_SIZE bytes long, named NAME. Array elements are zeroed. */ +varray_type +varray_init (num_elements, element_size, name) + size_t num_elements; + size_t element_size; + const char *name; +{ + size_t data_size = num_elements * element_size; + varray_type ptr = (varray_type) xcalloc (VARRAY_HDR_SIZE + data_size, 1); + + ptr->num_elements = num_elements; + ptr->element_size = element_size; + ptr->name = name; + return ptr; +} + +/* Grow/shrink the virtual array VA to N elements. Zero any new elements + allocated. */ +varray_type +varray_grow (va, n) + varray_type va; + size_t n; +{ + size_t old_elements = va->num_elements; + + if (n != old_elements) + { + size_t element_size = va->element_size; + size_t old_data_size = old_elements * element_size; + size_t data_size = n * element_size; + + va = (varray_type) xrealloc ((char *)va, VARRAY_HDR_SIZE + data_size); + va->num_elements = n; + if (n > old_elements) + bzero (&va->data.c[old_data_size], data_size - old_data_size); + } + + return va; +} -- cgit v1.2.3