mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

mllib: _exit should return 'a

Browse Source 
Fixes commit 0dfa96c043.
This commit is contained in:
Richard W.M. Jones
2016-08-04 09:25:55 +01:00
parent bdfce1995b
commit 9fc0418db5
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
mllib/exit.ml
View File

@@ -16,4 +16,4 @@
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
external _exit : int -> unit = "guestfs_int_mllib_exit" "noalloc"
external _exit : int -> 'a = "guestfs_int_mllib_exit" "noalloc"

2
mllib/exit.mli
View File

@@ -16,5 +16,5 @@
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*)
val _exit : int -> unit
val _exit : int -> 'a
(** Call _exit directly, ie. do not run OCaml atexit handlers. *)