Re: Pragma inline results in duplicate strings?

[Samuel Tardieu <sam@ada.eu.org>]

>>>>> "Dale" == Dale Stanbrough <dale@goanna.cs.rmit.edu.au> writes:

Dale> Is the string duplicated for each inline call?

Not with GNAT.

See the following piece of code:

   with Ada.Text_IO; use Ada.Text_IO;

   procedure T is

      procedure Break;
      pragma Inline (Break);

      procedure Break is
      begin
         Put_Line ("<br>");
      end Break;

   begin
      Break;
      Break;
   end T;

It generates the following on a i386 with GNAT:

           .file   "t.adb"
           .version        "01.01"
   gcc2_compiled.:
   .section        .rodata
   .LC0:
           .string "<br>"
           .align 4
   .LC1:
           .long 1
           .long 4
 
(the .text section has been omitted)

So it appears that GNAT is sharing strings literal, at least for
several instances of the same string in the same package. I haven't
tested how it behaves with external calls to Break.

  Sam
-- 
Samuel Tardieu -- sam@ada.eu.org