10 May
2004
10 May
'04
12:46 p.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 -- http://www.gnushi.de