Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/cobver.c16
There are 11 other files named cobver.c16 in the archive. Click here to see a list.
REP 11/1 ;16C1
COPYRIGHT (C) 1979, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
WIT
COPYRIGHT (C) 1979, 1983, 1984, 1987 BY DIGITAL EQUIPMENT CORPORATION
REP 15/1 ;16C2
CBLEDT==1636 ;EDIT LEVEL
WIT
CBLEDT==1642 ;EDIT LEVEL
REP 26/1 ;16C3
LBLEDT==1174 ;EDIT LEVEL
WIT
LBLEDT==1200 ;EDIT LEVEL
INS 8/4 ;16C4
;.AUTOPATCH 16
;.EDIT 1642 Length of reference modification ignored in move statement.
; MEM,9-JAN-87,SPR:20-21486
; A:SRC MSCGEN
;
;.EDIT 1641 An undefined name used as index caused the compiler to ICE.
; MEM,6-JAN-87,SPR:20-21465
; A:SRC CTREE
;
;;.EDIT 1640 NON-BIS patch and we only build BIS compilers on -20.
;; 12C Only.
;
;.EDIT 1637 Call DA64. when file name is seen instead of a report name
;; so that RPWRDL is set up for when it is used at D27MCY+15.
; MEM,17-DEC-86,SPR:20-21481
; A:SRC CTREE
;
;.ENDA
REP 13/4 ;16C5
; A:SRC IOGEN
;
;.EDIT 1635 Remove edit 1630 from DTREE and replace it with a patch in
;; COBOLD. Prior to 1630 we were sometimes getting more
;; '072' (start expression) operators put into genfil than
;; '073' (end expression), but with edit 1630 we sometimes have
;; the reverse problem.
; MEM,4-NOV-86,SPR:NONE
; A:SRC DTREE,COBOLD
;
;.EDIT 1634 Make the Value-of-id variable in the File status
;; variables to allow sizes to a max of 63(decimal). This
;; takes into account long file names.
; KWS,30-OCT-86,SPR:20-21278
; A:SRC CLEANC
;
;.EDIT 1633 Depending on with comp-1 doesn't get correct
;; internal size
; RLF,28-OCT-86,PSR:20-21269
; A:SRC CMNGEN
;
;;.EDIT 1632 Not applicable to Cobol-13
;
;.EDIT 1631 Subscripting a non-uniquely defined name caused a
;; catastrophe in phase E because phase D was not correctly
;; recovering from the error.
; MEM,16-OCT-86,SPR:20-21290
; A:SRC COBOLD,CMNGEN
;
;.EDIT 1630 Fix problem with IF (A EQUALS B(1:2))
; MEM,29-SEP-86,SPR:20-21183
; A:SRC DTREE
WIT
; A:SRC IOGEN,COBVER
;
;.EDIT 1635 Remove edit 1630 from DTREE and replace it with a patch in
; COBOLD. Prior to 1630 we were sometimes getting more
; '072' (start expression) operators put into genfil than
; '073' (end expression), but with edit 1630 we sometimes have
; the reverse problem.
; MEM,4-NOV-86,SPR:NONE
; A:SRC DTREE,COBOLD,COBVER
;
;.EDIT 1634 Make the Value-of-id variable in the File status
; variables to allow sizes to a max of 63(decimal). This
; takes into account long file names.
; KWS,30-OCT-86,SPR:20-21278
; A:SRC CLEANC,COBVER
;
;.EDIT 1633 Depending on with comp-1 doesn't get correct
; internal size
; RLF,28-OCT-86,PSR:20-21269
; A:SRC CMNGEN,COBVER
;
;.EDIT 1632 Not applicable to Cobol-13
;
;.EDIT 1631 Subscripting a non-uniquely defined name caused a
; catastrophe in phase E because phase D was not correctly
; recovering from the error.
; MEM,16-OCT-86,SPR:20-21290
; A:SRC COBOLD,CMNGEN,COBVER
;
;.EDIT 1630
; Fix problem with IF (A EQUALS B(1:2))
; MEM,29-SEP-86,SPR:20-21183
; A:SRC DTREE,COBVER
REP 48/4 ;16C6
; A:SRC MSCGEN
;
WIT
; A:SRC MSCGEN,COBVER
;
;.ENDA
;.AUTOPATCH 14
;.NOEDITS
INS 7/14 ;16C7
;.AUTOPATCH 16
;
;.EDIT 1200 Allow files to be found via search lists
; KWS,17-JUN-1987,SPR:20-21480
; A:SRC COBVER,RMSIO
;
;;.EDIT 1177 Not applicable to version 13
;
;
;.EDIT 1176 Put back part of edit 1137 to original form so files
;; not connected to directory can be found.
; RLF,04-FEB-1987,SPR:20-21274
; A:SRC COBVER,CBLIO
;
;.EDIT 1175 Change Device error error message to include insufficient
;; system resources.
; KWS,26-NOV-1986,SPR:NONE
; A:SRC COBVER,CBLIO
;
;.ENDA
REP 19/14 ;16C8
;; files.
WIT
; files.
REP 24/14 ;16C9
;; so there is no extra CRLF
WIT
; so there is no extra CRLF
REP 29/14 ;16C10
;; give bad record size error.
WIT
; give bad record size error.
REP 34/14 ;16C11
;; and mode BINARY won't get COMPT. UUO error
WIT
; and mode BINARY won't get COMPT. UUO error
REP 43/14 ;16C12
;; at OPEN time won't get error from COMPT. UUO
WIT
; at OPEN time won't get error from COMPT. UUO
REP 48/14 ;16C13
;; doing OPEN EXTEND with SAME AREA
WIT
; doing OPEN EXTEND with SAME AREA
REP 59/14 ;16C14
;; Start is illegal within the scope of a RETAIN/FREE, but it
;; should work outside the scope.
WIT
; Start is illegal within the scope of a RETAIN/FREE, but it
; should work outside the scope.
REP 70/14 ;16C15
;; length in words.
WIT
; length in words.
REP 75/14 ;16C16
;; file locking.
WIT
; file locking.
SUM 5366