Media: Redeclare record doesn't work correctly

[Martin Sjölund]

{{{class C

record myR end myR;

end C;

class B

replaceable record R end R;

end B;

class A

extends B(redeclare record R = C.myR);
Real r = fn();
function fn

output Real r;

algorithm

R();
r := 42.42;

end fn;

end A;}}}

The correct record constructors are not added to the FunctionTree. Plus, Cevalfunc does not work which means Media becomes really slow.