ARM+ADS 源代码

/* * ads-io.c -- stub io functions for targets using the sds monitor * * Copyright (c) 1998 Cygnus Support * * The authors he…

with deref1; package deref2 is type NT is tagged limited private; function PT_View (Obj : not null access NT) retur…

with Ada.Finalization; use Ada.Finalization; package controlled1 is type Test is new Controlled with null record; procedure …

package Renaming4 is type Big_Array is array (Natural range ) of Integer; subtype Index is Natural range 1..4; subtype …

package elab1 is -- the forward declaration is the trigger type Stream; type Stream_Ptr is access Stream; type St…

with volatile1; use volatile1; package volatile2 is type PData_Array is access Data_Array; type Result_Desc is …

package discr1 is type R is (One, Two); type C_Type (Kind : R) is record case Kind is when One => Name …

-- { dg-do compile } package addr1 is pragma Elaborate_Body; end;

package access3 is type IT is limited interface; type T is limited new IT with null record; type T2 is tagged limited…

package deref1 is type T is tagged limited null record; procedure Op (Obj : in out T); end deref1;