[multiple changes]

[gcc.git] / gcc / ada / 5vinmaop.adb

diff --git a/gcc/ada/5vinmaop.adb b/gcc/ada/5vinmaop.adb
index 3d770f2bed9ee01325013e049e7ae88a7813eb34..42207a1ce100289e4c5abb0ea0c3a3980bc5cb1b 100644 (file)
--- a/gcc/ada/5vinmaop.adb
+++ b/gcc/ada/5vinmaop.adb
@@ -114,7 +114,7 @@ package body System.Interrupt_Management.Operations is
    --------------------
 
    function To_unsigned_long is new
-     Unchecked_Conversion (System.Address, unsigned_long);
+     Unchecked_Conversion (System.Short_Address, unsigned_long);
 
    function Interrupt_Wait (Mask : access Interrupt_Mask)
      return Interrupt_ID