Trailing-Edge
-
PDP-10 Archives
-
BB-D480C-SB_1981
-
errovd.bli
There are 6 other files named errovd.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) 1974,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: NORMA ABEL / D. TOLMAN/SJW/DCE/EGM
MODULE ERRD(RESERVE(0,1,2,3),SREG=#17,FREG=#16,VREG=#15,DREGS=4)=
BEGIN
GLOBAL BIND ERRDV = 6^24 + 0^18 + 8; ! Version Date: 30-Jul-81
%(
***** 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
***** End Revision History *****
)%
!MODULE CONTAINING OPTIMIZER ERRORS
BIND ERROR=PLIT( ERRMSG GLOBALLY NAMES
![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',
WOPTMSG GLOBALLY INDEXES
WARMSG GLOBALLY INDEXES %END OF WARNING MESSAGES%
% Beginning of Fatal Messages %
%151% E151 GLOBALLY INDEXES
'ITL?E Illegal transfer into loop to label ?A?0', ![1063]
0);
GLOBAL BIND BACKTYPE =0;
GLOBAL BIND NXTFIL = 0;
GLOBAL BIND ENDUNIT = 0, FINALCHAR = 0;
GLOBAL BIND LEXNAM=0;
END
ELUDOM