added H2.Slim and Slim_Stream.

renamed Stream to Wide_Stream.
This commit is contained in:
2014-03-26 14:28:41 +00:00
parent 3c5c0a547d
commit cb9505272a
12 changed files with 235 additions and 41 deletions

View File

@ -570,7 +570,7 @@ procedure Execute (Interp: in out Interpreter_Record) is
--return;
raise IO_Error;
end;
if Interp.Input.Last < Interp.Input.Data'First then
if Interp.Input.Last < Interp.Input.Data'First then
-- The callee must read 0 bytes on EOF
Interp.Input.Flags := Interp.Input.Flags and IO_End_Reached;
Interp.Input.Iochar := (End_Character, Object_Character'First);