Skip to content

Commit 7f84b27

Browse files
committed
Fix autotune compilation on OCaml < 4.13 (PR #772)
1 parent f91c892 commit 7f84b27

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/autoTune.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -83,7 +83,7 @@ let rec setCongruenceRecursive fd depth neigbourFunction =
8383
setCongruenceRecursive (Cilfacade.find_varinfo_fundec vinfo) (depth -1) neigbourFunction
8484
)
8585
(FunctionSet.filter (*for extern and builtin functions there is no function definition in CIL*)
86-
(fun x -> not (isExtern x.vstorage || String.starts_with ~prefix:"__builtin" x.vname))
86+
(fun x -> not (isExtern x.vstorage || BatString.starts_with x.vname "__builtin"))
8787
(neigbourFunction fd.svar)
8888
)
8989
;

0 commit comments

Comments
 (0)