Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/rt1.ads @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
with Ada.Streams; use Ada.Streams; package RT1 is pragma Remote_Types; type Ptr is private; procedure Read (X : access Root_Stream_Type'Class; V : out Ptr) is null; procedure Write (X : access Root_Stream_Type'Class; V : Ptr) is null; for Ptr'Read use Read; for Ptr'Write use Write; procedure P (S : access Root_Stream_Type'Class); private type Ptr is not null access all Integer; end RT1;