-- { dg-do compile } with Ada.Text_IO; use Ada.Text_IO; procedure Rep_Clause1 is type Int_16 is range 0 .. 65535; for…
ADB 源代码
ADB(Android Debug Bridge)是安卓开发与调试不可或缺的强大工具,支持设备与电脑间的数据传输、命令执行及系统管理。广泛应用于软件测试、应用安装、日志读取等场景,极大提升了开发效率。掌握ADB技术,不仅能够帮助工程师快速定位问题,还能实现复杂操作自动化。本页面汇…
-- { dg-do compile } procedure interface4 is generic type I1 is interface; type I2 is limited interface; …
-- { dg-do compile } with deref2; procedure deref3 is Obj : aliased deref2.NT; begin deref2.PT_View (Obj'Access).Op; Ob…
-- { dg-do compile } with discr1; use discr1; package body discr2 is procedure Copy (Dataset : in out C_Type) is Last_…
-- { dg-do run } with access3; use access3; procedure access4 is Obj_IT : aliased T; Obj_T2 : T2; begin Obj_T2.Op (Obj_…
-- { dg-do run } procedure Slice3 is type Varray is array (1 .. 1) of Natural; -- SImode type Sample is record May…
-- { dg-do run } with Renaming4; use Renaming4; procedure Renaming3 is type A is array(1..16) of Integer; Filler : A := (o…
-- { dg-do compile } -- { dg-options "-gnatws" } package body array1 is subtype Small is Integer range 1 .. MAX; type…
-- { dg-do compile} -- { dg-options "-gnatwa" } with Text_IO; use Text_IO; package body renaming1 is procedure Fo (A : Text_IO…
-- { dg-do run } procedure aggr1 is package Coord is type T is private; private type T is record A, …