Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/p2s1.c17
There are 10 other files named p2s1.c17 in the archive. Click here to see a list.
REP 24/1 ;17C1
GLOBAL BIND P2S1V = #11^24 + 0^18 + #4560; ! Version Date: 22-Dec-86
WIT
GLOBAL BIND P2S1V = #11^24 + 0^18 + #4566; ! Version Date: 15-Jun-87
DEL 206/1 ;17C2
***** End Revision History *****
REP 262/1 ;17C3
4560 MEM 22-Dec-85
Remove edit 4555 until its bugs are fixed.
WIT
4560 MEM 22-Dec-86
Remove edit 4555 until its bugs are fixed.
***** End V10 Development *****
4563 MEM 11-Feb-87
Add edit 4555 as 4563.
4566 JB 15-Jun-87
In STRIPCONST when an ADD node is being processed, check the
A2NETFLG, and set NEGFLG so that the negation is retained.
***** End Revision History *****
DEL 377/1 ;17C4
%4510% E165, ! Substring bound out of range error
REP 48/17 ;17C5
WIT
%4566% IF .BOUND[A2NEGFLG] EQL 1
%4566% THEN NEGFLG = 1;
REP 51/18 ;17C6
%4510%
%4510% ! Get the length of the character variable or array element
%4510% ! we're taking the substring from.
%4510%
%4510% IF .ANODE[OPRCLS] NEQ ARRAYREF
%4510% THEN CHLEN = .ANODE[IDCHLEN] ! ANODE is scalar, get its length
%4510% ELSE
%4510% BEGIN ! ARRAYREF
%4510%
%4510% CHLEN = .ANODE[ARG1PTR]; ! Array name
%4510% CHLEN = .CHLEN[IDCHLEN]; ! Length of array element
%4510%
%4510% END; ! ARRAYREF
%4510%
%4510% IF .LNODE[OPR1] EQL CONSTFL
%4510% THEN IF .LNODE[CONST2] LSS 1 ! Lower bound must be >= 1
%4510% OR ! and < CHLEN
%4510% (.CHLEN NEQ LENSTAR AND .LNODE[CONST2] GTR .CHLEN)
%4510% THEN FATLERR(.ISN,E165<0,0>); ! Give bounds error
%4510%
%4510% IF .UNODE[OPR1] EQL CONSTFL
%4510% THEN
%4510% BEGIN ! Upper bound is constant
%4510%
%4510% IF .UNODE[CONST2] LSS 1 ! Upper bound must be >= 1
%4510% OR ! and <= CHLEN
%4510% (.CHLEN NEQ LENSTAR AND .UNODE[CONST2] GTR .CHLEN)
%4510% THEN FATLERR(.ISN,E165<0,0>); ! Give bounds error
%4510%
%4510%
%4510% IF .LNODE[OPR1] EQL CONSTFL
%4510% THEN
%4510% BEGIN ! Upper and lower bounds are both constant
%4510%
%4510% ! Give a bounds error if the lower bound minus
%4510% ! one is >= the upper bound (i.e., the
%4510% ! user-specified lower bound is > the upper
%4510% ! bound).
%4510%
%4510% IF .LNODE[CONST2] GTR .UNODE[CONST2]
%4510% THEN FATLERR(.ISN,E165<0,0>) ! Give bounds error
%4510% END;
%4510% END;
%4510%
WIT
%4563%
SUM 142564