Pascal News

2578
2579
2580
2581
2582
2583
258q
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
procedure setexpr(fsys:sos; var c:boolean; var v:integer);
{level 2: « bu11dset}
{update lsp and sz variables of build set and set c and v parameters}
var min ,max : integer ; errno :integer;
be&1D with a do bealn c:=false;v:=O;
expresslon(fsys); asp:=desub(asp);
if aspnU tIleD
bealn
it lsp=nU then
beain errno: =0;
If not bounds(asp,min,max) tben
it asp=intptr tIleD max:=lopt-l .else errno:=+0190;
if max> (maxsetsize-l )*byteb its + (bytebits-l) tben
errno: =+0191;
it errnoO tben bealn asperr(errno); max:=O end;
sz:=even(max dlv bytebits + 1); lsp:=asp;
eDCI
else {aspnil and lspnil}
it asplsp tbion asperr(+0192);
it ak.cst tIleD
it pos.adO then
for i:=l to sz dlv wordslze do genwordset(cstpart[iJ);
If varpart Bod (ncst>O) then genHop_lor,sz);
eDCI
elld end;
procedure factor( fsys: ~os);
var lip:ip; 11,I:integer; lsp:sp;
bea1D with a do begin
asp:=nU; packbit:=false; ak:=loaded;
it findl ([notsy.. nllcst,lparentJ,fsys,+0198) then
case sy of
ident:
beain lip:=searchld([konst,vsrs,field,func ,carrbndJ); Insym;
case lip~.klass of
fune: {call moves result to top stack}
bea1D call(fsys,lip); ak:=loaded; packbit:=false end;
konst:
bea1D asp:=lip~ .idtype;
if nicescalar(asp) tben !including asp=nil}
bea1D ak:=cst; pos.ad:=lip~ .value end
else
beg1D ak: =ploaded;
11: =lino; gend(op_lae ,abs(lip~ .value»;
if asp~ .form=scalar tben
bea1D load; it lip~ .value
en
n
J>
..-
z:
m
:E:
en
......