--********************************************************************************************************************
-- Created: 30-Mar-2010 17:01:47 by OpenVMS SDL EV3-3      
-- Source:  13-OCT-1999 12:42:22 $1$DGA7274:[STARLET_ADA.LIS]CBODEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package CBODEF is
 
--  module $CBODEF
 
--+
-- Define Create Buffer Object bits
---
 
    CBO_M_RETSVA		: constant := 16#00000001#;
    CBO_M_EXMAXLIM		: constant := 16#00000002#;
    CBO_M_SVA_32		: constant := 16#00000004#;
    CBO_M_NOSVA			: constant := 16#00000008#;
    CBO_M_SYSBUFOBJ		: constant := 16#00000010#;
 
    type CBO_CREATE_BUFFER_OBJECT_FLAGS_TYPE is
	record
	    RETSVA	: BOOLEAN;					--  (Priv) Return SVA, not PVA, of object
	    EXMAXLIM	: BOOLEAN;					--  (Priv) Bypass MAXBOBMEM check (VMS development use only)
	    SVA_32	: BOOLEAN;					--  Allocate SVA from S0 space, $CREATE_BUFOBJ_64 only
	    NOSVA	: BOOLEAN;					--  Do not allocate any system space
	    SYSBUFOBJ	: BOOLEAN;					--  System buffer object (no process ties)
	    FILLER_1	: UNSIGNED_27;
	end record;
 
	    for CBO_CREATE_BUFFER_OBJECT_FLAGS_TYPE use 
		record
		    RETSVA	at 0 range 0 .. 0;
		    EXMAXLIM	at 0 range 1 .. 1;
		    SVA_32	at 0 range 2 .. 2;
		    NOSVA	at 0 range 3 .. 3;
		    SYSBUFOBJ	at 0 range 4 .. 4;
		    FILLER_1	at 0 range 5 .. 31;
		end record;
	    for CBO_CREATE_BUFFER_OBJECT_FLAGS_TYPE'SIZE use 32;
 
    CBO_CREATE_BUFFER_OBJECT_FLAGS_TYPE_INIT : constant CBO_CREATE_BUFFER_OBJECT_FLAGS_TYPE := 
	    (RETSVA	=> FALSE,
	    EXMAXLIM	=> FALSE,
	    SVA_32	=> FALSE,
	    NOSVA	=> FALSE,
	    SYSBUFOBJ	=> FALSE,
	    FILLER_1	=> 0);
 
end CBODEF;