unikernel/duniverse/dune_/test/blackbox-tests/test-cases/fdo.t/src-with-profile/dune

@@ -0,0 +1 @@
+(executable (name foo))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/fdo.t/src-with-profile/foo.exe.fdo-profile

@@ -0,0 +1,4 @@
+((addr2loc ())
+ (name2id ())
+ (functions ())
+ (execounts ()) (crcs ((Dune__exe__Foo aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa))))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/fdo.t/src-with-profile/foo.exe.linker-script-hot

@@ -0,0 +1 @@
+

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/fdo.t/src-with-profile/foo.ml

@@ -0,0 +1,17 @@
+print_string "<root>"
+;;
+
+let sep = Filename.dir_sep in
+assert ((String.length sep) = 1);
+let l = Sys.executable_name
+        |> String.split_on_char sep.[0] in
+(* print the last 4 elements if exist *)
+let len = (List.length l) in
+List.iteri
+  (fun i dir ->
+     if ((len - i) < 5) then Printf.printf "/%s" dir)
+  l
+;;
+
+print_endline ": hello from fdo!"
+;;