pr " char **%s;\n" n;
| Bool n ->
pr " zend_bool %s;\n" n
- | Int n | Int64 n ->
+ | Int n | Int64 n | Pointer (_, n) ->
pr " long %s;\n" n
) args;
| OptString n -> "s!"
| StringList n | DeviceList n -> "a"
| Bool n -> "b"
- | Int n | Int64 n -> "l"
+ | Int n | Int64 n | Pointer (_, n) -> "l"
) args
) in
pr ", &z_%s" n
| Bool n ->
pr ", &%s" n
- | Int n | Int64 n ->
+ | Int n | Int64 n | Pointer (_, n) ->
pr ", &%s" n
) args;
List.iter (
pr " %s[c] = NULL;\n" n;
pr " }\n";
pr "\n"
- | Bool n | Int n | Int64 n -> ()
+ | Bool _ | Int _ | Int64 _ | Pointer _ -> ()
) args;
(* Optional arguments. *)
pr " efree (%s);\n" n;
pr " }\n";
pr "\n"
- | Bool n | Int n | Int64 n -> ()
+ | Bool _ | Int _ | Int64 _ | Pointer _ -> ()
) args;
(* Check for errors. *)