diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-11-17 08:26:04 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-11-17 08:26:04 +0100 |
commit | 5f2be92340bb4ecf1ea0e773e4c734e53204979a (patch) | |
tree | 66a015397e1532a9288364f98458ed054905c956 /src/synth/synth-heap.ads | |
parent | 21d4678928b235098131dbe5dabdc74a51a48850 (diff) | |
download | ghdl-5f2be92340bb4ecf1ea0e773e4c734e53204979a.tar.gz ghdl-5f2be92340bb4ecf1ea0e773e4c734e53204979a.tar.bz2 ghdl-5f2be92340bb4ecf1ea0e773e4c734e53204979a.zip |
synth: initial support of access types.
Diffstat (limited to 'src/synth/synth-heap.ads')
-rw-r--r-- | src/synth/synth-heap.ads | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/synth/synth-heap.ads b/src/synth/synth-heap.ads new file mode 100644 index 000000000..5568a3772 --- /dev/null +++ b/src/synth/synth-heap.ads @@ -0,0 +1,31 @@ +-- Heap for synthesis. +-- Copyright (C) 2017 Tristan Gingold +-- +-- This file is part of GHDL. +-- +-- This program 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 of the License, or +-- (at your option) any later version. +-- +-- This program 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 this program; if not, write to the Free Software +-- Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, +-- MA 02110-1301, USA. + +with Synth.Values; use Synth.Values; + +package Synth.Heap is + -- Allocate a value. + function Allocate_By_Type (T : Type_Acc) return Heap_Index; + function Allocate_By_Value (V : Value_Acc) return Heap_Index; + + function Synth_Dereference (Idx : Heap_Index) return Value_Acc; + + procedure Synth_Deallocate (Idx : Heap_Index); +end Synth.Heap; |