diff options
| author | Wojciech Meyer <wojciech.meyer@gmail.com> | 2013-02-25 03:01:31 +0000 |
|---|---|---|
| committer | Wojciech Meyer <wojciech.meyer@gmail.com> | 2013-02-25 03:01:31 +0000 |
| commit | dc9834c4a430a57ad1f76992ec9ac85a69b73597 (patch) | |
| tree | beed4a44719ceb3ce05444ee08669ada4e40c0a4 /otherlibs/labltk/support/cltkEval.c | |
| parent | fb17e50db586b6e92dc720aec3679dfd34188b96 (diff) | |
misc: replace stat_(alloc|free|resize) occurences with caml_stat_(...).
byterun/compatibility.h defines:
#define stat_alloc caml_stat_alloc
#define stat_free caml_stat_free
#define stat_resize caml_stat_resize
Having the "caml_" prefix seems cleaner to me, it also avoids some
issues for cross-compilation but I don't remember well which ones.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13314 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/cltkEval.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkEval.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/labltk/support/cltkEval.c b/otherlibs/labltk/support/cltkEval.c index 69ba6d8a1..c7a43481c 100644 --- a/otherlibs/labltk/support/cltkEval.c +++ b/otherlibs/labltk/support/cltkEval.c @@ -139,14 +139,14 @@ int fill_args (char **argv, int where, value v) char *merged; int i; int size = argv_size(Field(v,0)); - tmpargv = (char **)stat_alloc((size + 1) * sizeof(char *)); + tmpargv = (char **)caml_stat_alloc((size + 1) * sizeof(char *)); fill_args(tmpargv,0,Field(v,0)); tmpargv[size] = NULL; merged = Tcl_Merge(size,(const char *const*)tmpargv); for(i = 0; i<size; i++){ stat_free(tmpargv[i]); } stat_free((char *)tmpargv); /* must be freed by stat_free */ - argv[where] = (char*)stat_alloc(strlen(merged)+1); + argv[where] = (char*)caml_stat_alloc(strlen(merged)+1); strcpy(argv[where], merged); Tcl_Free(merged); return (where + 1); @@ -173,8 +173,8 @@ CAMLprim value camltk_tcl_direct_eval(value v) /* +2: one slot for NULL one slot for "unknown" if command not found */ - argv = (char **)stat_alloc((size + 2) * sizeof(char *)); - allocated = (char **)stat_alloc(size * sizeof(char *)); + argv = (char **)caml_stat_alloc((size + 2) * sizeof(char *)); + allocated = (char **)caml_stat_alloc(size * sizeof(char *)); /* Copy -- argv[i] must be freed by stat_free */ { |