sample breaks c-code

[Lennart Ochel]

quite easy sample:

package eventTests
  model sample1
    Real x;
    Boolean condition;
  algorithm
    condition := sample(0.0, 0.1);
    when condition then
      x := pre(x) + 0.1;
    end when;
  end sample1;
end eventTests;

output:

eventTests.sample1.c: In function ‘eqFunction_5’:
eventTests.sample1.c:268: error: incompatible type for argument 1 of ‘sample’
/home/lochel/Documents/workspace/OpenModelica/clean_trunk/build/include/omc/events.h:46: note: expected ‘struct DATA *’ but argument is of type ‘double’
eventTests.sample1.c:268: error: too few arguments to function ‘sample’
make: *** [eventTests.sample1.o] Error 1

see: /testsuite/simulation/modelica/events/sample1.mos

[Lennart Ochel]

fixed in r14729