Pascal News

337
338
339
3~O
3~1
342
343
344
345
346
347
348
349
350
351
352
353
35q
355
356
357
358
359
360
361
362
363
36q
365
367
368
369
310
311
372
373
374
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
case klasa
types
konst
end;
ide lass of
0;
(value:integer);
{for integers the value is
COInputed and stored in this field.
For strings and reals an assembler constant is
defined labeled '.1', '.2' •...
This '.' number is then stored in value.
For reals value may be negated to indicate that
the opposite of the assembleroonstant is needed.
val'S :(vpos:position); {position of' var}
field : (totfset:integer); {offset to begin of record}
carrbnd :0:
lid type pOints to carray)'
proe,func:
(oase pfkind :kindofpf of
standard :(key:standpf): {identifioation}
formal ,actual,forwrd ,E!-xtrn:
(pfpos:position:
{l'i gives declaration level.
labl~record
nextlp:lp;
seen:boolean;
labval : integer;
labname:integer;
labdlb:integer
end;
sg gives instruction segment of this proc and
ad 1s relevant for formal pf's and for
functions (no oonfliot!!).
for funotions: ad is the result address.
for formal pf' s: ad is the address of the
descriptor }
pfRo :integer:
parhead lip;
headle: integer
)
{ohain of labels}
(unique pi number)
{head of par ameter list 1
{le when heading scanned)
{label number given by the progr.ammer}
!label number given by the compiler}
{zero means only locally used,
otherwise dlbno of label information}
{--------------------------------------------------------}
v.... {the most frequent used externals are declared first}
sy:symbol:
!last symbol}
a:attr;
{type,access method,posil;ion,value of expr}
[returned by insyml
;,h:ohar;
chsy:chartype;
val :integer;
1x :integer;
eol :boolean;
zerostr ing :boolean;
Id:alpha;
[some counters}
lino: integer;
dlbno: integer;
lom8x!lnteger:
level:i'nteger;
!last character}
{type of ch, used by insym}
tit last symbol is an constant
{string length}
{true if current oh replaces a newline}
{true for strings in tI tI}
{if last symbol is an identif1er}
{line number on code file (1 •• n)
{number of last global nUlllber}
{keeps track of maximl.lD of Ie)
{current statio level}
393
394
395
396
397
398
399
liOO
401
Q02
403
404
405
406
407
408
409
410
411
412
Q13
41Q
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
ptrsize :integer;
realsize :integer;
fhsize:integer;
argc:integer:
lastpfno:integer;
copt:integer;
dopt ; integer ;
iopt:integer;
(file header size)
{index in argvl
{unique pf number counter}
Ie-type strings allowed if on}
!longs allowed if on}
{number of bits in sets with base integer}
{standard option}
sopt :integer;
{pointers pointing to standard types}
realptr ,intptr ,textptr ,emptyset,boolptr :sp;
charptr ,nilptr ,stringptr,longptr:sp;
{flags}
giveline :boolean;
including:boolean;
eofexpected :boolean:
main !boolean;
intypedec :boolean;
fltused :boolean;
seconddot :boolean;
{pointers}
fwptr:ip;
progp:ip;
curr proc : ip;
top:np;
lastnp:np;
{records)
b:blookinfo;
e :-errec;
fa :attr;
{arrays}
{give source line number at next statement}
{no LIN's for included code}
{quit without error if true (nextch)
{complete programme or a module}
{true if nested in typedefinition}
{true if floating point instructions are used}
{ind~cates the second dot of t •• '}
{head of chain of forward reference pointers}
{program identifier}
{current proc/func Ip (see case statement) }
{pointer to the most recent name space}
{pointer to nameinfo of last searched ident
{all info to be stacked at pfdeolaration}
{all info required for error messages}
{attr for current file name}
source:fntype; {name of pascal scurce file}
strbu1':array[1. .smax] of char;
iop:array[boolean] of ip;
[false :standard input, true :standard output}
rw:array[rwrange] of alpha;
{reserved words}
frw:array[O .. idmax] of integer;
{indices in rw}
rsy:array[rwrange] of symbol;
{symbol for reserved words}
cs :array[ char] of chartype;
{chartype of a character}
csy:array[rparentch •• equal] of symbol;
{symbol for single character symbols}
lmn:array[libmnem) of packed array[1 •• 4} of char;
{mnemonics of pascal library routines}
opt :array[ 1 a' .. t z.'] of integer;
forceopt:array['a' ••'z'} of boolean:
{26 different options}
undefip:array[idclass] of ip;
{used in searehid)
argv:array[O •• maxargc] of
record name:alpha; aa:integer end;
{save here the external heading names}
(riles)
."
»
'"
'"
......