[clang] change CTrans_utils.Self.SelfClassException to use new CFrontend_config.ocaml_pos type instead of raw tuple

Summary: There's a new `ocaml_pos` type that the other clang frontend exceptions use, but Self.SelfClassException still used the raw tuple. Now, SelfClassException also uses this type.

Reviewed By: dulmarod

Differential Revision: D6900258

fbshipit-source-id: 94c7042
master
Varun Arora 7 years ago committed by Facebook Github Bot
parent 8053734563
commit 315db072ac

@ -39,6 +39,7 @@ exception IncorrectAssumption of exception_details
let incorrect_assumption position source_range ?ast_node fmt = let incorrect_assumption position source_range ?ast_node fmt =
F.kasprintf (fun msg -> raise (IncorrectAssumption {msg; position; source_range; ast_node})) fmt F.kasprintf (fun msg -> raise (IncorrectAssumption {msg; position; source_range; ast_node})) fmt
type translation_unit_context = {lang: clang_lang; source_file: SourceFile.t} type translation_unit_context = {lang: clang_lang; source_file: SourceFile.t}
(** Constants *) (** Constants *)

@ -584,7 +584,7 @@ let extract_stmt_from_singleton stmt_list warning_string =
module Self = struct module Self = struct
exception SelfClassException of exception SelfClassException of
{ class_name: Typ.Name.t { class_name: Typ.Name.t
; position: string * int * int * int ; position: CFrontend_config.ocaml_pos
; source_range: Clang_ast_t.source_range } ; source_range: Clang_ast_t.source_range }
let add_self_parameter_for_super_instance context procname loc mei = let add_self_parameter_for_super_instance context procname loc mei =

@ -158,7 +158,7 @@ end
module Self : sig module Self : sig
exception SelfClassException of exception SelfClassException of
{ class_name: Typ.Name.t { class_name: Typ.Name.t
; position: string * int * int * int ; position: CFrontend_config.ocaml_pos
; source_range: Clang_ast_t.source_range } ; source_range: Clang_ast_t.source_range }
val add_self_parameter_for_super_instance : val add_self_parameter_for_super_instance :

Loading…
Cancel
Save