Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
bip_cu_t.adb
blob: bf005b1c19152aeea662f17d9741f835c7c06cea [
file
] [
log
] [
blame
]
package
body BIP_CU_T
is
function
Make_T
(
Name
:
String
)
return
T
is
begin
return
(
Name
=>
To_Unbounded_String
(
Name
),
others
=>
<>);
end
Make_T
;
end
BIP_CU_T
;