diff options
Diffstat (limited to 'gcc/ada/ali-util.adb')
| -rw-r--r-- | gcc/ada/ali-util.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/ali-util.adb b/gcc/ada/ali-util.adb index 6b1829d067f..cb2a8877a1d 100644 --- a/gcc/ada/ali-util.adb +++ b/gcc/ada/ali-util.adb @@ -8,7 +8,7 @@ -- -- -- $Revision$ -- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -32,6 +32,8 @@ with Opt; use Opt; with Osint; use Osint; with System.CRC32; +with System.Memory; +with System.Address_To_Access_Conversions; package body ALI.Util is @@ -91,11 +93,12 @@ package body ALI.Util is -- Free source file buffer procedure Free_Source is - procedure free (Arg : Source_Buffer_Ptr); - pragma Import (C, free, "free"); + + package SB is + new System.Address_To_Access_Conversions (Big_Source_Buffer); begin - free (Src); + System.Memory.Free (SB.To_Address (SB.Object_Pointer (Src))); end Free_Source; -- Start of processing for Get_File_Checksum |