Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/env_compile_capacity.adb @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } with My_Env_Versioned_Value_Set_G; package body Env_Compile_Capacity is generic with package Env_Obj_Set_Instance is new My_Env_Versioned_Value_Set_G(<>); with function Updated_Entity (Value : Env_Obj_Set_Instance.Value_T) return Boolean is <>; with package Entity_Upd_Iteration is new Env_Obj_Set_Instance.Update_G (Updated_Entity); procedure Compile_G; procedure Compile_G is begin null; end; package My_Env_Aerodrome is new My_Env_Versioned_Value_Set_G (Value_T => String); function Updated_Entity (Id : in String) return Boolean is begin return True; end; package Iteration_Aerodrome_Arrival is new My_Env_Aerodrome.Update_G (Updated_Entity); procedure Aerodrome_Arrival is new Compile_G (Env_Obj_Set_Instance => My_Env_Aerodrome, Updated_Entity => Updated_Entity, Entity_Upd_Iteration => Iteration_Aerodrome_Arrival); end Env_Compile_Capacity;