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]

Re: fortran/3924: g77 generates code which is rejected by GAS if COFF debugging info is requested

On 20 May 2002 at 14:19, 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


Fortran source of test example:

	subroutine foo
	common /bar/ a,b

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 --
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_
	.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
	.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"

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