2014-06-05 15:26:37 +00:00
|
|
|
package body H2.OS is
|
2014-05-30 03:15:40 +00:00
|
|
|
|
|
|
|
package body File is separate;
|
|
|
|
|
2014-06-04 17:15:52 +00:00
|
|
|
procedure Set_File_Flag_Bits (Flag: in out File_Flag_Record; Bits: in File_Flag_Bits) is
|
2014-06-02 15:25:42 +00:00
|
|
|
begin
|
|
|
|
Flag.Bits := Flag.Bits or Bits;
|
|
|
|
end Set_File_Flag_Bits;
|
|
|
|
|
2014-06-04 17:15:52 +00:00
|
|
|
procedure Clear_File_Flag_Bits (Flag: in out File_Flag_Record; Bits: in File_Flag_Bits) is
|
2014-06-02 15:25:42 +00:00
|
|
|
begin
|
|
|
|
Flag.Bits := Flag.Bits and not Bits;
|
|
|
|
end Clear_File_Flag_Bits;
|
|
|
|
|
2014-06-05 15:26:37 +00:00
|
|
|
end H2.OS;
|