Google
 

Trailing-Edge - PDP-10 Archives - BB-4157D-BM - sources/errout.bli
There are 12 other files named errout.bli in the archive. Click here to see a list.


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

!COPYRIGHT (C) 1973,1977 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/SJW
MODULE ERROUT(RESERVE(0,1,2,3),SREG=#17,VREG=#15,FREG=#16,DREGS=4,GLOROUTINES)=
BEGIN

GLOBAL BIND ERROV = 5^24 + 1^18 + 40;		!VERSION DATE: 13-JAN-76

%(
REVISION HISTORY
----------------
ERROV	F10V	SPR	COMMENT
-----	----	---	-------
32	231	-----	CHANGE TEXT OF WARNING MESSAGE (77)
33	265	15946	ADD DOUBLE DATA INITIALIZATION MESSAGE
34	336	17259	ADD NAMELIST WITH I/O LIST ERROR
35	451	19610	FIX SPELLING OF ERROR MESSAGE (TO BECOMES TOO)
36	460	19477	ADD E141
37	443	QA656	ADD E140 (ERROVD)
38	461	19477	ADD E142 (ERROVG)
39	511	-----	FIX E37,E79,E100 TO AGREE WITH ERROVD
			FIX AND MOVE E140 FROM [443]
			FIX SPELLING IN E74

********* BEGIN VERSION 5A *********

40	531	20323	ADD E143 (WARNING)
)%	!END REVISION HISTORY

!------------------------------------------------------------------------------------------------------------------
!	THIS ROUTINE IS CALLED WITH A VARIABLE NUMBER OF PARAMETERS. THE
!FIRST PARAMETER IS ALWAYS THE ERROR NUMBER WHICH IS USED AS AN INDEX
!INTO THE ERROR PLIT. THE SECOND PARAMETER, IF PRESENT, WOULD FOR MOST ERROR
!MESSAGES BE THE DECIMAL LINE NUMBER ON WHICH THE ERROR OCCURED. THE THIRD
!AND SUBSEQUENT PARAMETERS COULD BE A DECIMAL NUMBER OR THE NAME (ADDRESS)
!OF A STRING OF ASCII CHARACTERS ENDING WITH "?0". THE NUMBER AND TYPE OF
!PARAMETERS FOLLOWING THE FIRST ARE DETERMINED SOLELY BY THE REQUIREMENTS
!OF THE ERROR MESSAGE.
!
! REFER TO FATLERR AND WARNERR ROUTINES FOR FURTHER INFORMATION
!
!------------------------------------------------------------------------------------------------------------------


	BIND ERROR=PLIT( ERRMSG GLOBALLY NAMES

	% FIRST THE WARNING MESSAGES%



%24%	E24 GLOBALLY INDEXES
		'ZMT?E?A SIZE MODIFIER ?D TREATED AS ?B?0',
%28%	E28 GLOBALLY INDEXES
		'FNA?E?A A FUNCTION WITHOUT AN ARGUMENT LIST?0',
%37%	E37 GLOBALLY INDEXES
		'DIS?E?A OPT - PROGRAM IS DISCONNECTED - OPTIMIZATION DISCONTINUED?0',
%57%	E57 GLOBALLY INDEXES
		'MVC?E?A NUMBER OF VARIABLES DOES NOT EQUAL THE NUMBER OF CONSTANTS IN DATA STATEMENT?0',
%62%	E62 GLOBALLY INDEXES
		'AGA?E?A OPT - OBJECT VARIABLE, OF ASSIGNED GOTO WITHOUT OPTIONAL LIST, WAS NEVER ASSIGNED?0',
%64%	E64 GLOBALLY INDEXES
		'CUO?E?A CONSTANT UNDERFLOW OR OVERFLOW?0',
%69%	E69 GLOBALLY INDEXES
		'NED?E?A NO END STATEMENT IN PROGRAM?0',
%76%	E76 GLOBALLY INDEXES
		'LID?E?A IDENTIFIER ?D  MORE THAN 6 CHARACTERS?0',
%78%	E78 GLOBALLY INDEXES
		'WOP?E?A OPT - WARNINGS GIVEN IN PHASE 1.  OPTIMIZED CODE MAY NOT BE CORRECT?0',
%79%	E79 GLOBALLY INDEXES
		'VNI?E?A OPT - VARIABLE ?C IS NOT INITIALIZED?0',
%88%	E88 GLOBALLY INDEXES
		'RDI?E?A ATTEMPT TO REDECLARE IMPLICIT TYPE?0',
%98%	E98 GLOBALLY INDEXES
		'CTR?E?A COMPLEX TERMS USED IN A RELATIONAL OTHER THAN EQ OR NE?0',
%99%	E99 GLOBALLY INDEXES
		'CAI?E?A COMPLEX EXPRESSION USED IN ARITHMETIC IF?0',
%100%	E100 GLOBALLY INDEXES
		'IFL?E?A  OPT - INFINITE LOOP. OPTIMIZATION DISCONTINUED?0',
%105%	E105 GLOBALLY INDEXES
		'ICD?E?A INACCESSIBLE CODE. STATEMENT DELETED?0',
%107%	E107 GLOBALLY INDEXES
		'SOD?E?A ?B STATEMENT OUT OF ORDER?0',
%109%	E109 GLOBALLY INDEXES
		'ICC?E?A ILLEGAL CHARACTER, CONTINUATION FIELD OF INITIAL LINE?0',
%111%	E111 GLOBALLY INDEXES
		'XCR?E?A EXTRANEOUS CARRIAGE RETURN?0',
%112%	E112 GLOBALLY INDEXES
		'ICS?E?A ILLEGAL CHARACTER IN LINE SEQ#?0',
%129%	E129 GLOBALLY INDEXES
		'FMR?E?A MULTIPLE RETURNS DEFINED IN A FUNCTION?0',
%131%	E131 GLOBALLY INDEXES
		'VND?E?A FUNCTION RETURN VALUE IS NEVER DEFINED?0',
%133%	E133 GLOBALLY INDEXES
		'NOD GLOBAL OPTIMIZATION NOT SUPPORTED WITH /DEBUG - /OPT IGNORED?0',
%134%	E134 GLOBALLY INDEXES
		'PPS?E?A PROGRAM STATEMENT PARAMETERS IGNORED?0',
%135%	E135 GLOBALLY INDEXES
		'DXB?E?A DATA STATEMENT EXCEEDS BOUNDS OF ARRAY ?D?0',
%**;[265],ERROUT,JNT,11-APR-75%
%**;[265],@ 77%
%139%	E139 GLOBALLY INDEXES	![265]
		'VAI?E?A ?C ALREADY INITIALIZED?0',	![265]
!**[511] ERROUT SJW 4-NOV-76
%140%	E140 GLOBALLY INDEXES
		'IDN?E?A OPT - ILLEGAL DO NESTING - OPTIMIZATION DISCONTINUED?0',

	WOPTMSG  GLOBALLY INDEXES  % BEGIN WARNINGS WHICH MAY AFFECT OPTIMIZED CODE %

%77%	E77 GLOBALLY INDEXES
%**;[231], CHANG