Trailing-Edge
-
PDP-10 Archives
-
BB-D480F-BB_1985_short
-
errovg.bli
There are 6 other files named errovg.bli in the archive. Click here to see a list.
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974, 1985
!ALL RIGHTS RESERVED.
!
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
!ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
!INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
!COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
!OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
!TRANSFERRED.
!
!THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
!AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
!CORPORATION.
!
!DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
!SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!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 = #10^24 + 0^18 + #2247; ! 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.
2247 AlB 22-Dec-83
Add E218 through E287 for Compatibility Flagging. These are all
warning messages used by the flagger.
***** End V10 Development *****
***** 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',
%222% E222 GLOBALLY INDEXES ![2247]
'COS?E Extension to Fortran-77: Comment on statement?0',
%225% E225 GLOBALLY INDEXES ![2247]
'DEB?E Extension to Fortran-77: DEBUG lines?0',
%265% E265 GLOBALLY INDEXES ![2247]
'NSC?E?BNon-standard character in column 1?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