Pascal News

3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3261
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
if main then programmeClsys) else with b do
begin
if find3Cconstsy,lsys,+0290) then constdefinitionClsys);
if find3Ctypesy,lsys,+0291) then typedefinition(lsys);
if find3Cvarsy,lsys,+0292) then vardeclarationClsys);
gen1(ps hol,address(lc,O,false)); lc:=O; level:=1;
while fInd2C[procsy,funcsy],lsys,+0293) do pfdeclarationClsys);
end;
errorC+0294);
until false; {the only way out is the halt in nextln on eof }
end;
{= = = = == = == = = = == = = = == == = == == = == = == = = == = = = = = = = == = = = = = = = = = = = == = = = = = = = = = }
begin {main body of pcompilerJ
rewrite(errors) ;
lnit 1; lnit2; init3; init4;
{all this initializing must be independent of opts}
resetCem1); if not eofCem1) then optionsCfalse);
rewriteCem1); writeCem1,MAGICLOW,MAGICHIGH);
lifdef GETREQUIRED
get (in put) ;
Hendif
if eofC input) then genO Cps eof) else
begin nextch; insym;
handleopts; {initialize all opt dependent stuff}
compile
end;
Hifdef STANDARD
9999: ;
Hendif
end. {pcompiler}
3
4
5
6
8
9
10
11
13
14
15
17
18
19
20
21
23
24
/* collection of options, selected by including or excluding 'defines' */
1* select only one of the following: *1
D define V7 1 1* Unix version 7 *1
1* n define V6 1 1* Unix version 6 *1
-0
;r,-
1* I define VPLUS 1 1* Unix version 6 plus diff listing *1 en
r,
»
1* select only one of the following: *1
,
# define C7 1 1* version 7 C-compiler *1 z:
1* define C6 1 1* version 6 C-compiler *1
I" n define NC6 1 1* something between C6 and C7 *1 en
nifdef BOOT
""
n define INT ONLY Hendif
'"
""
Rifndef BOOT
'" ""
n define HARDWARE FP I" if you've hardware floating point "I IJoj
I" n define INT ONLY- 1* for interpreted programs only */
R define SFLOAT I" for single precision floats 1/
Dendif
I" Version number of the EM1 object code "I
# define VERSION 2 I" 16 bits number" I
[T\
:E: