Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/protected_self_ref1.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 run } with System; procedure Protected_Self_Ref1 is protected type P is procedure Foo; end P; protected body P is procedure Foo is Ptr : access P; -- here P denotes the type P T : Integer; A : System.Address; begin Ptr := P'Access; -- here P denotes the "this" instance of P T := P'Size; A := P'Address; end; end P; O : P; begin O.Foo; end Protected_Self_Ref1;