Pascal News

3137
3138
3139
31~0
3141
3142
31~3
31~4
3145
31~6
31~7
31~8
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
317~
3175
3176
3178
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
gend(ps fwe,letdlb); gend(op beg,letdlb);
{the bodY-itself} -
lcmax:=lc; currproc:=fip;
eOlllpoundstatement( fsys ,+0266); {+02671
lcmax:=address(lcmax,O,false); {align lemax}
trace( 'procexit' ,fip,namdlb);
{undefined or global labels}
Up: =lehain ;
.... ile IIpnil do
begin if not llp~ .seen then errint(+0268,Up~ .labval);
if llp~ .1abdlb0 then
begin gendlb( Up~ .labdlb); genpnam(ps rom ,fip);
genelb(llp~.labname); genest(lcmax); genend;
{this doesn't work if local generators are around}
end;
Up:=llp~ .nextlp
end;
{define BUG size}
gend(ps let ,letdlb); genest( lcmax-fip~ .headle);
{finish and close files}
treewalk( top~ .fname);
if level=1 then
begin gendlb(tnidlb); gen1(ps eon,arge+ll;
for i: =0 to argc do with argyl 1l do
begin gencst(ad);
if (ad=-1) and (i>1) then errid(+0269,name)
end.
genend; gen1(op_mrk,O); gen1(op_loc,O); gensp(HLT)
end
else
begin
if fip~ .klassfunc then sz: =0 else
begin
if not (assigned in fip~ .iflag) then
errid(-(+0270) ,fip~ .name);
sz:=even(sizeof( f1p~ .1dtype»; push(local,fip~ .pfpos.ad,sz);
end;
gen1(op ret,sz); genO(ps_end);
end -
end end;
{= ==== == = = ====== == = ==== = = === = ==== = = == == = = == = = = == == = = = = = = == = = = = = == = == }
procedure block; {forward declared}
var ad : integer ;
begin with b do begin
assert [labelsy•• withsyl