|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »test4«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »test4«
mode list.yes
lambdaenv = set bs lambdaenv5
platonlib =assign platonlibv5
platonpass4 = assign newp4
platonpass5 = assign newp5
pascal80 list.yes codelist.yes
(*$ 5 8 5 *)
process x;
var o : integer;
sh : shadow;
sh1 : shadow;
process xx ( yy : integer ); external;
process zz ( ww : integer ); external;
function double_create( process1, process2 : processrec ) : integer; external;
begin
o := create('name1', xx( create('name2', zz( 1234 ), sh1, 4321)), sh, 111);
o := double_create( xx( 123 ), zz( 321 ) );
end.
printpass4
finis
▶EOF◀