Home | History | Annotate | Download | only in ada

Lines Matching refs:Code

57          16#03#                          --  OS code
61    --  Note that some code below is using assumption
91    procedure Check_Error (Stream : in Z_Stream; Code : in Thin.Int);
121    procedure Check_Error (Stream : in Z_Stream; Code : in Thin.Int) is
124       if Code /= Thin.Z_OK then
126             (Return_Code_Enum'Image (Return_Code (Code))
139       Code : Thin.Int;
145       Code := Flate (Filter.Compression).Done (To_Thin_Access (Filter.Strm));
147       if Ignore_Error or else Code = Thin.Z_OK then
157                 Return_Code_Enum'Image (Return_Code (Code))
517       Code : Thin.Int;
531       Code := Flate (Filter.Compression).Step
535       if Code = Thin.Z_STREAM_END then
538          Check_Error (Filter.Strm.all, Code);