diff options
Diffstat (limited to 'gcc/ada/5amastop.adb')
| -rw-r--r-- | gcc/ada/5amastop.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/5amastop.adb b/gcc/ada/5amastop.adb index 5eac869a052..adbb2d27cec 100644 --- a/gcc/ada/5amastop.adb +++ b/gcc/ada/5amastop.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Version for Alpha/Dec Unix) -- -- -- --- $Revision: 1.5 $ +-- $Revision$ -- -- -- Copyright (C) 1999-2001 Ada Core Technologies, Inc. -- -- -- @@ -87,11 +87,8 @@ package body System.Machine_State_Operations is ------------------------ procedure Free_Machine_State (M : in out Machine_State) is - procedure Gnat_Free (M : in Machine_State); - pragma Import (C, Gnat_Free, "__gnat_free"); - begin - Gnat_Free (M); + Memory.Free (Address (M)); M := Machine_State (Null_Address); end Free_Machine_State; |