DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFile
    Names: »eprocpass3«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »eprocpass3« 

TextFile

(nprocpass3 = edit procpass3
if ok.no
  finis)


; side 22
l./procedure comp_error/,
l./unstack_nontype:/, i/
wrong_version: write ('wrong pass1æ47æpass3 combination');
/,


l./procedure readoption;/,
l./emit (xoption);/, i/
if passno = 0 then (* version-identification *)
if optno = 1 (* pass 1 *) then
if (optvalue div 100 <> versionpass1 div 100) or
(optvalue mod 100 < versionpass1 mod 100) then
comp_error (wrong_version);
/,


; side 27
l./function alloc_typenode:/,
l./contents:= ÆÅ;/, r/ÆÅ;/Æ t_simple Å;  (* default *)/,


; side 53
l./procedure emitexpr/,
; side 57
l./cendsetlist:/,
l./if not op_packflag then (* dont't release, when/,
  r/op_packflag/const_decl/,


; sde 60  81 03 24
l./cor:emit_arith(xor);/, r/;/;
cxor:    begin
if not lambda_version then error( not_implemented_on_z80 );
emit_arith (xxor);
end;/,




; side 66
l./procedure emitroutinehead/,
l./endotherwiseif compilertest/, l1, i/
emit_extname (opand_procname);  (* emit the name once again... *)
/,



; side 72-73
l./function check_label(labname:/,
l./check_label:=noerror/, d, 
l./(*check locallydeclaredlabel*)/, l1, i/

check_label := label_undefined; (* suppose not locally declared *)
/,
l./case labelstateofoutside_scope/, i/
inside_scope: check_label := noerror;
/,

; side 73-74
l./procedure testvalue(opand/,
l./cin,cor,cand,cnot/, r/cor/cor, cxor/,

;side 75   81.03.24  fejlmeld: struc-const := ...
l./procedure testvariable(opand/,
l./cuparrow:goto99/, i/
begin
if opcode = cindex then
testvariable( left )
else testvariable( rigth );
/,
l./99;/ , r/*)/*)
end;/,



; side 77
l./procedure testexchangable/,
l1, r/ en error,/ an error,/,



; side 81
l./procedure set_procedure/,
l./cendsetlist:/,
l./contents := Æ t_simple Å;/, r/con/(* con/, r/;/;  *)/,


; side 82
l./procedure export_procedure;/,
l./opand_procname:=take_stacktop;end;/, i/
if expecting_block then
begin_block;
cur_dyn_var_level := maxint;
/,

; side 84
l./emit(xendexport);/, l1, i/

cur_dyn_var_level := namelevel;
/,


; side 86
l./procedure arithop/,
;810401
l./cinteger:/, r/:/: begin
if not lambda_version and
((operator = cor) or (operator = cand)) then 
arith_error := not_implemented_on_z80;
/,
l./:=real_division_not_implemented/, r/;/;
lefttypename := integer_typename;  (* let result be base type *)
end;/,

l./cset:/,
; 81 03 24
l./(operator=cslash/, i/
(operator = cand) or (operator = cor) or (operator = cxor) or
/,

l./:=arithmetic_error;/, r/;//, l1, i/
else
if leftelement = nil_typename then   (* if left-operand is empty set then *)
lefttypename := rigthtypename;     (*   use typename from rigth-operand *)
/,


l./cerrorkind:;(*/, r/*)/*)

cscalar: if (lefttypename <> rigthtypename) or (lefttypename <> boolean_typename)
or ( (operator <> cand) and (operator <> cor) and (operator <> cxor) ) then
arith_error := arithmetic_error;
/,


; side 96
;l./testrange(typename(*of curformal*));/, i/
;/,



; side 98
l./procedure initialize;/,
; side 99
l./cur_blockno := process_block;/, l1, i/

(* announce own version to next pass *)
emit (xoption);
emitin (0);
emitin (own_passno);
emitin (versionpass3);
/,
; side 101
l./retain_top := false;/, i/
const_decl := false;
/,

l./endotherwise endpass1:=true;/, d-1, i/

cendstandards:
endpass1 := true;

end otherwise comp_error (unknown_rectype);
/,
l./reset(pass1file)/, d,

f
▶EOF◀