diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 16:32:13 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-04-27 16:32:13 +0100 |
commit | ab617cf8e6e60e8de3eb8de220f71dd05c18209f (patch) | |
tree | 1e2da8e3edbf48d02f536a21f2cafb6167045c51 /verilog/extractionMachdep.v | |
parent | f0867a37e28a1f3670362e7935f9ef30988ddb92 (diff) | |
download | compcert-master.tar.gz compcert-master.zip |
Diffstat (limited to 'verilog/extractionMachdep.v')
-rw-r--r-- | verilog/extractionMachdep.v | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/verilog/extractionMachdep.v b/verilog/extractionMachdep.v index a29553e8..26a3f0a7 100644 --- a/verilog/extractionMachdep.v +++ b/verilog/extractionMachdep.v @@ -6,24 +6,29 @@ (* *) (* Copyright Institut National de Recherche en Informatique et en *) (* Automatique. All rights reserved. This file is distributed *) -(* under the terms of the GNU General Public License as published by *) -(* the Free Software Foundation, either version 2 of the License, or *) -(* (at your option) any later version. This file is also distributed *) -(* under the terms of the INRIA Non-Commercial License Agreement. *) +(* under the terms of the GNU Lesser General Public License as *) +(* published by the Free Software Foundation, either version 2.1 of *) +(* the License, or (at your option) any later version. *) +(* This file is also distributed under the terms of the *) +(* INRIA Non-Commercial License Agreement. *) (* *) (* *********************************************************************) (* Additional extraction directives specific to the x86-64 port *) -Require SelectOp ConstpropOp. +Require Archi SelectOp. -(* SelectOp *) - -Extract Constant SelectOp.symbol_is_external => - "fun id -> Configuration.system = ""macosx"" && C2C.atom_is_extern id". +(* Archi *) -(* ConstpropOp *) +Extract Constant Archi.win64 => + "match Configuration.system with + | ""cygwin"" when ptr64 -> true + | _ -> false". -Extract Constant ConstpropOp.symbol_is_external => - "fun id -> Configuration.system = ""macosx"" && C2C.atom_is_extern id". +(* SelectOp *) +Extract Constant SelectOp.symbol_is_external => + "match Configuration.system with + | ""macos"" -> C2C.atom_is_extern + | ""cygwin"" when Archi.ptr64 -> C2C.atom_is_extern + | _ -> (fun _ -> false)". |