------------------------------------------------------------------ -- -- NAME: CGI_PROCESS_SEGMENT_COPY -- DISCREPANCY REPORTS: -- ------------------------------------------------------------------ -- File: CGI_PROC_SEG_COP.ADA -- Level: 2a with CGI; with GKS_TYPES; use CGI; package CGI_PROCESS_SEGMENT_COPY is -- This package, CGI_PROCESS_SEGMENT_COPY, provides the generic -- procedure PROCESS_SEG_COPY. PROCESS_SEG_COPY produces an -- instantiated procedure which does not alter its IN OUT mode argument, -- even though PROCESS_INSTR may modify its argument. -- This is useful when handling segment storage, since segment storage -- should not be altered during processing. generic with procedure PROCESS_INSTR (INSTR : in out CGI_INSTR) is <>; procedure PROCESS_SEGMENT_COPY (SEGMENT_NAME : in GKS_TYPES.SEGMENT_NAME); end CGI_PROCESS_SEGMENT_COPY;