------------------------------------------------------------------ -- -- NAME: CGI_EXTENDED_SEGMENTS -- DISCREPANCY REPORTS: ------------------------------------------------------------------ -- File: CGI_EXT_SEGS.ADA -- Level: 2A with CGI_SUBTYPES_A; with GKS_TYPES; use CGI_SUBTYPES_A; use GKS_TYPES; package CGI_EXTENDED_SEGMENTS is -- Package CGI defines constrained subtypes of the CGI_INSTR to -- check the opcode, OP, of the the variant record. -- Package GKS_TYPES provides type definitions for parameters. procedure ASSOCIATE_SEGMENT_WITH_WS (INSTR : in out CGI_ASSOCIATE_SEGMENT_WITH_WS; WISS_OPEN : in BOOLEAN; WISS_ID : in WS_ID); procedure COPY_SEGMENT_TO_WS (INSTR : in out CGI_COPY_SEGMENT_TO_WS; WISS_OPEN : in BOOLEAN; WISS_ID : in WS_ID); procedure INSERT_SEGMENT (INSTR : in out CGI_INSERT_SEGMENT; WISS_OPEN : in BOOLEAN; WISS_ID : in WS_ID); end CGI_EXTENDED_SEGMENTS;