Trailing-Edge
-
PDP-10 Archives
-
bb-jr93h-bb
-
7,6/ap018/strega.c18
There are 10 other files named strega.c18 in the archive. Click here to see a list.
REP 23/1 ;18C1
GLOBAL BIND STREGV = #11^24 + 0^18 + #4522; ! Version Date: 5-Nov-85
WIT
GLOBAL BIND STREGV = #11^24 + 0^18 + #4600; ! Version Date: 17-Nov-87
REP 415/1 ;18C2
ENDV11
WIT
***** End V11 Development *****
4600 DCE 17-Nov-87
For a FILE= attribute in an OPEN statement, make sure that an
array reference does not end up using a register in the argument
block. Cause a temporary to be allocated. This was the original
intent, but not properly coded.
***** End Revision History *****
ENDV11
REP 52/7 ;18C3
THEN ALCTMP();
WIT
%4600% THEN ! Allocate a temporary variable (for ALL cases)
%4600% IF .TREEPTR[OPRCLS] EQL ARRAYREF
%4600% THEN CSTMNT[IOFILE]=ALCTVARR(.STBSYR,.STRGCT)
%4600% ELSE ALCTMP();
SUM 239184