1 /* do not edit automatically generated by mc from Storage. */
2 /* Storage.def provides access to the dynamic Storage handler.
4 Copyright (C) 2001-2025 Free Software Foundation, Inc.
5 Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
7 This file is part of GNU Modula-2.
9 GNU Modula-2 is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3, or (at your option)
14 GNU Modula-2 is distributed in the hope that it will be useful, but
15 WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 General Public License for more details.
19 Under Section 7 of GPL version 3, you are granted additional
20 permissions described in the GCC Runtime Library Exception, version
21 3.1, as published by the Free Software Foundation.
23 You should have received a copy of the GNU General Public License and
24 a copy of the GCC Runtime Library Exception along with this program;
25 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
26 <http://www.gnu.org/licenses/>. */
29 #if !defined (_Storage_H)
38 # if !defined (PROC_D)
40 typedef void (*PROC_t
) (void);
41 typedef struct { PROC_t proc
; } PROC
;
46 # if defined (_Storage_C)
49 # define EXTERN extern
54 ALLOCATE - attempt to allocate memory from the heap.
55 NIL is returned in, a, if ALLOCATE fails.
58 EXTERN
void Storage_ALLOCATE (void * *a
, unsigned int Size
);
61 DEALLOCATE - return, Size, bytes to the heap.
62 The variable, a, is set to NIL.
65 EXTERN
void Storage_DEALLOCATE (void * *a
, unsigned int Size
);
68 REALLOCATE - attempts to reallocate storage. The address,
69 a, should either be NIL in which case ALLOCATE
70 is called, or alternatively it should have already
71 been initialized by ALLOCATE. The allocated storage
72 is resized accordingly.
75 EXTERN
void Storage_REALLOCATE (void * *a
, unsigned int Size
);
78 Available - returns TRUE if, Size, bytes can be allocated.
81 EXTERN
bool Storage_Available (unsigned int Size
);