#ifndef __PERROR_LOADED #define __PERROR_LOADED 1 /**************************************************************************** ** ** - error message variables ** ***************************************************************************** ** Header is nonstandard ***************************************************************************** ** ** Copyright 2003 Hewlett-Packard Development Company, L.P. ** ** Confidential computer software. Valid license from HP and/or ** its subsidiaries required for possession, use, or copying. ** ** Consistent with FAR 12.211 and 12.212, Commercial Computer Software, ** Computer Software Documentation, and Technical Data for Commercial ** Items are licensed to the U.S. Government under vendor's standard ** commercial license. ** ** Neither HP nor any of its subsidiaries shall be liable for technical ** or editorial errors or omissions contained herein. The information ** in this document is provided "as is" without warranty of any kind and ** is subject to change without notice. The warranties for HP products ** are set forth in the express limited warranty statements accompanying ** such products. Nothing herein should be construed as constituting an ** additional warranty. ** ***************************************************************************** */ #pragma __nostandard #include #ifdef __cplusplus extern "C" { #endif #if __INITIAL_POINTER_SIZE # pragma __pointer_size __save # pragma __pointer_size 32 #endif /* ** sys_nerr and sys_errlist are implemented as of OpenVMS V6.2 */ #if __CRTL_VER >= 60200000 /* ** Real values in the DECC$SHR image */ # pragma __extern_model __save # pragma __extern_model __relaxed_refdef extern int sys_nerr; extern char *sys_errlist[]; # pragma __extern_model __restore #else /* ** Pre-V6.2 Stub values resolved in OLBs */ #if !defined(__VAX) # pragma __extern_model __save # pragma __extern_model __relaxed_refdef extern int sys_nerr; extern char *sys_errlist[]; # pragma __extern_model __restore #else # pragma __extern_model __save # pragma __extern_model __common_block extern int sys_nerr; extern char *sys_errlist[]; # pragma __extern_model __restore #endif #endif /* ** Restore the users pointer context */ #if __INITIAL_POINTER_SIZE # pragma __pointer_size __restore #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __PERROR_LOADED */