/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:02 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:00 $1$DGA8085:[STARLET_H.SRC]LBRUSR.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $LBRDEF ***/ #ifndef __LBRDEF_LOADED #define __LBRDEF_LOADED 1 #pragma __nostandard /* This file uses non-ANSI-Standard features */ #pragma __member_alignment __save #pragma __nomember_alignment #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __save /* Save the previously-defined required ptr size */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif #ifdef __cplusplus extern "C" { #define __unknown_params ... #define __optional_params ... #else #define __unknown_params #define __optional_params ... #endif #ifndef __struct #if !defined(__VAXC) #define __struct struct #else #define __struct variant_struct #endif #endif #ifndef __union #if !defined(__VAXC) #define __union union #else #define __union variant_union #endif #endif /* */ /* Types of libraries */ /* */ /* Define the library types */ #define LBR$C_TYP_UNK 0 /* Unknown/unspecified library type */ #define LBR$C_TYP_OBJ 1 /* Object/shareable image library */ #define LBR$C_TYP_MLB 2 /* Macro library */ #define LBR$C_TYP_HLP 3 /* Help file library */ #define LBR$C_TYP_TXT 4 /* TEXT library */ #define LBR$C_TYP_SHSTB 5 /* Shareable image symbol library */ #define LBR$C_TYP_NCS 6 /* NCS library */ #define LBR$C_TYP_DECMX 6 /* Maximum Digital library type defined */ #define LBR$C_TYP_EOBJ 7 /* Alpha object library */ #define LBR$C_TYP_ESHSTB 8 /* Alpha Shareable image symbol library */ #define LBR$C_TYP_ELFOBJ 9 /* ELF object library */ #define LBR$C_TYP_ELFSHSTB 10 /* ELF Shareable image symbol library */ #define ELBR$C_TYP_DECMX 10 /* Maximum library type defined */ #define LBR$C_TYP_RDEC 127 /* Types between DECMX and RDEC are */ /* reserved to Digital */ #define LBR$C_TYP_USRLW 128 /* User library types range from 128 */ #define LBR$C_TYP_USRHI 255 /* to 255. */ /* */ /* Function codes for lbr$flush */ /* */ #define LBR$C_FLUSHDATA 1 /* Flush data blocks from cache */ #define LBR$C_FLUSHALL 0 /* Flush data blocks, then index blocks */ /* */ /* Librarian fixed parameters */ /* */ #define LBR$C_MAXRECSIZ 2048 /* Maximum record size allowed */ #define LBR$C_PAGESIZE 512 /* Size of memory page */ #define LBR$C_HASHSIZE 512 /* Size of hash table ** Must be power of 2 ** */ #define LBR$C_TEXTPAGE 508 /* No. of useable bytes on a text page */ #define LBR$C_DEXTQ 50 /* Library default extend quantity */ #define LBR$C_MAXCTL 64 /* Maximum number of open libraries */ #define LBR$C_MAXHDRSIZ 128 /* Maximum length of module header */ /* (max user length is: */ /* lbr$c_maxhdrsiz-mhd$c_length) */ #define LBR$C_DEFENTALL 300 /* Number of entries to allocate by default */ #define LBR$C_RETRYOPEN 120 /* Number of times to retry open on RMS$_FLK */ #define LBR$C_RETRYWAIT 1 /* Number of seconds to wait */ #define LBR$C_MINREAD 2 /* Minimum number of blocks to read */ #define LBR$C_MAXREAD 100 /* Max blocks can ever read */ #define LBR$C_MEMXTRA 50 /* Number blocks to expand region by above and beyond lbr$gl_maxread */ #define LBR$C_PUTBUFSIZ 30 /* Block size of VM empty cache buffer */ #define LBR$C_FLSHBFSIZ 1 /* Block size of stack mt_cache buffer */ #define LBR$C_MAXIDXRD 20 /* Maximum blocks in one index read */ #define LBR$C_ELFMAXKEYLEN 1024 /* Maximum length of an ASCII keyword for ELF libraries */ #define LBR$C_MAXKEYLEN 128 /* Maximum length of an ASCII keyword, at most N, where */ /* 3*(N+7) < or = 506 */ #define LBR$C_MAXLUHREC 32768 /* maximum library update history record length */ #define LBR$M_SYM_WEAK 1 /* Weak symbol attribute */ #define LBR$M_SYM_GROUP 2 /* Group symbol attribute */ #define LBR$M_SYM_ALL -2147483648 /* All types symbol */ #define LBR$M_SYM_NGG 1 /* Symbol type bitmasks - Nongroup global symbol */ #define LBR$M_SYM_UXWK 2 /* Symbol type bitmasks - Unix weak symbol */ #define LBR$M_SYM_GG 4 /* Symbol type bitmasks - group global symbol */ #define LBR$M_SYM_GUXWK 8 /* Symbol type bitmasks - group Unix weak symbol */ /* */ /* Librarian fixed parameters for ALPHA */ /* */ #define ELBR$C_MAXRECSIZ 8192 /* Maximum record size allowed */ /* */ /* LBR$INI_CONTROL argument list */ /* */ #define LBR$C_CREATE 0 /* Create a new library */ #define LBR$C_READ 1 /* Read an existing library */ #define LBR$C_UPDATE 2 /* Update an exisiting library */ #define LBR$C_MAXFUNC 2 /* Maximum legal function */ #ifdef __NEW_STARLET typedef struct _lbrdef { int lbrdef$$_fill_1; /* Argument count */ unsigned int lbr$l_ic_ctltbl; /* Control index address */ unsigned int lbr$l_ic_func; /* Function */ unsigned int lbr$l_ic_type; /* Type of library expected to open */ /* */ /* LBR$OPEN argument list */ /* */ } LBRDEF; #else /* __OLD_STARLET */ struct lbrdef { int lbrdef$$_fill_1; /* Argument count */ unsigned int lbr$l_ic_ctltbl; /* Control index address */ unsigned int lbr$l_ic_func; /* Function */ unsigned int lbr$l_ic_type; /* Type of library expected to open */ /* */ /* LBR$OPEN argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef1 { int lbrdef$$_fill_2; /* Argument count */ unsigned int lbr$l_op_ctltbl; /* Control index address */ unsigned int lbr$l_op_fns; /* Address of string descriptor for filename */ unsigned int lbr$l_op_creopt; /* Address of create options array */ unsigned int lbr$l_op_dns; /* Address of descriptor for default name string */ unsigned int lbr$l_op_rlfna; /* Address of NAM block for related file */ unsigned int lbr$l_op_rns; /* Address of descriptor for related filename string */ unsigned int lbr$l_op_rnslen; /* Address of longword to store resultant filename string length */ /* */ /* LBR$CLOSE argument list */ /* */ } LBRDEF1; #else /* __OLD_STARLET */ struct lbrdef1 { int lbrdef$$_fill_2; /* Argument count */ unsigned int lbr$l_op_ctltbl; /* Control index address */ unsigned int lbr$l_op_fns; /* Address of string descriptor for filename */ unsigned int lbr$l_op_creopt; /* Address of create options array */ unsigned int lbr$l_op_dns; /* Address of descriptor for default name string */ unsigned int lbr$l_op_rlfna; /* Address of NAM block for related file */ unsigned int lbr$l_op_rns; /* Address of descriptor for related filename string */ unsigned int lbr$l_op_rnslen; /* Address of longword to store resultant filename string length */ /* */ /* LBR$CLOSE argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef2 { int lbrdef$$_fill_3; /* Argument count */ unsigned int lbr$l_cl_ctltbl; /* Control index address */ /* */ /* LBR$GET_HEADER argument list */ /* */ } LBRDEF2; #else /* __OLD_STARLET */ struct lbrdef2 { int lbrdef$$_fill_3; /* Argument count */ unsigned int lbr$l_cl_ctltbl; /* Control index address */ /* */ /* LBR$GET_HEADER argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef3 { int lbrdef$$_fill_4; /* Argument count */ unsigned int lbr$l_gh_ctltbl; /* Address of Control index */ unsigned int lbr$l_gh_retary; /* Address of 128-longword array for return info */ /* */ /* LBR$SET_INDEX argument list */ /* */ } LBRDEF3; #else /* __OLD_STARLET */ struct lbrdef3 { int lbrdef$$_fill_4; /* Argument count */ unsigned int lbr$l_gh_ctltbl; /* Address of Control index */ unsigned int lbr$l_gh_retary; /* Address of 128-longword array for return info */ /* */ /* LBR$SET_INDEX argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef4 { int lbrdef$$_fill_5; /* Argument count */ unsigned int lbr$l_si_ctltbl; /* Control index address */ unsigned int lbr$l_si_idxnum; /* Address of index number */ /* */ /* LBR$LOOKUP_KEY argument list */ /* */ } LBRDEF4; #else /* __OLD_STARLET */ struct lbrdef4 { int lbrdef$$_fill_5; /* Argument count */ unsigned int lbr$l_si_ctltbl; /* Control index address */ unsigned int lbr$l_si_idxnum; /* Address of index number */ /* */ /* LBR$LOOKUP_KEY argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef5 { int lbrdef$$_fill_6; /* Argument count */ unsigned int lbr$l_lk_ctltbl; /* Control index address */ unsigned int lbr$l_lk_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_lk_txtrfa; /* Address of quadword to return RFA if found */ /* */ /* LBR$INSERT_KEY argument list */ /* */ } LBRDEF5; #else /* __OLD_STARLET */ struct lbrdef5 { int lbrdef$$_fill_6; /* Argument count */ unsigned int lbr$l_lk_ctltbl; /* Control index address */ unsigned int lbr$l_lk_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_lk_txtrfa; /* Address of quadword to return RFA if found */ /* */ /* LBR$INSERT_KEY argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef6 { int lbrdef$$_fill_7; /* Argument count */ unsigned int lbr$l_ik_ctltbl; /* Control index address */ unsigned int lbr$l_ik_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_ik_txtrfa; /* Address of RFA of text */ /* */ /* LBR$REPLACE_MOD argument list */ /* */ /* */ /* LBR$REPLACE_KEY argument list */ /* */ } LBRDEF6; #else /* __OLD_STARLET */ struct lbrdef6 { int lbrdef$$_fill_7; /* Argument count */ unsigned int lbr$l_ik_ctltbl; /* Control index address */ unsigned int lbr$l_ik_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_ik_txtrfa; /* Address of RFA of text */ /* */ /* LBR$REPLACE_MOD argument list */ /* */ /* */ /* LBR$REPLACE_KEY argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef7 { int lbrdef$$_fill_8; /* Argument count */ unsigned int lbr$l_rk_ctltbl; /* Control index address */ unsigned int lbr$l_rk_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_rk_oldrfa; /* Address of RFA of old text */ unsigned int lbr$l_rk_newrfa; /* Address of RFA of new text */ /* */ /* LBR$DELETE_KEY argument list */ /* */ } LBRDEF7; #else /* __OLD_STARLET */ struct lbrdef7 { int lbrdef$$_fill_8; /* Argument count */ unsigned int lbr$l_rk_ctltbl; /* Control index address */ unsigned int lbr$l_rk_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_rk_oldrfa; /* Address of RFA of old text */ unsigned int lbr$l_rk_newrfa; /* Address of RFA of new text */ /* */ /* LBR$DELETE_KEY argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef8 { int lbrdef$$_fill_9; /* Argument count */ unsigned int lbr$l_dk_ctltbl; /* Control index address */ unsigned int lbr$l_dk_keynam; /* Address of string descriptor or binary value */ /* */ /* LBR$DELETE_DATA argument list */ /* */ } LBRDEF8; #else /* __OLD_STARLET */ struct lbrdef8 { int lbrdef$$_fill_9; /* Argument count */ unsigned int lbr$l_dk_ctltbl; /* Control index address */ unsigned int lbr$l_dk_keynam; /* Address of string descriptor or binary value */ /* */ /* LBR$DELETE_DATA argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef9 { int lbrdef$$_fill_10; /* Argument count */ unsigned int lbr$l_dd_ctltbl; /* Control index address */ unsigned int lbr$l_dd_txtrfa; /* Address of RFA to delete from */ /* */ /* LBR$GET_RECORD argument list */ /* */ } LBRDEF9; #else /* __OLD_STARLET */ struct lbrdef9 { int lbrdef$$_fill_10; /* Argument count */ unsigned int lbr$l_dd_ctltbl; /* Control index address */ unsigned int lbr$l_dd_txtrfa; /* Address of RFA to delete from */ /* */ /* LBR$GET_RECORD argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef10 { int lbrdef$$_fill_11; /* Argument count */ unsigned int lbr$l_gr_ctltbl; /* Control index address */ unsigned int lbr$l_gr_bufdes; /* Address of descriptor of buffer */ unsigned int lbr$l_gr_buflen; /* Address of longword to return record size */ /* */ /* LBR$PUT_RECORD argument list */ /* */ } LBRDEF10; #else /* __OLD_STARLET */ struct lbrdef10 { int lbrdef$$_fill_11; /* Argument count */ unsigned int lbr$l_gr_ctltbl; /* Control index address */ unsigned int lbr$l_gr_bufdes; /* Address of descriptor of buffer */ unsigned int lbr$l_gr_buflen; /* Address of longword to return record size */ /* */ /* LBR$PUT_RECORD argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef11 { int lbrdef$$_fill_12; /* Argument count */ unsigned int lbr$l_pr_ctltbl; /* Control index address */ unsigned int lbr$l_pr_bufdes; /* Address of descriptor of buffer to output */ unsigned int lbr$l_pr_txtrfa; /* Address of quadword to return RFA */ /* of text record */ /* */ /* LBR$PUT_END argument list */ /* */ } LBRDEF11; #else /* __OLD_STARLET */ struct lbrdef11 { int lbrdef$$_fill_12; /* Argument count */ unsigned int lbr$l_pr_ctltbl; /* Control index address */ unsigned int lbr$l_pr_bufdes; /* Address of descriptor of buffer to output */ unsigned int lbr$l_pr_txtrfa; /* Address of quadword to return RFA */ /* of text record */ /* */ /* LBR$PUT_END argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef12 { int lbrdef$$_fill_13; /* Argument count */ unsigned int lbr$l_pe_ctltbl; /* Control index address */ /* */ /* LBR$SEARCH argument list */ /* */ } LBRDEF12; #else /* __OLD_STARLET */ struct lbrdef12 { int lbrdef$$_fill_13; /* Argument count */ unsigned int lbr$l_pe_ctltbl; /* Control index address */ /* */ /* LBR$SEARCH argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef13 { int lbrdef$$_fill_14; /* Argument count */ unsigned int lbr$l_sr_ctltbl; /* Control index address */ unsigned int lbr$l_sr_idxnum; /* Address of index number */ unsigned int lbr$l_sr_rfa; /* Address of RFA to search index for */ unsigned int lbr$l_sr_usrtn; /* User routine to call on match */ /* */ /* Argument list for user routine called by LBR$SEARCH */ /* */ } LBRDEF13; #else /* __OLD_STARLET */ struct lbrdef13 { int lbrdef$$_fill_14; /* Argument count */ unsigned int lbr$l_sr_ctltbl; /* Control index address */ unsigned int lbr$l_sr_idxnum; /* Address of index number */ unsigned int lbr$l_sr_rfa; /* Address of RFA to search index for */ unsigned int lbr$l_sr_usrtn; /* User routine to call on match */ /* */ /* Argument list for user routine called by LBR$SEARCH */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef14 { int lbrdef$$_fill_15; /* Argument count */ unsigned int lbr$l_su_keydes; /* Address of string descriptor or binary value */ unsigned int lbr$l_su_txtrfa; /* Address of array containing rfa of module */ /* */ /* LBR$GET_INDEX argument list */ /* */ } LBRDEF14; #else /* __OLD_STARLET */ struct lbrdef14 { int lbrdef$$_fill_15; /* Argument count */ unsigned int lbr$l_su_keydes; /* Address of string descriptor or binary value */ unsigned int lbr$l_su_txtrfa; /* Address of array containing rfa of module */ /* */ /* LBR$GET_INDEX argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef15 { int lbrdef$$_fill_16; /* Argument count */ unsigned int lbr$l_gi_ctltbl; /* Control index address */ unsigned int lbr$l_gi_idxnum; /* Index number */ unsigned int lbr$l_gi_usrtn; /* User routine to call for each entry */ /* */ /* Argument list for user routine called by LBR$GET_INDEX */ /* */ } LBRDEF15; #else /* __OLD_STARLET */ struct lbrdef15 { int lbrdef$$_fill_16; /* Argument count */ unsigned int lbr$l_gi_ctltbl; /* Control index address */ unsigned int lbr$l_gi_idxnum; /* Index number */ unsigned int lbr$l_gi_usrtn; /* User routine to call for each entry */ /* */ /* Argument list for user routine called by LBR$GET_INDEX */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef16 { int lbrdef$$_fill_17; /* Argument count */ unsigned int lbr$l_gu_keyadr; /* Address of descriptor or binary value */ unsigned int lbr$l_gu_txtrfa; /* RFA of associated text */ /* */ /* LBR$ADD_UPDATE argument list */ /* */ } LBRDEF16; #else /* __OLD_STARLET */ struct lbrdef16 { int lbrdef$$_fill_17; /* Argument count */ unsigned int lbr$l_gu_keyadr; /* Address of descriptor or binary value */ unsigned int lbr$l_gu_txtrfa; /* RFA of associated text */ /* */ /* LBR$ADD_UPDATE argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #define LBR$C_ADDMOD 1 /* Add module */ #define LBR$C_DELMOD 2 /* Delete module */ #define LBR$C_REPMOD 3 /* Replace module */ /* */ #ifdef __NEW_STARLET typedef struct _lbrdef17 { int lbrdef$$_fill_18; /* Argument count */ unsigned int lbr$l_au_ctltbl; /* Control index address */ unsigned int lbr$l_au_flags; /* Flags */ unsigned int lbr$l_au_keynam; /* Address of string descriptor or binary value */ /* Types of operations logged */ /* LBR$GET_UPDATES argument list */ /* */ } LBRDEF17; #else /* __OLD_STARLET */ struct lbrdef17 { int lbrdef$$_fill_18; /* Argument count */ unsigned int lbr$l_au_ctltbl; /* Control index address */ unsigned int lbr$l_au_flags; /* Flags */ unsigned int lbr$l_au_keynam; /* Address of string descriptor or binary value */ /* Types of operations logged */ /* LBR$GET_UPDATES argument list */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef18 { int lbrdef$$_fill_19; /* Argument count */ unsigned int lbr$l_gu_ctltbl; /* Control index address */ unsigned int lbr$l_gu_usrtn; /* User routine to call for each update */ /* */ /* Argument list for user routine called by LBR$GET_UPDATES */ /* */ } LBRDEF18; #else /* __OLD_STARLET */ struct lbrdef18 { int lbrdef$$_fill_19; /* Argument count */ unsigned int lbr$l_gu_ctltbl; /* Control index address */ unsigned int lbr$l_gu_usrtn; /* User routine to call for each update */ /* */ /* Argument list for user routine called by LBR$GET_UPDATES */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #ifdef __NEW_STARLET typedef struct _lbrdef19 { int lbrdef$$_fill_20; /* Argument list */ unsigned int lbr$l_uu_updesc; /* String descriptor for history line */ } LBRDEF19; #else /* __OLD_STARLET */ struct lbrdef19 { int lbrdef$$_fill_20; /* Argument list */ unsigned int lbr$l_uu_updesc; /* String descriptor for history line */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* LBR$MAP_MODULE argument list */ /* */ #ifdef __NEW_STARLET typedef struct _lbrdef20 { int lbrdef$$_fill_21; /* Argument count */ unsigned int lbr$l_mm_ctltbl; /* Control index address */ unsigned __int64 lbr$q_mm_vaaddr; /* 64-bit virtual Address of the specified object module */ unsigned __int64 lbr$q_mm_modsiz; /* Address of module size */ unsigned int lbr$l_mm_txtrfa; /* Address of RFA to map from */ /* */ /* Argument list for user routine called by LBR$MAP_MODULE */ /* */ } LBRDEF20; #else /* __OLD_STARLET */ struct lbrdef20 { int lbrdef$$_fill_21; /* Argument count */ unsigned int lbr$l_mm_ctltbl; /* Control index address */ unsigned int lbr$q_mm_vaaddr [2]; /* 64-bit virtual Address of the specified object module */ unsigned int lbr$q_mm_modsiz [2]; /* Address of module size */ unsigned int lbr$l_mm_txtrfa; /* Address of RFA to map from */ /* */ /* Argument list for user routine called by LBR$MAP_MODULE */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* LBR$UNMAP_MODULE argument list */ /* */ #ifdef __NEW_STARLET typedef struct _lbrdef21 { int lbrdef$$_fill_22; /* Argument count */ unsigned int lbr$l_um_ctltbl; /* Control index address */ unsigned int lbr$l_um_txtrfa; /* Address of RFA to unmap */ /* */ /* Argument list for user routine called by LBR$UNMAP_MODULE */ /* */ } LBRDEF21; #else /* __OLD_STARLET */ struct lbrdef21 { int lbrdef$$_fill_22; /* Argument count */ unsigned int lbr$l_um_ctltbl; /* Control index address */ unsigned int lbr$l_um_txtrfa; /* Address of RFA to unmap */ /* */ /* Argument list for user routine called by LBR$UNMAP_MODULE */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* LBR$GET_VERSION argument list */ /* */ #ifdef __NEW_STARLET typedef struct _lbrdef22 { int lbrdef$$_fill_23; /* Argument count */ unsigned int lbr$l_gv_verdesc; /* Addr of Version Descriptor */ unsigned int lbr$l_gv_retlen; /* Address of ret. len. */ /* */ /* Argument list for user routine called by LBR$GET_VERSION */ /* */ } LBRDEF22; #else /* __OLD_STARLET */ struct lbrdef22 { int lbrdef$$_fill_23; /* Argument count */ unsigned int lbr$l_gv_verdesc; /* Addr of Version Descriptor */ unsigned int lbr$l_gv_retlen; /* Address of ret. len. */ /* */ /* Argument list for user routine called by LBR$GET_VERSION */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* LBR$LOOKUP_TYPE argument list */ /* */ #ifdef __NEW_STARLET typedef struct _lbrdef23 { int lbrdef$$_fill_24; /* Argument count */ unsigned int lbr$l_lt_ctltbl; /* Control index address */ unsigned int lbr$l_lt_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_lt_txtrfa; /* Address of quadword to return RFA if found */ unsigned int lbr$l_lt_flag; /* Address of ret. flag */ /* */ /* Argument list for user routine called by LBR$LOOKUP_TYPE */ /* */ } LBRDEF23; #else /* __OLD_STARLET */ struct lbrdef23 { int lbrdef$$_fill_24; /* Argument count */ unsigned int lbr$l_lt_ctltbl; /* Control index address */ unsigned int lbr$l_lt_keynam; /* Address of string descriptor or binary value */ unsigned int lbr$l_lt_txtrfa; /* Address of quadword to return RFA if found */ unsigned int lbr$l_lt_flag; /* Address of ret. flag */ /* */ /* Argument list for user routine called by LBR$LOOKUP_TYPE */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ /* */ /* LBR$PUT_MODULE argument list */ /* */ #ifdef __NEW_STARLET typedef struct _lbrdef24 { int lbrdef$$_fill_25; /* Argument count */ unsigned int lbr$l_pm_ctltbl; /* Control index address */ unsigned __int64 lbr$q_pm_vaaddr; /* 64-bit virtual Address of the specified object module */ unsigned __int64 lbr$q_pm_modsiz; /* Address of module size */ unsigned int lbr$l_pm_txtrfa; /* Address of return RFA */ /* */ /* Argument list for user routine called by LBR$PUT_MODULE */ /* */ } LBRDEF24; #else /* __OLD_STARLET */ struct lbrdef24 { int lbrdef$$_fill_25; /* Argument count */ unsigned int lbr$l_pm_ctltbl; /* Control index address */ unsigned int lbr$q_pm_vaaddr [2]; /* 64-bit virtual Address of the specified object module */ unsigned int lbr$q_pm_modsiz [2]; /* Address of module size */ unsigned int lbr$l_pm_txtrfa; /* Address of return RFA */ /* */ /* Argument list for user routine called by LBR$PUT_MODULE */ /* */ } ; #endif /* #ifdef __NEW_STARLET */ #pragma __member_alignment __restore #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __restore /* Restore the previously-defined required ptr size */ #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __LBRDEF_LOADED */