From a1e2130ca1fa141e3dcb1ba4913a8f46d33ab9c1 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 8 Apr 2008 08:48:30 +0200 Subject: back_end.adb: Remove Big_String_Ptr declarations (now in Types) 2008-04-08 Robert Dewar * back_end.adb: Remove Big_String_Ptr declarations (now in Types) * errout.adb: Remove Big_String_Ptr declarations (now in Types) Change name Is_Style_Msg to Is_Style_Or_Info_Msg * fmap.adb: Remove Big_String declarations (now in Types) (No_Mapping_File): New Boolean global variable (Initialize): When mapping file cannot be read, set No_Mapping_File to False. (Update_Mapping_File): Do nothing if No_Mapping_File is True. If the tables were empty before adding entries, open the mapping file with Truncate = True, instead of delete/re-create. * fname-sf.adb: Remove Big_String declarations (now in Types) * s-strcom.adb, g-dyntab.ads, g-table.ads, s-carsi8.adb, s-stalib.ads, s-carun8.adb: Add zero size Storage_Size clauses for big pointer types * table.ads: Add for Table_Ptr'Storage_Size use 0 * types.ads: Add Big_String declarations Add Size_Clause of zero for big pointer types From-SVN: r134022 --- gcc/ada/table.ads | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/table.ads') diff --git a/gcc/ada/table.ads b/gcc/ada/table.ads index 983f7fd0e35..ff6926f145f 100644 --- a/gcc/ada/table.ads +++ b/gcc/ada/table.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, 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- -- @@ -117,6 +117,7 @@ package Table is -- safety is not compromised by this approach. type Table_Ptr is access all Big_Table_Type; + for Table_Ptr'Storage_Size use 0; -- The table is actually represented as a pointer to allow reallocation Table : aliased Table_Ptr := null; -- cgit v1.2.1