Skip to content
Browse files

[feature] OPA_VERSION,envvar,compiler: cleaning all occurences of OPA…

…_VERSION
  • Loading branch information...
1 parent d292986 commit 5050d5752123e19ceb666e92c09b34c0a8636aec @OpaOnWindowsNow OpaOnWindowsNow committed
Showing with 0 additions and 5 deletions.
  1. +0 −1 opa/checkopacapi.ml
  2. +0 −3 opa/s3Passes.ml
  3. +0 −1 opalang/standaloneparser.ml
View
1 opa/checkopacapi.ml
@@ -135,7 +135,6 @@ let parse () =
pplib specification
*)
let pplib_spec = [
- "OPA_VERSION", "S3" ;
"OPA_CPS", "" ;
"OPA_BADOP", "1" ;
]
View
3 opa/s3Passes.ml
@@ -349,7 +349,6 @@ let register_fields options =
let pass_Welcome =
PassHandler.make_pass
(fun {PH.env=()} ->
- Unix.putenv "OPA_VERSION" "S3"; (* this is a hack, probably deprecated (FIXME:remove) *)
OpaEnv.Options.parse_options ();
let options = OpaEnv.Options.get_options () in
OManager.verbose "OPA version %s" BuildInfos.opa_version_name ;
@@ -408,8 +407,6 @@ let pass_PreProcess =
let ppenv =
Pprocess.fill_with_sysenv Pprocess.empty_env in
let ppenv =
- Pprocess.add_env "OPA_VERSION" "S3" ppenv in
- let ppenv =
OpaEnv.Options.to_ppenv e.PH.options ppenv in
let ppopt = Pprocess.default_options ppenv in
let process = (Pprocess.process Pplang.opa_description ppopt) in
View
1 opalang/standaloneparser.ml
@@ -38,7 +38,6 @@ let () =
let code = ref 0 in
let printer = if !show_pos then OpaPrint.string_and_pos else OpaPrint.string in
let ppenv = Pprocess.fill_with_sysenv Pprocess.empty_env in
- let ppenv = Pprocess.add_env "OPA_VERSION" "S3" ppenv in
let ppopt = Pprocess.default_options ppenv in
let process = (Pprocess.process Pplang.opa_description ppopt) in
List.iter

0 comments on commit 5050d57

Please sign in to comment.
Something went wrong with that request. Please try again.