Mercurial > hg > CbC > CbC_gcc
annotate 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 |
rev | line source |
---|---|
111 | 1 package Lto17 is |
2 | |
3 type Chunk_List_Element; | |
4 type Chunk_List is access Chunk_List_Element; | |
5 | |
6 type Arr is array (Natural range <>) of Integer; | |
7 | |
8 type Chunk(Size : Natural) is record | |
9 Data : Arr(1 .. Size); | |
10 Where : Natural; | |
11 end record; | |
12 | |
13 type Chunk_List_Element(Size : Natural) is record | |
14 Chnk : Chunk(Size); | |
15 Link : Chunk_List; | |
16 end record; | |
17 | |
18 function To_Chunk_List(C : Chunk) return Chunk_List; | |
19 | |
20 end Lto17; |