From: pavenis AT lanet DOT lv
To: djgpp-workers AT delorie DOT com, gcc-bugs AT gcc DOT gnu DOT org, gcc-prs AT gcc DOT gnu DOT org,
   nobody AT gcc DOT gnu DOT org, pavenis AT latnet DOT lv, toon AT gcc DOT gnu DOT org
Date: Mon, 20 May 2002 17:58:28 +0300
MIME-Version: 1.0
Subject: Re: fortran/3924: g77 generates code which is rejected by GAS if COFF debugging info is requested
Message-ID: <3CE93944.9583.1336CFC@localhost>
In-reply-to: <20020520141929.22308.qmail@sources.redhat.com>
X-mailer: Pegasus Mail for Windows (v4.01)
Content-type: text/plain; charset=US-ASCII
Content-transfer-encoding: 7BIT
Content-description: Mail message body
Reply-To: djgpp-workers AT delorie DOT com
Errors-To: nobody AT delorie DOT com
X-Mailing-List: djgpp-workers AT delorie DOT com
X-Unsubscribes-To: listserv AT delorie DOT com
Precedence: bulk

On 20 May 2002 at 14:19, toon AT gcc DOT gnu DOT org DOT gcc-prs@gcc. wrote:

> Synopsis: g77 generates code which is rejected by GAS if COFF debugging info is requested
> 
> Responsible-Changed-From-To: unassigned->toon
> Responsible-Changed-By: toon
> Responsible-Changed-When: Mon May 20 07:19:28 2002
> Responsible-Changed-Why:
>     Fortran maintainer.
> State-Changed-From-To: open->feedback
> State-Changed-By: toon
> State-Changed-When: Mon May 20 07:19:28 2002
> State-Changed-Why:
>     Andris, I just saw that you were able to build gcc-3.1

There really is no problem building it and I did it not so seldom, only the 
messages to the list were not sent ...

>     for msdosdjgpp - Could you check if this still is a problem ?

Yes. It's related generating COFF debugging info for COMMON blocks.
Test example included. Perhaps it could be tested also on some other
system which supports COFF debugging info

Andris

Fortran source of test example:

	subroutine foo
	common /bar/ a,b
	end

GCC output from: g77 -c -save-temps -gcoff foo.f

Reading specs from c:/djgpp/lib/gcc-lib/djgpp/3.1/specs
Configured with: ../configure i586-pc-msdosdjgpp --prefix=/dev/env/DJDIR --
disable-nls
Thread model: single
gcc version 3.1
 c:/djgpp/lib/gcc-lib/djgpp/3.1/f771.exe foo.f -quiet -dumpbase foo.f -gcoff -
version -o foo.s
GNU F77 version 3.1 (djgpp)
	compiled by GNU C version 3.1.
 c:/djgpp/bin/as.exe --traditional-format -o foo.o foo.s
foo.s: Assembler messages:
foo.s:9: Warning: rest of line ignored; first ignored character is `+'


Assembler output

	.file	"foo.f"
	.section .text
	.p2align 1
	.def	_foo_;	.val	_foo_;	.scl	2;	.type	041;	.endef
.globl _foo_
_foo_:
	.def	.bf;	.val	.;	.scl	101;	.line	1;	.endef
	.def	_a;	.val	_bar_;	.scl	3;	.type	06;	.endef
	.def	_b;	.val	_bar_+4;	.scl	3;	.type	06;	.endef
	pushl	%ebp
	movl	%esp, %ebp
	.ln	3
	popl	%ebp
	ret
	.def	.ef;	.val	.;	.scl	101;	.line	3;	.endef
	.def	_foo_;	.val	.;	.scl	-1;	.endef
.comm _bar_,16
	.def	_bar_;	.val	_bar_;	.scl	2;	.dim	8;	.size	8;	.type	062;	.endef
	.ident	"GCC: (GNU) 3.1"