Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/doc/gnat_ugn/the_gnat_compilation_model.rst @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4354 pragma CPP_Constructor (New_Animal); 4354 pragma CPP_Constructor (New_Animal);
4355 pragma Import (CPP, New_Animal, "_ZN6AnimalC1Ev"); 4355 pragma Import (CPP, New_Animal, "_ZN6AnimalC1Ev");
4356 4356
4357 type Dog is new Animal and Carnivore and Domestic with record 4357 type Dog is new Animal and Carnivore and Domestic with record
4358 Tooth_Count : Natural; 4358 Tooth_Count : Natural;
4359 Owner : String (1 .. 30); 4359 Owner : Chars_Ptr;
4360 end record; 4360 end record;
4361 pragma Import (C_Plus_Plus, Dog); 4361 pragma Import (C_Plus_Plus, Dog);
4362 4362
4363 function Number_Of_Teeth (A : Dog) return Natural; 4363 function Number_Of_Teeth (A : Dog) return Natural;
4364 pragma Import (C_Plus_Plus, Number_Of_Teeth); 4364 pragma Import (C_Plus_Plus, Number_Of_Teeth);