Google
 

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