Skip to content

Commit

Permalink
Ensure we use a full path with the absolute-path define
Browse files Browse the repository at this point in the history
  • Loading branch information
Aidan63 committed Sep 9, 2024
1 parent 960b81f commit e94483e
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/generators/gencpp.ml
Original file line number Diff line number Diff line change
Expand Up @@ -1321,7 +1321,7 @@ exception PathFound of string;;


let strip_file ctx file = (match Common.defined ctx Common.Define.AbsolutePath with
| true -> file
| true -> Path.get_full_path file
| false -> ctx.class_paths#relative_path file)
;;

Expand All @@ -1335,7 +1335,7 @@ let with_debug ctx metadata run =

let hx_stack_push ctx output clazz func_name pos gc_stack =
if ctx.ctx_debug_level > 0 then begin
let stripped_file = strip_file ctx.ctx_common (Path.get_real_path pos.pfile) in
let stripped_file = strip_file ctx.ctx_common pos.pfile in
let esc_file = (StringHelper.s_escape stripped_file) in
ctx.ctx_file_info := PMap.add stripped_file pos.pfile !(ctx.ctx_file_info);
let full_name = clazz ^ "." ^ func_name ^ (
Expand Down

0 comments on commit e94483e

Please sign in to comment.