aboutsummaryrefslogtreecommitdiffstats
path: root/3rdparty
diff options
context:
space:
mode:
authorgatecat <gatecat@ds0.me>2022-02-04 15:54:41 +0000
committergatecat <gatecat@ds0.me>2022-02-04 15:54:41 +0000
commit5ef5c33e9e964a176040c829adc965ec46331d77 (patch)
tree1fb6dbc7721986d3e6431d2aed15f75b7dedde31 /3rdparty
parent5007cd3603d71f10924bb97acfe42d50d2ebcbd4 (diff)
downloadnextpnr-5ef5c33e9e964a176040c829adc965ec46331d77.tar.gz
nextpnr-5ef5c33e9e964a176040c829adc965ec46331d77.tar.bz2
nextpnr-5ef5c33e9e964a176040c829adc965ec46331d77.zip
generic: Add missing Pip vector binding
Signed-off-by: gatecat <gatecat@ds0.me>
Diffstat (limited to '3rdparty')
0 files changed, 0 insertions, 0 deletions
/a> 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145
--  Area based memory manager
--  Copyright (C) 2014 Tristan Gingold
--
--  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, see <gnu.org/licenses>.

with Ada.Unchecked_Deallocation;

package body Areapools is
   procedure Deallocate is new Ada.Unchecked_Deallocation
     (Chunk_Type, Chunk_Acc);

   Free_Chunks : Chunk_Acc;

   function Get_Chunk return Chunk_Acc is
      Res : Chunk_Acc;
   begin
      if Free_Chunks /= null then
         Res := Free_Chunks;
         Free_Chunks := Res.Prev;
         return Res;
      else
         return new Chunk_Type (Default_Chunk_Size - 1);
      end if;