🚀 go-pugleaf

In article <wgeQkLS00WB9ABYUkt@andrew.cmu.edu> ks37+@andrew.cmu.edu (Kurt Jurgen Schaefer) writes:
+I'm compiling code on on a sun3, and I run it on a 68040 board.  It
+seems to work for the most part, but casting floats to ints seems to be
+crashing the '040.  Here's the offending code:

--- the following is 'real' code.... host sun4, cross to m68k. with gcc-2.4.5.


8> more t.c		# list of code...

double yyDouble;

retInt()
{
        int myInt;

        myInt = (int)yyDouble;

        return( myInt );
}


9> gcc-m68k -S -O t.c 	# compile to asm code with no options...

10> more t.s

#NO_APP
gcc2_compiled.:
___gnu_compiled_c:
.text
        .even
.globl _retInt
_retInt:
        link a6,#0
        fintrzd _yyDouble,fp0
        fmovel fp0,d0
        unlk a6
        rts
.comm _yyDouble,8

11> gcc-m68k -m68040 -S -O t.c	# compile to asm with -m68040 option...

12> more t.s			# note the change of float ops here.

#NO_APP
gcc2_compiled.:
___gnu_compiled_c:
.text
        .even
.globl _retInt
_retInt:
        link a6,#0
        movel d2,sp@-
        fdmoved _yyDouble,fp0 	# appears to do the int conversion
				# by magic.
        fmoveml fpcr,d1
        moveq #16,d2
        orl d1,d2
        andw #-33,d2
        fmoveml d2,fpcr
        fmovel fp0,d0
        fmoveml d1,fpcr
        movel a6@(-4),d2
        unlk a6
        rts
.comm _yyDouble,8

-- 

John Clark
wa137@sdcc12.ucsd.edu