代码搜索:controlled

找到约 10,000 项符合「controlled」的源代码

代码结果 10,000
www.eeworm.com/read/366702/2872776

ads controlled3.ads

with Ada.Finalization; use Ada.Finalization; package controlled3 is type Test is new Controlled with null record; procedure Add_Test (T : access Test'Class); type Test_Case1 is new Test w
www.eeworm.com/read/366702/2872789

adb controlled4.adb

-- { dg-do compile } package body controlled4 is procedure Test_Suite is begin Add_Test (new Test_Case'(Test_Case1 with Link_Under_Test => 300)); end Test_Suite; end;
www.eeworm.com/read/366702/2872708

adb nested_controlled_alloc.adb

-- { dg-do run } with Text_IO; use Text_IO; with Ada.Finalization; use Ada.Finalization; procedure Nested_Controlled_Alloc is package Controlled_Alloc is type Fin is new Limited_Contro
www.eeworm.com/read/162614/5525342

a c760011.a

-- C760011.A -- -- Grant of Unlimited Rights -- -- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, -- F08630-91-C-0015, and DCA100-97-D-0025,