diff options
Diffstat (limited to 'gcc/ada/5wmemory.adb')
| -rw-r--r-- | gcc/ada/5wmemory.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/5wmemory.adb b/gcc/ada/5wmemory.adb index 77e42e5..76ce6f0 100644 --- a/gcc/ada/5wmemory.adb +++ b/gcc/ada/5wmemory.adb @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.2 $ +-- $Revision$ -- -- -- Copyright (C) 2001 Free Software Foundation, Inc. -- -- -- @@ -214,7 +214,7 @@ package body System.Memory is Result := c_realloc (Ptr, Actual_Size); if Result /= System.Null_Address then - Available_Memory := Available_Memory + Old_Size - msize (Ptr); + Available_Memory := Available_Memory + Old_Size - msize (Result); end if; Unlock_Task.all; |