29 lines
1.3 KiB
C
29 lines
1.3 KiB
C
/**************************************************************************/
|
|
/* */
|
|
/* OCaml */
|
|
/* */
|
|
/* Alain Frisch, LexiFi */
|
|
/* */
|
|
/* Copyright 2007 Institut National de Recherche en Informatique et */
|
|
/* en Automatique. */
|
|
/* */
|
|
/* All rights reserved. This file is distributed under the terms of */
|
|
/* the GNU Lesser General Public License version 2.1, with the */
|
|
/* special exception on linking described in the file LICENSE. */
|
|
/* */
|
|
/**************************************************************************/
|
|
|
|
#include "caml/mlvalues.h"
|
|
#include "caml/memory.h"
|
|
#include "caml/alloc.h"
|
|
#include <stdio.h>
|
|
|
|
CAMLextern value stub1(void);
|
|
|
|
value stub2(void) {
|
|
printf("This is stub2, calling stub1:\n"); fflush(stdout);
|
|
stub1();
|
|
printf("Ok!\n"); fflush(stdout);
|
|
return Val_unit;
|
|
}
|