diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-10-24 15:52:05 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-10-24 15:52:05 +0000 |
| commit | 2ec9928fc76e5ad22d4e10e35dfe14eced283119 (patch) | |
| tree | 1552b37589d537f41dce16e5408524a0decdabd6 | |
| parent | 84505b211b41b34b1d2a32b54ad14ccff77b1e6c (diff) | |
Erreur dans le proto de tgetstr (signale par Jerome).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1737 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/terminfo.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/byterun/terminfo.c b/byterun/terminfo.c index c6678d058..d74b2e59c 100644 --- a/byterun/terminfo.c +++ b/byterun/terminfo.c @@ -22,7 +22,7 @@ #ifdef HAS_TERMCAP extern int tgetent (char * buffer, char * name); -extern int tgetstr (char * id, char ** area); +extern char * tgetstr (char * id, char ** area); extern int tgetnum (char * id); extern int tputs (char * str, int count, int (*outchar)(int c)); @@ -37,8 +37,9 @@ value terminfo_getstr(value capa) /* ML */ { char buff[1024]; char * p = buff; - if (tgetstr(String_val(capa), &p) == 0) raise_not_found(); - return copy_string(buff); + char * s = tgetstr(String_val(capa), &p); + if (s == NULL) raise_not_found(); + return copy_string(s); } value terminfo_getnum(value capa) /* ML */ |