synth-memtype: export conversion functions

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;