10 May
2004
10 May
'04
10:46 a.m.
On Mon, Mai 10, 2004 at 12:36:11 +0200, Marten Jan de Ruiter wrote:
Dear all, The default name for a pascal procedure does not work correctly anymore. (See the output for version number and so on below).
Following works:
program test_c_unit; (*$L c_unit.c *) procedure c_routine; external name 'c_routine' ; procedure p_routine; attribute (name = 'p_routine'); begin writeln('pascal routine invoked'); end;
begin c_routine; p_routine; end.
#include <stdio.h> extern void c_routine(); extern void p_routine();
void c_routine() { printf("c_routine invoked\n"); p_routine (); printf("c_routine done\n"); }
Eike