public inbox for gcc-prs@sourceware.org
help / color / mirror / Atom feed
From: berndtrog@yahoo.com
To: gcc-gnats@gcc.gnu.org
Subject: ada/10670: gcc ignors 'pragma Machine_Attribute' directive
Date: Wed, 07 May 2003 20:06:00 -0000	[thread overview]
Message-ID: <20030507200148.3250.qmail@sources.redhat.com> (raw)


>Number:         10670
>Category:       ada
>Synopsis:       gcc ignors 'pragma Machine_Attribute' directive
>Confidential:   no
>Severity:       critical
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Wed May 07 20:06:00 UTC 2003
>Closed-Date:
>Last-Modified:
>Originator:     Bernd Trog
>Release:        gcc version 3.3 20030127 (prerelease)
>Organization:
>Environment:
Linux, i386
Reading specs from /usr/local/gcc330-20030127/lib/gcc-lib/i686-pc-linux-gnu/3.3/specs
Configured with: ../gcc-20030127/configure --prefix=/usr/local/gcc330-20030127 --enable-languages=c,c++,ada
Thread model: posix
gcc version 3.3 20030127 (prerelease)
>Description:
gcc ignors 'pragma Machine_Attribute' directive:

$gnatmake bootloader.adb 
gcc -c bootloader.adb
bootloader.adb: In function `bootloader':
bootloader.adb:7: warning: `section (".bootloader")' attribute directive ignored
gnatbind -x bootloader.ali
gnatlink bootloader.ali

$objdump -h bootloader.o

bootloader.o:     file format elf32-i386

Sections:
Idx Name          Size      VMA       LMA       File off  Algn
  0 .text         0000003b  00000000  00000000  00000034  2**2
                  CONTENTS, ALLOC, LOAD, RELOC, READONLY, CODE
  1 .data         00000000  00000000  00000000  00000070  2**2
                  CONTENTS, ALLOC, LOAD, DATA
  2 .bss          00000000  00000000  00000000  00000070  2**2
                  ALLOC
  3 .rodata       0000000c  00000000  00000000  00000070  2**2
                  CONTENTS, ALLOC, LOAD, READONLY, DATA
  4 .comment      00000026  00000000  00000000  0000007c  2**0
                  CONTENTS, READONLY

No .bootloader section!
>How-To-Repeat:
with Ada.Text_Io;

procedure bootloader is
   procedure Boot;

   pragma Machine_Attribute (
                             Entity => Boot,
                             Attribute_Name => "section ("".bootloader"")"
                            );

   procedure Boot
   is
   begin
      Ada.Text_Io.Put_line("Boot");
   end;


begin
   Ada.Text_Io.Put_line("Test");
end;
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:


             reply	other threads:[~2003-05-07 20:06 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-05-07 20:06 berndtrog [this message]
2003-05-12  7:16 Dara Hazeghi

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20030507200148.3250.qmail@sources.redhat.com \
    --to=berndtrog@yahoo.com \
    --cc=gcc-gnats@gcc.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).