DataMuseum.dk

top - metrics - download

    Length: 3840 (0xf00)
    Types: TextFileVerbose
    Names: »epass5«

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

TextFileVerbose

(
npass5pasc =,
   edit tpass5pasc
if ok.no
  finis )

l./versionpass4=/, d1, i/
versionpass4 = 400;
versionpass5 = 421;  (* 81.06.09 *)
/,
p-2,


; page 3
l./(*names from lambda-environment/, i/
(* name for initialization of dope vector of dynamic array *)
id_elems_ready = 'elemsready';
/,

l./id_mkind=/, d./id_mstart/,


; page 6
l./op_usub, op_umul,/, l1, i/
op_msub, op_madd,
/,





; page 13
l./descr:record(*inthisvariable/,
l./end(*descr*);/, l1, i/

enforced_create_size : integer;
(* if defined (option 10) then suppress computed default appetite *)
/,



; page 15
l./('usub',-2),('umul',-2)/, l1, i/
('msub', -2), ('madd', -2),
/,



; page 19
l./procedure get_token;var/,
l./9:openroutine/,l1, i/
10: enforced_create_size := no2;
/,



; page 23
l./procedure mess_summary_line/,
l./write(' ',name,/, r/name,/name );
if head_line = -1 (* external routine *) then
write( '   external, called ', appetite : 2, ' time(s) ')
else
write( /,



; page 29-30
l./procedure ext_copy_code(key:integer)/,
l./with ext_open_codes dobegin/, i/
if wordcount > 0 then
/,
l./c:=wmod256/, l./end;end;/, i/
if firstword < 0 then (* update file position *)
file_position := -firstword + wordcount;

/,



; page 34
l./procedure descr_end;/,
l./descr.default_appetite/, i/
if enforced_create_size <> 0 then
begin
writeln (out_pass5, enforced_create_size);
enforced_create_size := 0;
end
else
/,


; page 35
l./ifno_of_uses>0then/,
l./writeln(out_pass5,id)/, l1, i/
mess_summary_line( id, -1 (* external routine !! *), 0, 0, no_of_uses, false, 0 );
/,




; page 37
l./procedure get_niv_offset/,
l./if niv = const_niv_0/, d./else/,l./else/,i/
else
if niv = const_niv_0 then access := g_frame
/,


; page 72
l./procedure compute_number_of_elements(dope/,
l./const/, d./;/,
l./out_op_int(/, d./out_op_int(op_uadhw,1/, i/

out_nl;
out_token (zbegin); out_p_id( id_elems_ready ); 
out_token (zendlist);
out_comment( '  compute number of elements ' );

out_op_int( op_revld, dope_start + 2 );
out_opcode( op_le ); (* 0: first > last, i.e. number of elements = 0 *)
out_opcode( op_revpw );
out_op_id ( op_jmzeq, id_elems_ready ); (* if first > last then no_of_elems := 0 *)
out_op_int( op_revlw, dope_start + 4 ); (*  else  *)
out_op_int( op_revlw, dope_start + 2 ); (* no_of_elems :=       *)
out_opcode( op_msub );                  (*  last - first        *)
out_opcode( op_uadd );                  (*     + 1              *)
out_label ( id_elems_ready );
out_nl; out_token (zend);
/,



; page 95
l./mess_summary_line(name, line_no, begin/, i/

if roulix = -1 then (* process level *)
begin
if outermost_level and (enforced_create_size <> 0) then
i := enforced_create_size
else
i := descr . default_appetite;
end
else
i := 0; (* suppress printing of create size *)

/,

l./dyn_yes_or_no,/, r/no,/no, i );/,
l./ord(roulix=-1/, d,




; page 127
l./(*body of pass5:*)/,
l./openroutine_yes:=true/, i/
enforced_create_size := 0; (* i.e. use computed value *)
/,





f
«eof»