remove c impl of lists

Author: czgdp1807

src/runtime/impure/lfortran_intrinsics.c

@@ -793,89 +793,6 @@ LFORTRAN_API void _lfortran_string_init(int size_plus_one, char *s) {
     s[size] = '\0';
 }
 
-// ########## List Implementation ##########
-
-// Generic structure for lists with elements of any type
-
-struct _lcompilers_list_info {
-    uint64_t n;
-    uint64_t capacity;
-    uint64_t type_size;
-};
-
-struct _lcompilers_list {
-    struct _lcompilers_list_info* info;
-    void *p;
-};
-
-LFORTRAN_API void _lcompilers_list_copy(int8_t* src, int8_t* dest) {
-    struct _lcompilers_list *lsrc = (struct _lcompilers_list*) src;
-    struct _lcompilers_list *ldest = (struct _lcompilers_list*) dest;
-    ldest->info = lsrc->info;
-    ldest->p = lsrc->p;
-}
-
-static inline int8_t* _lcompilers_list_init_util(int32_t type_size, int32_t n, int32_t capacity) {
-    struct _lcompilers_list *l;
-    struct _lcompilers_list_info* l_info;
-    l = (struct _lcompilers_list*) malloc(sizeof(struct _lcompilers_list));
-    l_info = (struct _lcompilers_list_info*) malloc(sizeof(struct _lcompilers_list_info));
-    l_info->n = n;
-    l_info->capacity = capacity;
-    l_info->type_size = type_size;
-    l->info = l_info;
-    l->p = malloc(l->info->capacity * type_size);
-    return (int8_t*) l;
-}
-
-LFORTRAN_API int8_t* _lcompilers_list_init(int32_t type_size) {
-    return _lcompilers_list_init_util(type_size, 0, 1);
-}
-
-LFORTRAN_API int8_t* _lcompilers_list_init_with_initial_capacity(int32_t type_size,
-    int32_t initial_capacity) {
-    return _lcompilers_list_init_util(type_size, initial_capacity, initial_capacity);
-}
-
-static inline void _lcompilers_list_append(struct _lcompilers_list *l) {
-    if (l->info->n == l->info->capacity) {
-        l->info->capacity = 2 * l->info->capacity;
-        l->p = realloc(l->p, l->info->type_size * l->info->capacity);
-    }
-}
-
-LFORTRAN_API void _lcompilers_list_append_i32(int8_t* s, int32_t item) {
-    struct _lcompilers_list *l = (struct _lcompilers_list*)s;
-    _lcompilers_list_append(l);
-    int32_t* p_i32 = l->p;
-    p_i32[l->info->n] = item;
-    l->info->n += 1;
-}
-
-static inline int _lcompilers_list_item(struct _lcompilers_list* l, int32_t pos) {
-    if (!(pos >= 0 && pos < l->info->n)) {
-        printf("%d is out of bounds (%d, %llu)\n", pos, 0, l->info->n);
-        return 0;
-    }
-    return 1;
-}
-
-// pos is the index = 0..n - 1
-LFORTRAN_API int32_t _lcompilers_list_item_i32(int8_t* s, int32_t pos) {
-    struct _lcompilers_list *l = (struct _lcompilers_list*) s;
-    if( !_lcompilers_list_item(l, pos) ) return 0;
-    int32_t* pi32 = l->p;
-    return pi32[pos];
-}
-
-// pos is the index = 0..n - 1
-LFORTRAN_API void _lcompilers_list_write_item_i32(int8_t* s, int32_t pos, int32_t item) {
-    struct _lcompilers_list *l = (struct _lcompilers_list*) s;
-    if( !_lcompilers_list_item(l, pos) ) return ;
-    int32_t* pi32 = l->p;
-    pi32[pos] = item;
-}
-
 // bit  ------------------------------------------------------------------------
 
 LFORTRAN_API int32_t _lfortran_iand32(int32_t x, int32_t y) {