Google
 

Trailing-Edge - PDP-10 Archives - AP-D480B-SB_1978 - 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], CHANGE WARNING MESSAGE 77 , MD , 11/18/74 %
%[231]%		'DIM?E?A POSSIBLE DO INDEX MODIFICATION INSIDE LOOP?0',
!**;[531], ERROUT @96, DCE, 13-JAN-77
!**;[531], ADD ERROR MESSAGE
%[531]%	E143 GLOBALLY INDEXES
%[531]%		'PAV?E?A PARAMETER USED AS ASSOCIATE VARIABLE?0',

	WARMSG  GLOBALLY INDEXES  % END WARNING MESSAGES %


%*************************************************************%


%0%	E0 GLOBALLY INDEXES
		'FWE?E?A FOUND ?B WHEN EXPECTING A ?B?0',
%2%	E2 GLOBALLY INDEXES
		'FEE?E?A FOUND ?B WHEN EXPECTING EITHER A ?B?0',
%3%	E3 GLOBALLY INDEXES
		'FEE?E?A	   OR A ?B?0',
%4%	E4 GLOBALLY INDEXES
		'USI?E?A ?B ?C USED INCORRECTLY?0',
%7%	E7 GLOBALLY INDEXES
		'ICL?E?A ILLEGAL CHARACTER ?B IN LABEL FIELD?0',
%8%	E8 GLOBALLY INDEXES
		'IAC?E?A ILLEGAL ASCII CHARACTER ?B IN SOURCE?0',
%9%	E9 GLOBALLY INDEXES
		'UMP?E?A UNMATCHED PARENTHESES?0',
%10%	E10 GLOBALLY INDEXES
		'NRC?E?A STATEMENT NOT RECOGNIZED?0',
%12%	E12 GLOBALLY INDEXES
		'MSP?E?A STATEMENT NAME MISSPELLED?0',
%15%	E15 GLOBALLY INDEXES
		'ISN?E?A ?C IS NOT ?B?0',
%17%	E17 GLOBALLY INDEXES
		'IDT?E?A ILLEGAL OR MISSPELLED DATA TYPE?0',
%18%	E18 GLOBALLY INDEXES
		'IIP?E?A ILLEGAL IMPLICIT SPECIFICATION PARAMETER?0',
%19%	E19 GLOBALLY INDEXES
		'LLS?E?A LABEL TOO LARGE OR TOO SMALL?0',
%20%	E20 GLOBALLY INDEXES
		'LAD?E?A LABEL ?A ALREADY DEFINED AT LINE: ?A?0',
%21%	E21 GLOBALLY INDEXES
		'DIA?E?A DO INDEX VARIABLE ?C IS ALREADY ACTIVE?0',
%23%	E23 GLOBALLY INDEXES
		'ILF?E?A ILLEGAL STATEMENT AFTER LOGICAL IF?0',
%26%	E26 GLOBALLY INDEXES
		'ISD?E?A ILLEGAL SUBSCRIPT EXPRESSION IN DATA STATEMENT?0',
%27%	E27 GLOBALLY INDEXES
		'AWN?E?A ARRAY REFERENCE ?C HAS WRONG NUMBER OF SUBSCRIPTS?0',
%29%	E29 GLOBALLY INDEXES
		'IDN?E?A DO LOOP AT LINE: ?A IS ILLEGALLY NESTED?0',
%31%	E31 GLOBALLY INDEXES
		'DTI?E?A THE DIMENSIONS OF ?C MUST BE OF THE TYPE INTEGER?0',
%33%	E33 GLOBALLY INDEXES
		'EXB?E?A EQUIVALENCE EXTENDS COMMON BLOCK ?C BACKWARD?0',
%34%	E34 GLOBALLY INDEXES
		'ABD?E?A ?C HAS ALREADY BEEN DEFINED ?B?0',
%38%	E38 GLOBALLY INDEXES
		'IDV?E?A IMPLIED DO INDEX IS NOT A VARIABLE?0',
%39%	E39 GLOBALLY INDEXES
		'TFL?E?A TOO MANY FORMAT LABELS SPECIFIED?0',
%42%	E42 GLOBALLY INDEXES
		'ECT?E?A ATTEMPT TO ENTER ?C INTO COMMON TWICE?0',
%44%	E44 GLOBALLY INDEXES
		'PIC?E?A THE DO PARAMETERS OF ?C MUST BE INTEGER CONSTANTS?0',
%47%	E47 GLOBALLY INDEXES
		'RFC?E?A ?C IS A RECURSIVE FUNCTION CALL?0',
%48%	E48 GLOBALLY INDEXES
		'MCE?E?A MORE THAN 1 COMMON VARIABLE IN EQUIVALENCE GROUP?0',
