hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added some file io routines

Browse Source
This commit is contained in:
hyung-hwan
2014-06-04 17:15:52 +00:00
parent 60666651c2
commit ef50de7e0f
23 changed files with 5785 additions and 328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
h2/lib/h2-sysapi.adb
View File

@ -2,12 +2,12 @@ package body H2.Sysapi is
package body File is separate;
procedure Set_File_Flag_Bits (Flag: in out File_Flag; Bits: in File_Flag_Bits) is
procedure Set_File_Flag_Bits (Flag: in out File_Flag_Record; Bits: in File_Flag_Bits) is
begin
Flag.Bits := Flag.Bits or Bits;
end Set_File_Flag_Bits;
procedure Clear_File_Flag_Bits (Flag: in out File_Flag; Bits: in File_Flag_Bits) is
procedure Clear_File_Flag_Bits (Flag: in out File_Flag_Record; Bits: in File_Flag_Bits) is
begin
Flag.Bits := Flag.Bits and not Bits;
end Clear_File_Flag_Bits;