Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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