Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - relbuf.c11
There are 2 other files named relbuf.c11 in the archive. Click here to see a list.
 REP 24/1	;11C1
	GLOBAL BIND RELBUV = #10^24 + 0^18 + #2517; ! Version Date: 1-FEB-85
 WIT
	GLOBAL BIND RELBUV = #10^24 + 0^18 + #2532; ! Version Date: 9-May-85
 INS 228/1	;11C2
	2532	CDM	9-May-85
		Only put out type checking information for known (called)
		function names.  Subroutine and ambiguous external names
		should not have type checking information output.

 REP 108/23	;11C3
	%2434%
	%2517%		IF NOT (.CNODE[OPR1] EQL FNNAMFL	! Don't give a type
	%2517%			AND .CNODE[IDSUBROUTINE]) THEN	! to a subroutine name
	%2434%		IF (.CNODE[VALTYPE] EQL CHARACTER) AND EXTENDED
 WIT
	%2532%		! If we don't assign a value, then 0 is the default, which
	%2532%		! translates to "don't care".  This is done for subroutine
	%2532%		! names or externals when we don't know if they are
	%2532%		! functions or subroutines.  Only function names get type
	%2532%		! checking info.
	%2532%		
	%2532%		IF (IF .CNODE[OPRCLS] EQL DATAOPR	! Only check if...
	%2532%		    THEN NOT .CNODE[IDSUBROUTINE]	! Subroutine name
	%2532%		    ELSE TRUE)				! ARRAYREF
	%2532%		THEN IF (IF .CNODE[OPRCLS] EQL DATAOPR	! Only check if...
	%2532%		         THEN IF .CNODE[IDATTRIBUT(INEXTERN)]	! External name
	%2532%			      THEN (.CNODE[DATOPS1]		! Function
	%2532%					EQL FNNAME1		! or dummy fn
	%2532%				    AND .CNODE[IDFUNCTION])	! Really called
	%2532%			      ELSE TRUE			! Not external
	%2532%			 ELSE TRUE)			! ARRAYREF
	%2434%		THEN IF (.CNODE[VALTYPE] EQL CHARACTER) AND EXTENDED ! Chr /EXT
 SUM 201812