Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_Alpha_31-jul-86 - errovc.bli
There are 6 other files named errovc.bli in the archive. Click here to see a list.
!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1974, 1986
!ALL RIGHTS RESERVED.
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
!ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
!INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
!COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
!OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
!TRANSFERRED.
!
!THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
!AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
!CORPORATION.
!
!DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
!SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

!AUTHOR: NORMA ABEL / D. TOLMAN/DCE/EGM/SRM/TFV

MODULE ERRC(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4)=
BEGIN


GLOBAL BIND ERRCV = #11^24 + 0^18 + #1522;	! Version Date:	29-Mar-82

%(

***** Begin Revision History *****

***** Begin Version 5B *****

1	723	-----	ADD /NOWARN: SELECTIVITY
2	732	-----	ADD GLOBAL SAVSTMNT FOR COMSUB
3	741	-----	ADD ERROR E145
4	747	-----	MAKE ERROR MESSAGES LOWER CASE

***** Begin Version 6 *****

5	1066	EGM	12-May-81	Q10-05202
	Surplant double LINE:xxxx control characters with just one.

6	1115	EGM	30-Jul-81	--------
	Remove error binds for /NOWARN selectivity

***** Begin Version 7 *****

7	1500	SRM	11-Feb-82
	Add warning E181 (CHO) for attempt to compile programs with character
	data /OPT

1522	TFV	29-Mar-82
	Consolidate E176 and E165 (substring  bound out of range).


2247	AlB	22-Dec-83
	Add E218 through E287 for Compatibility Flagging. These are all
	warning messages used by the flagger.

***** End V10 Development *****

***** End Revision History *****
)%

	! Module containing skeleton optimization errors

	BIND ERROR = UPLIT(

	ERRMSG GLOBALLY NAMES

	!***************************************************************
	! Warning messages
	!***************************************************************

%1066%	! Alter all error string lines, removing the ?A after ?E.

%64%	E64 GLOBALLY INDEXES
		'CUO?E Constant underflow or overflow?0',
%181%	E181 GLOBALLY INDEXES	![1500]
		'CHO?E Global optimization not yet supported with character data - /OPT ignored?0',

%202%	E202 GLOBALLY INDEXES
		'ACB?E Argument out of range for CHAR, high order bits ignored?0',
%225%	E225 GLOBALLY INDEXES	![2247]
		'DEB?E Extension to Fortran-77: DEBUG lines?0',
%265%	E265 GLOBALLY INDEXES	![2247]
		'NSC?E?BNon-standard character in column 1?0',
%222%	E222 GLOBALLY INDEXES	![2247]
		'COS?E Extension to Fortran-77: Comment on statement?0',

	WOPTMSG GLOBALLY INDEXES

	!***************************************************************
	! Warnings which may affect optimized code
	!***************************************************************

	WARMSG GLOBALLY INDEXES		! End warning messages

	!*************************************************************
	! Fatal error messages
	!*************************************************************

%165%	E165 GLOBALLY INDEXES	![1522]
		'IOR?E Substring bound out of range?0',
	0);

GLOBAL BIND
		SAVSTMT = 0,	![732] For EXPUNGE in COMSUB
		BACKTYPE = 0,
		NXTFIL = 0,
		ENDUNIT = 0,
		FINALCHAR = 0,
		LEXNAM = 0;

END
ELUDOM