1 package body VarInts is 2 3 procedure VarInt_Write(Stream : not null access Root_Stream_Type'Class; 4 I : in VarInt) is 5 begin 6 case I is 7 when 0 .
確定! 回上一頁