This is the mail archive of the mailing list for the GCC project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Patch, Ada] pragma Discard_Names for Restriction_Id


It is written in

> so we can do the instantiation under control of Discard_Names to
remove the tables.

But, The "pragma Discard_Names;" in doesn't work as
intended. String images of Restriction_Id are included in my binary.
This configuration pragma seems not to work well if it's not at the head
of the file.

I tested this patch on i686-pc-mingw32 with --disable-bootstrap.
(I cannot build trunk without --disable-bootstrap on mingw.)

Ok for mainline?

Index: gcc/ada/
--- gcc/ada/	(revision 118692)
+++ gcc/ada/	(working copy)
@@ -40,11 +40,12 @@
 --  with names discarded, so that we do not have image tables for the
 --  large restriction enumeration types at run time.

+pragma Discard_Names;
 with System.Rident;

 package System.Restrictions is
    pragma Preelaborate;
-   pragma Discard_Names;
    package Rident is new System.Rident;

    Run_Time_Restrictions : Rident.Restrictions_Info;

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]