Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/lto17.ads @ 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
package Lto17 is type Chunk_List_Element; type Chunk_List is access Chunk_List_Element; type Arr is array (Natural range <>) of Integer; type Chunk(Size : Natural) is record Data : Arr(1 .. Size); Where : Natural; end record; type Chunk_List_Element(Size : Natural) is record Chnk : Chunk(Size); Link : Chunk_List; end record; function To_Chunk_List(C : Chunk) return Chunk_List; end Lto17;