%49%	E49 GLOBALLY INDEXES
		'IED?E?A INCONSISTENT EQUIVALENCE DECLARATION?0',
%50%	E50 GLOBALLY INDEXES
		'IZM?E?A ILLEGAL ?B SIZE MODIFIER ?D?0',
%51%	E51 GLOBALLY INDEXES
		'BOV?E?A STATEMENT TOO LARGE TO CLASSIFY?0',
%52%	E52 GLOBALLY INDEXES
		'DVE?E?A CANNOT USE DUMMY VARIABLE IN EQUIVALENCE?0',
%53%	E53 GLOBALLY INDEXES
		'VSE?E?A EQUIVALENCE SUBSCRIPTS MUST BE INTEGER CONSTANTS?0',
%54%	E54 GLOBALLY INDEXES
		'NIR?E?A REPEAT COUNT MUST BE AN UNSIGNED INTEGER?0',
%55%	E55 GLOBALLY INDEXES
		'NIU?E?A NON-INTEGER UNIT IN I/O STATEMENT?0',
%60%	E60 GLOBALLY INDEXES
		'IXM?E?A ILLEGAL MIXED MODE ARITHMETIC?0',
%61%	E61 GLOBALLY INDEXES
		'CER?E?A COMPILER ERROR IN ROUTINE ?B?0',
%66%	E66 GLOBALLY INDEXES
		'DID?E?A CANNOT INITIALIZE A DUMMY PARAMETER IN DATA?0',
%67%	E67 GLOBALLY INDEXES
		'IOD?E?A ILLEGAL STATEMENT USED AS OBJECT OF DO?0',
!%68%	E68 GLOBALLY INDEXES
!		'DTA?E?A TERMINAL STATEMENT OF DO HAS ALREADY APPEARED?0',
%70%	E70 GLOBALLY INDEXES
		'NNF?E?A NO STATEMENT NUMBER ON FORMAT?0',
%71%	E71 GLOBALLY INDEXES
		'DSF?E?A ARGUMENT ?C IS SAME AS FUNCTION NAME?0',
%72%	E72 GLOBALLY INDEXES
		'CQL?E?A NO CLOSING QUOTE IN LITERAL?0',
%74%	E74 GLOBALLY INDEXES
		'LGB?E?A LOWER BOUND GREATER THAN UPPER BOUND FOR ARRAY ?C?0',
%75%	E75 GLOBALLY INDEXES
		'EID?E?A ENTRY STATEMENT ILLEGAL INSIDE A DO LOOP?0',
%80%	E80 GLOBALLY INDEXES
		'IAL?E?A INCORRECT ARGUMENT TYPE FOR LIBRARY FUNCTION ?C?0',
%81%	E81 GLOBALLY INDEXES
		'NLF?E?A WRONG NUMBER OF ARGUMENTS FOR LIBRARY FUNCTION ?C?0',
%82%	E82 GLOBALLY INDEXES
		'LTL?E?A TOO MANY ITEMS IN LIST - REDUCE NUMBER OF ITEMS?0',
%83%	E83 GLOBALLY INDEXES
		'LFA?E?A LABEL ARGUMENTS ILLEGAL IN FUNCTION OR ARRAY REFERENCE?0',
%84%	E84 GLOBALLY INDEXES
		'DLN?E?A OPTIONAL DATA VALUE LIST NOT SUPPORTED?0',
%87%	E87 GLOBALLY INDEXES
		'DDA?E?A ?D IS DUPLICATE DUMMY ARGUMENT?0',
!**;[451], ERROUT @206, DCE, FIX SPELLING, 17-SEP-76
%90%	E90 GLOBALLY INDEXES
		'EDN?E?A EXPRESSION TOO DEEPLY NESTED TO COMPILE?0',
%91%	E91 GLOBALLY INDEXES
		'ENF?E?A LABEL ?A MUST REFER TO AN EXECUTABLE STATEMENT, NOT A FORMAT?0',
%93%	E93 GLOBALLY INDEXES
		'VNA?E?A SUBSCRIPTED VARIABLE IN EQUIVALENCE BUT NOT AN ARRAY?0',
%94%	E94 GLOBALLY INDEXES
		'OPW?E?A OPEN PARAMETER ?C IS OF WRONG TYPE?0',
%95%	E95 GLOBALLY INDEXES
		'NEX?E?A NO EXPONENT AFTER D OR E IN CONSTANT?0',
%96%	E96 GLOBALLY INDEXES
		'LNI?E?A LIST DIRECTED IO WITH NO IOLIST?0',
