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/SJW/DCE/EGM/TFV

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


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

%(

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

1	443	QA656	ADD E140
2	511	-----	FIX E140

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

3	723	-----	ADD /NOWARN: SELECTIVITY
4	741	-----	ADD E145
5	747	-----	MAKE ERROR MESSAGES LOWER CASE

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

6	1063	DCE	21-Apr-81	QAR5631
	Add E151.

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

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

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

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

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

)%

	! Module containing optimizer 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',
%78%	E78 GLOBALLY INDEXES
		'WOP?E Opt - warnings given in Phase 1.  Optimized code may not be correct?0',
%79%	E79 GLOBALLY INDEXES
		'VNI?E Opt - variable ?C is not initialized?0',
%62%	E62 GLOBALLY INDEXES
		'AGA?E Opt - object variable, of assigned GOTO without optional list, was never assigned?0',
%37%	E37 GLOBALLY INDEXES
		'DIS?E Opt - program is disconnected - optimization discontinued?0',
%100%	E100 GLOBALLY INDEXES
		'IFL?E Opt - infinite loop.  Optimization discontinued?0',
%105%	E105 GLOBALLY INDEXES
		'ICD?E Inaccessible code.  Statement deleted?0',
%140%	E140 GLOBALLY INDEXES
		'IDN?E Opt - illegal DO nesting - optimization discontinued?0',
%202%	E202 GLOBALLY INDEXES
		'ACB?E Argument out of range for CHAR, high order bits ignored?0',

	WOPTMSG GLOBALLY INDEXES

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

	WARMSG GLOBALLY INDEXES		! End warning messages

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

%151%	E151 GLOBALLY INDEXES	![1063]
		'ITL?E Illegal transfer into loop to label ?A?0',
%165%	E165 GLOBALLY INDEXES	![1522]
		'IOR?E Substring bound out of range?0',
	0);

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

END
ELUDOM