Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - lnklod.c11
There is 1 other file named lnklod.c11 in the archive. Click here to see a list.
 REP 2/1	;11C1
	SUBTTL	D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN/PAH/PY	14-Aug-84


	;COPYRIGHT (C) 1973, 1984 BY
 WIT
	SUBTTL	D.M.NIXON/DMN/JLd/JBC/RKH/JNG/DCE/MCHC/DZN/PAH/PY	8-Feb-85


	;COPYRIGHT (C) 1973, 1985 BY
 REP 36/1	;11C2
	DECEVR==2074		;DEC EDIT VERSION
 WIT
	DECEVR==2103		;DEC EDIT VERSION
 INS 117/6	;11C3
	;2103	Typecheck structure mismatches.
 REP 52/69	;11C4
	ARGSCX:
 WIT

	ARGSCX:

	;**;[2103] PAH Insert 12 lines at ARGSCX.
	;[2103] Check for structure mismatch too.

		TDNN	T4,[TPSTRM]		;[2103]
		JRST	ARGSX0			;[2103] No mismatch seen
		LDB	T1,[POINTR(<(P)>,TPSTRM)]
						;[2103] What did caller expect?
		LDB	T3,[POINTR(T2,TPSTRM)]	;[2103] What did func expect?
		HRL	T1,T3			;[2103] Formal,,actual
		MOVEI	T3,FCSTR		;[2103] This is a structure mismatch
		PUSHJ	P,ARGERR		;[2103] Handle it

	ARGSX0:					;[2103]
 INS 47/70	;11C5
	;**;[2103] Add 1 Line.  PAH 8-Feb-85
		E$$AMM				;[2103] 7 STRUCTURE CODE
 SUM 12680