Pascal News

2353
2354
2355
2356
2357
2358
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2385
2386
2388
2389
2390
2391
2392
2393
2394
2396
2397
2398
2399
2401
2402
2403
2404
2405
2406
2407
2408
end
else
if iop[m=PAGl=nll then error(+0163) else
gen 1(op lae ,argv[ord(m=PAG)l. ad);
gensp(m); asp: =boolptr; {not for PAG}
end end;
procedure callnd(fsys :sos; m:libmnem);
label 1;
var lsp:sp; sZ,int:integer;
begin with a do begin
if not formof(asp,[pointerl) then asperr(+0164) else
if asp=stringptr then asperr(+0165) else
asp: =asp ..... el type;
while find3(comma,fsys,+0166) do
begin
if aspnil then {asp of form record or variant}
if aspA.form=records then asp:=asp·.tagsp else
if asp' .form=variant then asp:=asp' .subtsp else asperr(+0167);
if asp=nil then constant(fsys ,lsp,int) else
begin assert asp' .form=tag;
int: =cstinteger(fsys ,asp' .tfldsp,+0168); lsp: =asp' .fstvar;
vb1le lspnil do
if lsp' .varvalint then lsp:=lsp' .nxtvar else
begin asp: =lsp; goto 1 end;
end;
1: end;
sz: =sizeof( asp); int: =intsize+ptrsize;
if sz>int then int:=(sz+int-1) div int * int;
gen1(op_loc ,int); gensp(m)
end end;
procedure callpg(m:libmnem);
begin gensp(m); if not formof(a.asp,[files]) then asperr(+0169) end;
procedure callrr(m:libmnem);
begin
if not formof(a.asp,[files]) then asperr(+0170) else
if a.asp=textptr then gen1(op 10c,O) else
gen 1(op loc ,sizeof( a.asp· .fIltype»;
gensp(m); -
end;
procedure callmr(m:libmnem);
begin teststandard; gensp(m);
if not formof(a.asp,[pointer]) then asperr(+0171)
end;
procedure callpu(m:libmnem; zsp,asp,isp :sp);
begin fsp:=desub
'"
N
\I1