Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-SB_FORTRAN10_V10 - errovd.bli
There are 6 other files named errovd.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/SJW/DCE/EGM/TFV/AlB

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


GLOBAL BIND ERRDV = #10^24 + 0^18 + #2530;	! Version Date:	3-Apr-85

%(

***** 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).


***** Begin Version 10 *********

2247	AlB	22-Dec-83
	Add E218 through E287 for Compatibility Flagging. These are all
	warning messages used by the flagger.

2271	AlB	18-Jan-84
	Added E236: 'Extension to Fortran-77: Transfer of control into DO loop'

2530	AlB	3-Apr-85
	Change the wording of E78 so that it matches the wording of
	E78 in ERROUT.  This was causing a problem with Tops-10 testing
	because ORGs didn't match.


***** End V10 Development *****

***** 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 be incorrect?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',
%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',
%236%	E236 GLOBALLY INDEXES	![2271]
		'EXD?E Extension to Fortran-77: Transfer of control into DO loop at label ?A?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
	!*************************************************************

%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