%101%	E101 GLOBALLY INDEXES
		'LED?E?A ILLEGAL LIST DIRECTED ?B?0',
	!**;[336],ERROUT @218, DCE,09-DEC-75
	![336], ADD ERROR MESSAGE 102
%102%	E102 GLOBALLY INDEXES
%[336]%		'NIO?E?A NAMELIST DIRECTED I/O WITH I/O LIST?0',
%103%	E103 GLOBALLY INDEXES
		'SOR?E?A SUBSCRIPT OUT OF RANGE?0',
%104%	E104 GLOBALLY INDEXES
		'IID?E?A NON-INTEGER IMPLIED DO INDEX?0',
%108%	E108 GLOBALLY INDEXES
		'IBK?E?A ILLEGAL STATEMENT IN BLOCKDATA SUBPROGRAM?0',
%110%	E110 GLOBALLY INDEXES
		'SNL?E?A ?B STATEMENTS MAY NOT BE LABELED?0',
%113%	E113 GLOBALLY INDEXES
		'FNE?E?A LABEL ?A MUST REFER TO A FORMAT, NOT AN EXECUTABLE STATEMENT?0',
%114%	E114 GLOBALLY INDEXES
		'EIM?E?A ENTRY STATEMENT ILLEGAL IN MAIN PROGRAM?0',
%115%	E115 GLOBALLY INDEXES
		'IDS?E?A IMPLICIT DO INDICES MAY NOT BE SUBSCRIPTED',
%116%	E116 GLOBALLY INDEXES
		'IIS?E?A INCORRECT INCLUDE SWITCH?0',
%117%	E117 GLOBALLY INDEXES
		'IVP?E?A INVALID PPN?0',
%118%	E118 GLOBALLY INDEXES
		'NFS?E?A NO FILE NAME SPECIFIED?0',
%119%	E119 GLOBALLY INDEXES
		'CFF?E?A CANNOT FIND FILE?0',
%120%	E120 GLOBALLY INDEXES
		'INN?E?A INCLUDE STATEMENTS MAY NOT BE NESTED?0',
%121%	E121  GLOBALLY INDEXES
		'CSF?E?A ILLEGAL STATEMENT FUNCTION REFERENCE IN CALL STATEMENT?0',
%122%	E122  GLOBALLY INDEXES
		'DFD?E?A DOUBLE ?D NAME ILLEGAL?0',
%123%	E123  GLOBALLY INDEXES
		'IUT?E?A PROGRAM UNITS MAY NOT BE TERMINATED WITHIN INCLUDED FILES?0',
%124%	E124  GLOBALLY INDEXES
		'IFD?E?A INCLUDED FILES MUST RESIDE ON DISK?0',
%125%	E125 GLOBALLY INDEXES
		'SAD?E?A ARRAY ?D - SIGNED DIMENSIONS MAY APPEAR ONLY AS CONSTANT RANGE LIMITS?0',
%126%	E126 GLOBALLY INDEXES
		'DFC?E?A VARIABLE DIMENSION ?D MUST BE SCALAR, DEFINED AS FORMAL OR IN COMMON?0',
%127%	E127 GLOBALLY INDEXES
		'RIC?E?A COMPLEX CONSTANT CANNOT BE USED TO REPRESENT THE REAL OR IMAGINARY PART OF A COMPLEX CONSTANT?0',
%128%	E128  GLOBALLY INDEXES
		'DNL?E?A IMPLIED DO SPECIFICATION WITHOUT ASSOCIATED LIST OF VARIABLES?0',
%130%	E130 GLOBALLY INDEXES
		'MWL?E?A ATTEMPT TO DEFINE MULTIPLE RETURN WITHOUT FORMAL LABEL ARGUMENTS?0',
%132%	E132 GLOBALLY INDEXES
		'NUO?E?A .NOT. IS A UNARY OPERATOR?0',
%136%	E136 GLOBALLY INDEXES
		'DPR?E?A DUMMY PARAMETER ?D REFERENCED BEFORE DEFINITION?0',
%137%	E137 GLOBALLY INDEXES
		'VSO?E?A VARIABLE DIMENSION ALLOWED IN SUBPROGRAMS ONLY?0',
%138%	E138 GLOBALLY INDEXES
		'IFE?E?A ?B?0',
!**;[460], ERROUT @269, DCE, 24-SEP-76
!**;[460], ADD NEW ERROR MESSAGE
%141%	E141 GLOBALLY INDEXES
		'ATL?E?A ARRAY ?D TOO LARGE?0',
!**[461] ERROUT @275 SJW 5-OCT-76
%142%	E142 GLOBALLY INDEXES
		'PTL?E?A PROGRAM TOO LARGE?0',

	0);
END
ELUDOM