Pascal News

1~57
1~58
1~59
1~60
1~61
1~62
1~63
1~6~
1~65
1~66
1~67
1~68
1~69
1~70
1471
1~72
1~73
1~74
1~75
1~76
1~77
1~78
1479
1~80
1~81
1482
1~83
1484
1485
1487
1488
1~89
1~90
1~91
1~92
1~93
149~
1~95
1496
1~97
1~98
1~99
1500
1501
1502
1503
150~
1505
1507
1508
1510
1511
1512
function compat(p,q :sp) :twostruct;
begin compat: =noteq;
if eqstruct(p,q) then compat:=eq else
begin p:=desub(p); q:=desub(q);
if eqstruct(p,q) then compat:=subeq else
if p' .form=q' .fopm then
case p~ .form of
scalar:
if (p=intptr) and (q=realptr) then compat =ir else
if (p=realptr) and (q=intptr) then compat =ri else
if (p=intptr) and (q=longptr) then compat =il else
if (p=longptr) and (q=intptr) then compat:=11 else
if (p=longptr) and (q=realptr) then compat:=lr else
if (p=realptr) and (q=longptr) then compat:=rl else
pointer:
if (p=nl1ptr) or (q=nilptr) then compat:=eq;
power:
if p=emptyset then compat:=es else
if q=emptyset then compat: =se else
if compat(p' .elset,q' .elset) = maxint-sz then begin error(+017); lc:=O end;
if (not pack) or (sz>1) then if odd(1c) then lc:=lc+1;
address: =10;
Ie! =!c+sz
end;
function reserve( s :integer): integer;
var r :lnteger;
begin r:=address(b.lc,s,false); genreg(r,s,100); reserve:=r;
if b.lc>lcmax then lcmax:=b.lc
end;
f'unction arraysizeCfsp:sp; pack:boolean):integer;
var sZ,min,max,tot,n:integer;
begin sz:=sizeof(fsp' .aeltype);
if not pack then sz:=even(sz);
if bounds(fsp' .inxtype,min,max) then; {we checked before}
dlbno:=dlbno+1; fsp' .arpos.lv:=O; fsp' .arpos.ad:=dlbno;
gendlb(dlbno); gen1(ps rom,min); gencst(max-min);
gencstCsz); genend; -
n: =max-mln+ 1; tot: =sz*n;
if szO then if tot div sz n then begin error(+018); tot:=O end;
arraysize :=tot
end:
procedure treewalk(fip:ip);
var lsp:sp; l:integer;
begin
if fipnil then
begin treewalk( fip' ,llink); treewalk( fip' .rlink);
if fip'.klass=vars then
begin if not (used in fip' .iflag) then errid(-(+019),fip' .name);
if not (assigned in fip' .ifl~g) then errid(-(+020) ,fip' .name);
lsp: =fip' .idtype;
if not (noreg in fip' .iflag) then
genreg( rip' • vpos .ad ,sizeof( lsp) ,ord(formof( lsp, [pointer 1»);
if lspnil then if wi thfile in lsp' .sflag then
if lsp' .form=files then
if level=1 then
begin
for i: =2 to argc do with argyl i] do
z:
m
:E:
tn
....