Skip to content

Commit a4bec55

Browse files
committed
make the C compiler happy when a job is not available
Ignore-this: 766ca5e9b5307dc42533daf6dd8ee2d8 darcs-hash:20120719112748-c41ad-f4096368a355c432b73b4869656b8b02f627b1f8
1 parent f9cc903 commit a4bec55

File tree

1 file changed

+2
-0
lines changed

1 file changed

+2
-0
lines changed

src/unix/gen_stubs.ml

+2
Original file line numberDiff line numberDiff line change
@@ -702,12 +702,14 @@ module MakeGen(Gen64 : Generator)(Params : Params) = struct
702702
pr "CAMLprim value lwt_unix_%s_job()\n" job.name;
703703
pr "{\n";
704704
pr " lwt_unix_not_available(%S);\n" job.name;
705+
pr " return Val_unit;\n";
705706
pr "}\n";
706707
pr "\n";
707708
if map_in_64 || map_out_64 || map_result_64 then begin
708709
pr "CAMLprim value lwt_unix_%s_64_job()\n" job.name;
709710
pr "{\n";
710711
pr " lwt_unix_not_available(%S);\n" job.name;
712+
pr " return Val_unit;\n";
711713
pr "}\n";
712714
pr "\n";
713715
end;

0 commit comments

Comments
 (0)