OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

Compare Revisions

  • This comparison shows the changes necessary to convert path
    /openrisc/tags/gnu-src/gcc-4.5.1/gcc-4.5.1-or32-1.0rc1/gcc/testsuite/gcc.target/cris/torture
    from Rev 316 to Rev 338
    Reverse comparison

Rev 316 → Rev 338

/pr24750-2.c
0,0 → 1,20
/* As the invalid insn in this test got as far as to the target output
code and was "near enough" to output invalid assembly-code, we need
to pass it through the assembler as well.
{ dg-do assemble } */
 
int
f (short *a, char *y)
{
__asm__ ("" : : :
#ifndef __PIC__
"r0",
#endif
"r1", "r2", "r3", "r4", "r5", "r6", "r7",
/* Register R8 is frame-pointer, and we don't have a means
to not clobber it for the test-runs that don't eliminate
it. But that's ok; we have enough general-register
pressure to repeat the bug without that. */
"r9", "r10", "r11", "r12", "r13");
return y[*a];
}
pr24750-2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: no-pro-epi-1.c =================================================================== --- no-pro-epi-1.c (nonexistent) +++ no-pro-epi-1.c (revision 338) @@ -0,0 +1,4 @@ +/* { dg-options -mno-prologue-epilogue } */ +void f (void) +{ +}
no-pro-epi-1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: pr34773.c =================================================================== --- pr34773.c (nonexistent) +++ pr34773.c (revision 338) @@ -0,0 +1,74 @@ +/* { dg-do run } */ +union double_union +{ + double d; + int i[2]; +}; +void _dtoa_r (double) __attribute__ ((__noinline__)); +void _vfprintf_r (double) __attribute__ ((__noinline__)); +void +__sprint_r(int); +void +_vfprintf_r(double da) +{ + double ffp = da; + double value = ffp; + union double_union tmp; + + tmp.d = value; + + if ((tmp.i[1]) & ((unsigned)0x80000000L)) { + value = -value; + } + + _dtoa_r (value); + + if (ffp != 0) + __sprint_r(value == 0); + __asm__ (""); +} + + +double dd = -.012; +double ff = .012; + +void exit (int) __attribute__ ((__noreturn__)); +void abort (void) __attribute__ ((__noreturn__)); +void *memset(void *s, int c, __SIZE_TYPE__ n); +void _dtoa_r (double d) +{ + if (d != ff) + abort (); + __asm__ (""); +} + +void __sprint_r (int i) +{ + if (i != 0) + abort (); + __asm__ (""); +} + +int clearstack (void) __attribute__ ((__noinline__)); +int clearstack (void) +{ + char doodle[128]; + memset (doodle, 0, sizeof doodle); + __asm__ volatile ("" : : "g" (doodle) : "memory"); + return doodle[127]; +} + +void doit (void) __attribute__ ((__noinline__)); +void doit (void) +{ + _vfprintf_r (dd); + _vfprintf_r (ff); + __asm__ (""); +} + +int main(void) +{ + clearstack (); + doit (); + exit (0); +}
pr34773.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: cris-torture.exp =================================================================== --- cris-torture.exp (nonexistent) +++ cris-torture.exp (revision 338) @@ -0,0 +1,41 @@ +# Copyright (C) 2005, 2007 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with GCC; see the file COPYING3. If not see +# . + +# GCC testsuite that uses the `gcc-dg.exp' driver, looping over +# optimization options. + +# Exit immediately if this isn't a CRIS target. +if { ![istarget cris-*-*] && ![istarget crisv32-*-*] } then { + return +} + +# Load support procs. +load_lib gcc-dg.exp + +# If a testcase doesn't have special options, use these. +global DEFAULT_CFLAGS +if ![info exists DEFAULT_CFLAGS] then { + set DEFAULT_CFLAGS " -ansi -pedantic-errors" +} + +# Initialize `dg'. +dg-init + +# Main loop. +gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] $DEFAULT_CFLAGS + +# All done. +dg-finish

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.