diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-07-08 15:12:35 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-07-08 15:12:35 +0000 |
| commit | f98e9a6208b5e3849cff3e631afcae7ead1b4d0f (patch) | |
| tree | dadfa6c330d8c3e314b8370713b2bed6b7b395c8 | |
| parent | c036c3c7079375618cc10e413ef7f4eb619fd6a4 (diff) | |
Retour en arriere sur le nettoyage de Francois, qui casse les DLL Windows
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5675 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/labltk/support/camltk.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/labltk/support/camltk.h b/otherlibs/labltk/support/camltk.h index 1e3f22e9a..06505cf71 100644 --- a/otherlibs/labltk/support/camltk.h +++ b/otherlibs/labltk/support/camltk.h @@ -25,7 +25,7 @@ extern value tcl_string_to_caml( char * ); extern char * caml_string_to_tcl( value ); /* cltkEval.c */ -extern Tcl_Interp *cltclinterp; /* The Tcl interpretor */ +CAMLprim Tcl_Interp *cltclinterp; /* The Tcl interpretor */ extern value copy_string_list(int argc, char ** argv); /* cltkCaml.c */ @@ -34,7 +34,7 @@ extern value *tkerror_exn; extern value *handler_code; extern int CamlCBCmd(ClientData clientdata, Tcl_Interp *interp, int argc, char *argv[]); -extern void tk_error(char * errmsg) Noreturn; +CAMLprim void tk_error(char * errmsg) Noreturn; /* cltkMain.c */ extern int signal_events; |