diff options
Diffstat (limited to 'gcc/ada/sinput.ads')
| -rw-r--r-- | gcc/ada/sinput.ads | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 13e0c322018..307b8d296c6 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -6,9 +6,9 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.2 $ +-- $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- -- @@ -489,6 +489,7 @@ package Sinput is -- is why the somewhat cryptic use of brackets is acceptable). procedure wl (P : Source_Ptr); + pragma Export (Ada, wl); -- Equivalent to Write_Location (P); Write_Eol; for calls from GDB procedure Write_Time_Stamp (S : Source_File_Index); @@ -631,4 +632,9 @@ private -- present, also increments logical lines table size by one, and -- sets new entry. + procedure Trim_Lines_Table (S : Source_File_Index); + -- Set lines table size for entry S in the source file table to + -- correspond to the current value of Num_Source_Lines, releasing + -- any unused storage. This is used by Sinput.L and Sinput.D. + end Sinput; |