Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974, 1983
!AUTHOR: NORMA ABEL / D. TOLMAN/DCE/EGM/TFV

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

GLOBAL BIND ERRGV = 7^24 + 0^18 + #1474;	! Version Date:	25-Mar-82

%(

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

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

1	461	19477	ADD ERROR MESSAGE FOR PROGRAM TOO LARGE

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

2	674	11803	ADD ERROR MESSAGE FOR TOO DEEPLY NESTED DO LOOPS
3	723	-----	ADD /NOWARN: SELECTIVITY
4	741	-----	ADD E145
5	747	-----	MAKE ERROR MESSAGES LOWER CASE

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

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

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

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

1434	CKS/CDM	18-Dec-81
	Add E177

1474	TFV	25-Mar-82
	Add error  E193  -  (LSC)  Length  star  concatenation  not  yet
	supported in this context.  Remove E177 (cant concat error).

	CDM	12-Apr-82
	Add "s" to "backward" to be compatable with ERROUT.BLI for E33.

***** End Revision History *****

)%

!	Module containing code generation 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',
%131%	E131 GLOBALLY INDEXES
		'VND?E FUNCTION return value is never defined?0',

	WOPTMSG GLOBALLY INDEXES

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

	WARMSG GLOBALLY INDEXES		! End warning messages

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

%33%	E33 GLOBALLY INDEXES
		'EXB?E EQUIVALENCE extends COMMON block ?C backwards?0',
%49%	E49 GLOBALLY INDEXES
		'IED?E Inconsistent EQUIVALENCE declaration?0',
%93%	E93 GLOBALLY INDEXES
		'VNA?E Subscripted variable in EQUIVALENCE, but not an array?0',
%91%	E91 GLOBALLY INDEXES
		'ENF?E Label ?A must refer to an executable statement, not a FORMAT?0',
%48%	E48 GLOBALLY INDEXES
		'MCE?E More than 1 COMMON variable in EQUIVALENCE group?0',
%96%	E96 GLOBALLY INDEXES
		'LNI?E List directed I/O with no I/O list?0',
%130%	E130 GLOBALLY INDEXES
		'MWL?E Attempt to define multiple RETURN without FORMAT label argument?0',
%142%	E142 GLOBALLY INDEXES
		'PTL?E Program too large?0',
%144%	E144 GLOBALLY INDEXES	![674]
		'DDN?E DO loops too deeply nested - reduce nesting?0',
%193%	E193 GLOBALLY INDEXES	![1474]
		'LSC?E Length star concatenation not yet supported in this context?0',
	0);

GLOBAL BIND
		BACKTYPE = 0,
		NXTFIL = 0,
		ENDUNIT = 0,
		FINALCHAR = 0,
		LEXNAM = 0;

END
ELUDOM