diff options
| -rw-r--r-- | src/synth/synth-memtype.adb | 7 | ||||
| -rw-r--r-- | src/synth/synth-memtype.ads | 9 |
2 files changed, 9 insertions, 7 deletions
diff --git a/src/synth/synth-memtype.adb b/src/synth/synth-memtype.adb index 46f1c308e..7c8943abd 100644 --- a/src/synth/synth-memtype.adb +++ b/src/synth/synth-memtype.adb @@ -18,16 +18,9 @@ with System; use System; with System.Storage_Elements; -with Ada.Unchecked_Conversion; package body Synth.Memtype is - -- For conversions use Address to avoidcompiler warnings about alignment. - function To_Address is new Ada.Unchecked_Conversion - (Memory_Ptr, Address); - function To_Memory_Ptr is new Ada.Unchecked_Conversion - (Address, Memory_Ptr); - function "+" (Base : Memory_Ptr; Off : Size_Type) return Memory_Ptr is use System.Storage_Elements; diff --git a/src/synth/synth-memtype.ads b/src/synth/synth-memtype.ads index 5fc096e68..ee6f61c38 100644 --- a/src/synth/synth-memtype.ads +++ b/src/synth/synth-memtype.ads @@ -16,6 +16,9 @@ -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <gnu.org/licenses>. +with System; +with Ada.Unchecked_Conversion; + with Types; use Types; with Grt.Types; use Grt.Types; @@ -28,6 +31,12 @@ package Synth.Memtype is type Memory_Ptr is access all Memory_Array (Size_Type); pragma No_Strict_Aliasing (Memory_Ptr); + -- For conversions use Address to avoid compiler warnings about alignment. + function To_Address is new Ada.Unchecked_Conversion + (Memory_Ptr, System.Address); + function To_Memory_Ptr is new Ada.Unchecked_Conversion + (System.Address, Memory_Ptr); + -- Low-level functions. function "+" (Base : Memory_Ptr; Off : Size_Type) return Memory_Ptr; |