diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-02-27 09:23:58 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-02-27 09:23:58 +0000 |
| commit | 74b723e69c3713c8acc39b547a9daa9c51d05df0 (patch) | |
| tree | 6c0a1e69fb487ae924d67c02745a927e3ffd3d60 | |
| parent | 2570ddd61b1c98b62c8d97fce862654535696844 (diff) | |
| download | compcert-74b723e69c3713c8acc39b547a9daa9c51d05df0.tar.gz compcert-74b723e69c3713c8acc39b547a9daa9c51d05df0.zip | |
Make CPragmas common to all ports.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1828 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
| -rw-r--r-- | arm/linux/CPragmas.ml | 20 | ||||
| -rw-r--r-- | cfrontend/CPragmas.ml (renamed from powerpc/eabi/CPragmas.ml) | 4 | ||||
| -rw-r--r-- | ia32/standard/CPragmas.ml | 28 | ||||
| -rw-r--r-- | powerpc/macosx/CPragmas.ml | 21 |
4 files changed, 2 insertions, 71 deletions
diff --git a/arm/linux/CPragmas.ml b/arm/linux/CPragmas.ml deleted file mode 100644 index 1602f9f1..00000000 --- a/arm/linux/CPragmas.ml +++ /dev/null @@ -1,20 +0,0 @@ -(* *********************************************************************) -(* *) -(* The Compcert verified compiler *) -(* *) -(* Xavier Leroy, INRIA Paris-Rocquencourt *) -(* *) -(* 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. *) -(* *) -(* *********************************************************************) - -(* Platform-dependent handling of pragmas *) - -(* No pragmas supported on ARM/Linux *) - -let initialize () = () diff --git a/powerpc/eabi/CPragmas.ml b/cfrontend/CPragmas.ml index 817584ae..2a869770 100644 --- a/powerpc/eabi/CPragmas.ml +++ b/cfrontend/CPragmas.ml @@ -13,7 +13,7 @@ (* *) (* *********************************************************************) -(* Platform-dependent handling of pragmas *) +(* Handling of pragmas *) open Printf open Camlcoq @@ -59,7 +59,7 @@ let re_pragma_section = Str.regexp( ^ "\\([A-Za-z_][A-Za-z_0-9]*\\)[ \t]+" (* class_name *) ^ "\\(\"[^\"]*\"\\)?[ \t]*" (* istring *) ^ "\\(\"[^\"]*\"\\)?[ \t]*" (* ustring *) -^ "\\(standard\\|near-absolute\\|far-absolute\\|near-data\\|far-data\\|near-code\\|far-code\\)?[ \t]*" (* addressing mode *) +^ "\\([a-zA-Z-]+\\)?[ \t]*" (* addressing mode *) ^ "\\([RWXON]*\\)" (* access mode *) ) diff --git a/ia32/standard/CPragmas.ml b/ia32/standard/CPragmas.ml deleted file mode 100644 index f48064ce..00000000 --- a/ia32/standard/CPragmas.ml +++ /dev/null @@ -1,28 +0,0 @@ -(* *********************************************************************) -(* *) -(* The Compcert verified compiler *) -(* *) -(* Xavier Leroy, INRIA Paris-Rocquencourt *) -(* *) -(* 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. *) -(* *) -(* *********************************************************************) - -(* Platform-dependent handling of pragmas *) - -(* No pragmas supported on PowerPC/MacOS *) - -let initialize () = () - -(* PowerPC-specific: say if an atom is in a small data area *) - -let atom_is_small_data a ofs = false - -(* PowerPC-specific: determine section to use for a particular symbol *) - -let section_for_atom a init = None diff --git a/powerpc/macosx/CPragmas.ml b/powerpc/macosx/CPragmas.ml deleted file mode 100644 index ede2f38c..00000000 --- a/powerpc/macosx/CPragmas.ml +++ /dev/null @@ -1,21 +0,0 @@ -(* *********************************************************************) -(* *) -(* The Compcert verified compiler *) -(* *) -(* Xavier Leroy, INRIA Paris-Rocquencourt *) -(* *) -(* 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. *) -(* *) -(* *********************************************************************) - -(* Platform-dependent handling of pragmas *) - -(* No pragmas supported on PowerPC/MacOS *) - -let initialize () = () - |