blob: 1660d67e825a51db11c9d7ff08c6c094fad16c06 [file] [log] [blame]
with Generic_Inst4_Gen;
with Generic_Inst4_Typ; use Generic_Inst4_Typ;
package Generic_Inst4_Inst is new Generic_Inst4_Gen (
Param => "SHARING;" & -- ERROR
Generic_Inst4_Typ.New_Int'image (Generic_Inst4_Typ.T'size/8));