diff options
-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 () = () - |