Path: utzoo!telly!attcan!dptcdc!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!NIWOT.UCAR.EDU!cruff
From: cruff@NIWOT.UCAR.EDU (Craig Ruff)
Newsgroups: gnu.gcc.bug
Subject: GCC 1.34 bug
Message-ID: <8903241625.AA08974@niwot.UCAR.EDU>
Date: 24 Mar 89 16:25:54 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 86

Version: 1.34

Input file: (t.c)
------------------
main() {
}
------------------


Command arguments:
	
	gcc -a t.c

Machine files:

	tm.h:	tm-sun3-nfp.h
	md:	m68k.md

Machine:
	Sun-3, SunOS 4.0.1

Description:
	Produces incorrect assembler opcode for call to the function
	block profiler '__bb_init_func' using the Sun assembler.
	Opcode produced, 'call', should be 'jsr'.


Compiler output:
-----------------
#NO_APP
gcc_compiled.:
.text
	.even
.globl _main
_main:
	link a6,#0
	tstl LPBX0
	bne LPI0
	pea LPBX0
	call ___bb_init_func
	addql #4,sp
LPI0:
L1:
	unlk a6
	rts
.data
	.even
LPBX0:
	.long 0
	.long LPBX1
	.long LPBX2
	.long 0
	.long 0
	.long LPBX3
LPBX1:
	.ascii "t.c\0"
LPBX2:
	.skip 0
.text
LPBX3:
	.long LPBX3
-----------------


Source fix context diff:
-----------------
*** tm-m68k.h	Fri Mar 24 09:21:18 1989
--- tm-m68k.h.old	Wed Mar  8 08:20:45 1989
***************
*** 632,638 ****
     basic block profiling info, if that has not already been done.  */
  
  #define FUNCTION_BLOCK_PROFILER(FILE, LABELNO)  \
!   fprintf (FILE, "\ttstl LPBX0\n\tbne LPI%d\n\tpea LPBX0\n\tjsr ___bb_init_func\n\taddql #4,sp\nLPI%d:\n",  \
  	   LABELNO, LABELNO);
  
  /* Output assembler code to FILE to increment the entry-count for
--- 632,638 ----
     basic block profiling info, if that has not already been done.  */
  
  #define FUNCTION_BLOCK_PROFILER(FILE, LABELNO)  \
!   fprintf (FILE, "\ttstl LPBX0\n\tbne LPI%d\n\tpea LPBX0\n\tcall ___bb_init_func\n\taddql #4,sp\nLPI%d:\n",  \
  	   LABELNO, LABELNO);
  
  /* Output assembler code to FILE to increment the entry-count for
-----------------