Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - sta3.c13
There is 1 other file named sta3.c13 in the archive. Click here to see a list.
 REP 19/1	;13C1
	!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/EGM/CKS/AHM/CDM/TFV/RVM/MRB/AlB
 WIT
	!AUTHOR: F.J. INFANTE, D. B. TOLMAN/MD/DCE/EGM/CKS/AHM/CDM/TFV/RVM/MRB/AlB/JB
 REP 26/1	;13C2
	GLOBAL BIND STA3V = #10^24 + 0^18 + #2546;	! Version Date:	5-Sep-85
 WIT
	GLOBAL BIND STA3V = #10^24 + 0^18 + #2557;	! Version Date:	6-Nov-85
 REP 293/1	;13C3
		
 WIT

	2557	JB	6-Nov-85
		Check for the use of specific function names in argument lists
		instead of in INTRINSIC statements. Call routine INTRCHK to
		perform the check.

 REP 49/6	;13C4
	%1515%			IF .LIBATTRIBUTES[.FNINDEX-LIBFUNTAB<0,0>, ATTSPGEN]
	%1515%			THEN
	%1515%			BEGIN	! Non-specific, generic name is illegal
	%1515%				STMTERROR = TRUE;
	%1515%				ERR15('the name of a non-generic function')
	%1515%			END	! of non-specific, generic name is illegal
	%1515%			ELSE
				BEGIN ! Set up the attributes of this identifier.
 WIT
	%2557%			BEGIN	! Set up the attributes of this identifier.
 SUM 48455