Subversion Repositories openrisc

/Makefile.in

/printf.c

printf.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: configure.in =================================================================== --- configure.in (nonexistent) +++ configure.in (revision 345) @@ -0,0 +1,54 @@ +# This file is a shell script fragment that supplies the information +# necessary to tailor a template configure script into the configure +# script appropriate for this directory. For more information, check +# any existing configure script. + +srctrigger=io.c +srcname="libgloss testsuite" +target_dependent=true + +# per-host: + +# This is basically a hack so that we don't have to replicate the same +# defines in all the Makefiles. We put a standard set of definitions +# in host/any, and use them everywhere except DOS, which is braindead. + +host_makefile_frag=../../config/default.mh +case "${host}" in + i[3456]86-*-go32) + host_makefile_frag=../../config/dos.mh + ;; +esac + +# per-target: +case "${target}" in + m68*-unknown-*) + target_makefile_frag=../config/m68k.mt + ;; + hppa*-*-pro*) + target_makefile_frag=../config/hppa.mt + ;; + sparclite-*-*) + target_makefile_frag=../config/sparcl.mt + ;; + mips*-*-*) + target_makefile_frag=../config/mips.mt + ;; +esac + +# post-target: + +case ${srcdir} in + .) + ;; + *) + grep "source ${srcdir}/.gdbinit" .gdbinit >/dev/null 2>/dev/null || \ + echo "source ${srcdir}/.gdbinit" >> .gdbinit +esac + +objroot=`pwd | sed -e 's@/[^/]*$@@' -e 's@/[^/]*$@@' -e 's@/[^/]*$@@'` +srcroot=`echo $srcdir | sed -e 's@/[^/]*$@@' -e 's@/[^/]*$@@' -e 's@/[^/]*$@@'` +sed -e "s:^OBJROOT[ ]*=.*$:OBJROOT = ${objroot}:" -e "s:^SRCROOT[ ]*=.*$:SRCROOT = ${srcroot}:" \ + ${Makefile} > Makefile.tem +rm -f ${Makefile} +mv Makefile.tem ${Makefile}

configure.in 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: float.c =================================================================== --- float.c (nonexistent) +++ float.c (revision 345) @@ -0,0 +1,20 @@ +#include + +main() +{ + float a,b,c; + + a = 0.11; + b = 3.12; + c = a+b; + + printf ("Print float, result with 'f' = %f\n", c); + printf ("Print float, result with 'e' = %e\n", c); + printf ("Print float, result with 'E' = %E\n", c); + printf ("Print float, result with 'g' = %g\n", c); + printf ("Print float, result with 'G' = %G\n", c); + + pass ("float"); + fflush (stdout); +} +

float.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: varargs.c =================================================================== --- varargs.c (nonexistent) +++ varargs.c (revision 345) @@ -0,0 +1,46 @@ +/* Oki bug report [OKI013] + + Variable argments test failed. + + Execution result. + val1, val2 = 1, 0 + val1, val2 = 2, 0 + val1, val2 = 3, 0 + + Note, this tests for ANSI style varargs. + + */ + +#include +#include +int func(int, ...); + +main() +{ + func(2, 1., 2., 3.); +} + +func(int i, ...) +{ + va_list p; + int j; + + va_start(p, i); + for (j = 1; j <= 3; ++j){ + dequals(__LINE__, (double)j, va_arg(p, double)); + } + va_end(p); + return (i); +} + +dequals(int line, double val1, double val2) +{ + iprintf ("val1, val2 = %d, %d\n", (int)val1, (int)val2); + if(val1 == val2) + pass ("varargs [OKI013]"); + else + fail ("varargs [OKI013]"); + + fflush (stdout); + return; +}

varargs.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: io.c =================================================================== --- io.c (nonexistent) +++ io.c (revision 345) @@ -0,0 +1,71 @@ +/* + io.c -- Test the serial I/O. + */ + +#define BUFSIZE 80 +#include + +main() +{ + char buf[100]; + char *tmp; + int result; + + /* test the lowest level output function */ + result = outbyte ('&'); + if (result != 0x0) { + pass ("outbyte"); + } else { + fail ("outbyte"); + } + + /* try writing a string */ + result = write ("Write Test:\n", 12); + print ("result was "); + putnum (result); + outbyte ('\n'); + if (result == 12) { + pass ("write"); + } else { + fail ("write"); + } + + /* try the print() function too */ + result = print ("Print Test:\n"); + print ("result was "); + putnum (result); + outbyte ('\n'); + if (result == 12) { + pass ("print"); + } else { + fail ("print"); + } + + /* try the iprintf() function too */ + result = print ("Iprintf Test:\n"); + print ("result was "); + putnum (result); + outbyte ('\n'); + if (result == 14) { + pass ("iprintf"); + } else { + fail ("iprintf"); + } + + /* try to read a string */ + print ("Type 5 characters"); + + result = 0; + result = read (0, buf, 5); + print (buf); + if (result == 5) { + pass ("read"); + } else { + fail ("read"); + } + + /* clear everything out */ + fflush (stdout); +} + +

io.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: memory.c =================================================================== --- memory.c (nonexistent) +++ memory.c (revision 345) @@ -0,0 +1,38 @@ +/* WinBond bug report + + malloc() returns 0x0. + + test the memory calls. These test sbrk(), which is part of glue.c + for most architectures. + */ + +#include +#define BUFSIZE 80 + +main() +{ + char *buf; + char *tmp; + char *result; + + /* see if we can get some memory */ + buf = (char *)malloc(BUFSIZE); + if (buf != 0x0) { + pass ("malloc"); + } else { + fail ("malloc"); + } + + /* see if we can realloc it */ + tmp = buf; + result = (char *)realloc (buf, BUFSIZE+100); + if ((buf != 0x0) && (result != 0x0)) { + pass ("realloc"); + } else { + fail ("realloc"); + } + + /* see if we can free it up. FIXME: how to test free ?*/ + free (buf); + fflush (stdout); +}

memory.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: double.c =================================================================== --- double.c (nonexistent) +++ double.c (revision 345) @@ -0,0 +1,33 @@ +/* Oki bug report [OKI001](gcc008_1) + + The following program is not executed. + error messages are as follow. + + illegal trap: 0x12 pc=d000d954 + d000d954 08000240 NOP + */ + +#include +extern double dcall (); + +main () +{ + double d1, d2, d3; + int i; + + d1 = dcall (1.); + printf ("d1 = %e\n", d1); + + pass ("double [OKI001]"); + fflush(stdout); +} + +double +dcall (d) + double d; +{ + int Zero = 0; + return d + Zero; +} + +

double.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: .gdbinit =================================================================== --- .gdbinit (nonexistent) +++ .gdbinit (revision 345) @@ -0,0 +1,82 @@ +define wec-test +set height 0 +set remotedebug 0 +echo Running array test... +load array-w89k.x +run +echo Running double test... +load double-w89k.x +run +echo Running float test... +load float-w89k.x +run +echo Running func test... +load func-w89k.x +run +echo Running io test... +load io-w89k.x +run +echo Running math test... +load math-w89k.x +run +echo Running memory test... +load memory-w89k.x +run +echo Running div test... +load div-w89k.x +run +echo Running struct test... +load struct-w89k.x +run +echo Running printf test... +load printf-w89k.x +run +echo Running varargs test... +load varargs-w89k.x +run +echo Running varargs2 test... +load varargs2-w89k.x +run +end + +define oki-test +set height 0 +set remotedebug 0 +echo Running array test... +load array-op50n.x +run +echo Running double test... +load double-op50n.x +run +echo Running float test... +load float-op50n.x +run +echo Running func test... +load func-op50n.x +run +echo Running io test... +load io-op50n.x +run +echo Running math test... +load math-op50n.x +run +echo Running memory test... +load memory-op50n.x +run +echo Running div test... +load div-op50n.x +run +echo Running struct test... +load struct-op50n.x +run +echo Running printf test... +load printf-op50n.x +run +echo Running varargs test... +load varargs-op50n.x +run +echo Running varargs2 test... +load varargs2-op50n.x +run +end + Index: array.c =================================================================== --- array.c (nonexistent) +++ array.c (revision 345) @@ -0,0 +1,18 @@ +/* WinBond bug report + + this is a compile test. At one time static arrays over 500 elements + didn't work. We'll test both global and local array. If it compiles at + all, it it passes. + */ + +#include +static short aa[64][64]; +static int bb[500]; + +main() +{ + static short cc[64][64]; + static int dd[500]; + pass ("large arrays"); + fflush(stdout); +}

array.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: div.c =================================================================== --- div.c (nonexistent) +++ div.c (revision 345) @@ -0,0 +1,35 @@ +/* WinBond bug report + + Please don't use "gcc -O3 -S hello.c" command, because it + will optimize "i/5" to be "2" in compile time. + + */ + +#include +#define TESTSEED 10 + +main () +{ + int a1,b1,c1; + long a2,b2,c2; + double a3,b3,c3; + float a4,b4,c4; + char buf[20]; + + /* integer tests */ + for (a1 = 1; a1 < 16; a1++) { + b1 = TESTSEED/a1; + c1 = TESTSEED%a1; + printf ("%d/%d = %d, ^ = %d\n", TESTSEED, a1, b1, c1); + if ((c1 + (a1 * b1)) == TESTSEED) { + sprintf (buf, "div %d by %d", TESTSEED, a1); + pass (buf); + } else { + sprintf (buf, "div %d by %d", TESTSEED, a1); + fail (buf); + } + fflush (stdout); + } +} + +

div.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: struct.c =================================================================== --- struct.c (nonexistent) +++ struct.c (revision 345) @@ -0,0 +1,65 @@ +/* Oki bug report, no number. Here's the output the error generates. + + gcc -c -g -ansi oki008.c -o oki008.o -msoft-float + oki008.c: In function `Proc0': + oki008.c:50: internal error--insn does not satisfy its constraints: + (insn 37 35 24 (set (mem:DF (post_inc:DF (reg:SI 1 %r1))) + (reg:DF 48 %fr12)) 94 {reload_outdf+2} (nil) + (nil)) + gcc: Internal compiler error: program cc1 got fatal signal 6 + */ + +#include + +typedef int Enumeration; +typedef int OneToFifty; +typedef char String30[31]; +struct Record +{ + struct Record *PtrComp; + Enumeration Discr; + Enumeration EnumComp; + OneToFifty IntComp; + String30 StringComp; +}; + +typedef struct Record RecordType; +typedef RecordType * RecordPtr; +typedef int boolean; + +#include + +char buf[0x10000]; +char *pbuf = buf; + +char *_malloc(size) +{ + char *p; + + p = pbuf; + pbuf += size; + if (pbuf >= &buf[sizeof (buf)]) { + printf("_malloc error\n"); + return (0); + } + return (p); +} + +main() +{ + Proc0(); + pass ("struct"); + fflush (stdout); + return (0); +} + +RecordPtr PtrGlbNext; + +Proc0() +{ + extern char *_malloc(); + + register unsigned int i; + + PtrGlbNext = (RecordPtr) _malloc(sizeof(RecordType)); +}

struct.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: varargs2.c =================================================================== --- varargs2.c (nonexistent) +++ varargs2.c (revision 345) @@ -0,0 +1,48 @@ +/* Oki bug report [OKI013] + + Variable argments test failed. + + Execution result. + val1, val2 = 1, 0 + val1, val2 = 2, 0 + val1, val2 = 3, 0 + + Note, this test case for for traditional style C code. + + */ + +#include +#include +int func(); + +main() +{ + func(1., 2., 3.); +} + +func(va_alist) + va_dcl +{ + va_list p; + double val1, val2; + int j; + + va_start(p); + for (j = 1; j <= 3; ++j){ + dequals((double)j, va_arg(p, double)); + } + va_end(p); + return (p); +} + +dequals(double val1, double val2) +{ + iprintf ("val1 is %d, val2 is %d\n", (int)val1, (int)val2); + if (val1 == val2) + pass ("varargs2 [OKI013]"); + else + fail ("varargs2 [OKI013]"); + + fflush (stdout); + return; +}

varargs2.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: math.c =================================================================== --- math.c (nonexistent) +++ math.c (revision 345) @@ -0,0 +1,88 @@ +/* Oki bug report [OKI004](gcc005) + + The following computation is no work. + -1 / 1 => 1 (correct -1) + -1 % 2 => 1 (correct -1) + */ + +#include + +main () +{ + long l1, l2, l6; + auto long l3; + long oza1, oza2, oza; + + l1 = 1; + l2 = 2; + l3 = -1; + l6 = 6; + + /*** test 1 ***/ + oza = ((l3 / ((l1)--)) | (l6 <= (l3 % l2))); + printf ("test 1 has a result of %d.\n", oza); + if (oza != -1) + fail ("divide test [OKI004]"); + else + pass ("divide test [OKI004]"); + + l1 = 1; + /*** test 2 ***/ + oza1 = (l3 / ((l1)--)); + oza2 = (l6 <= (l3 % l2)); + oza = oza1 | oza2; + + printf ("test 2 has a result of %d.\n", oza); + if (oza != -1) + fail ("modulos test [OKI004]"); + else + pass ("modulos test [OKI004]"); + fflush (stdout); + + test_1(); +} + +/* + 32760 / (1) = 32760 + 32760 / (-1) = 32760 -------> ERROR, same as you said. + 32760 / (2) = 16380 + 32760 / (-2) = -2147467268 ----> ERROR + 32760 / (3) = 10920 + 32760 / (-3) = -1431644845 ----> ERROR + 32760 / (4) = 8190 + 32760 / (-4) = -8190 + */ +test_1() +{ + int value, i, j; + + i = 32760; + j = 1; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + j = -1; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + + j = 2; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + j = -2; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + + j = 3; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + j = -3; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + + j = 4; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + j = -4; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); +} +

math.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: func.c =================================================================== --- func.c (nonexistent) +++ func.c (revision 345) @@ -0,0 +1,26 @@ +/* Oki bug report [OKI002](gcc008_2) + + The following program is not executed. + Error message is as follow. + + illegal trap: 0x12 pc=d000d954 + d000d954 08000240 NOP + + */ + +#include +#include + +int func (int, ...); + +void main () +{ + func (2, 1., 2., 3.); + pass ("func [OKI002]"); + fflush (stdout); +} + +int func (int i, ...) +{ + return (i); +}

func.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: misc.c =================================================================== --- misc.c (nonexistent) +++ misc.c (revision 345) @@ -0,0 +1,167 @@ +/* + * this file contains misc bug reports from WinBond. + */ +#include +#include + +#if unix +#define pass(x) printf("PASS: %s\n", x); +#define fail(x) printf("FAIL: %s\n", x); +#endif + +/* + The compare operation is error. Because the constant value 1.0 is + not correct. It seems compare with 0 in this statement. + +HP-UX native: + dist is 0.301 + PASS: float compare + *cp = be9a1cac, *cp1 = be9a1cac + PASS: float multiple 1 + PASS: float multiple 2 + 32760 / (-2) = -16380 + PASS: float divide 1 + 32760 / (-1) = -32760 + PASS: float divide 1 + These test only pass if the output matches: + Correct output is + 1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0 + 1.0 = 1.000000E+00, 0.3010 = 3.010000E-01, -1.0 = -1.000000E+00 + These test only pass if the outut matches: + Correct output is + ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00 + ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00 + + +Test run on Oki: + + dist is 0 + PASS: float compare + *cp = be9a1cac, *cp1 = be9a1cac + PASS: float multiple 1 + PASS: float multiple 2 + 32760 / (-2) = -2147467268 + PASS: float divide 1 + 32760 / (-1) = 32760 + PASS: float divide 1 + These test only pass if the output matches: + Correct output is + 1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0 + 1.0 = 1.586860E-318, 0.3010 = -1.009091E-303, -1.0 = 5.290504E-315 + These test only pass if the outut matches: + Correct output is + ans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00 + ans = 4.940656E-324, ans1 = -5.299809E-315, ans2 = 5.290504E-315 + + */ + +main() +{ + float dist = 0.3010; + + printf ("dist is %G\n", dist); + if ( dist < 1.0 ) { + pass ("float compare"); + } else { + fail ("float compare"); + } + + test_1(); + test_2(); + test_3(); + test_4(); + + fflush (stdout); +} + +/* + * *cp = be9a1cac, *cp1 = 00000000 + */ +test_1() +{ + float i, ans, ans1; + unsigned int *cp=&ans, *cp1=&ans1; + + i = 0.3010; + ans = (-1.0) * 0.3010 * 1.0; /* OK */ + ans1 = (-1.0) * i * 1.0; /* Disaster */ + printf ("*cp = %08x, *cp1 = %08x\n", *cp, *cp1); + + if (*cp != 0xbe9a1cac) { + fail ("float multiple 1"); + } else { + pass ("float multiple 1"); + } + + if (*cp1 != 0xbe9a1cac) { + fail ("float multiple 2"); + } else { + pass ("float multiple 2"); + } +} + +/* + Positive integer divide Negative integer may get interesting result. + For examples: + EX1: 32760 / (-2) = -2147467268 + */ +test_2() +{ + int value, i, j; + + i = 32760; + j = -2; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + + if (value != -16380) { + fail ("float divide 1"); + } else { + pass ("float divide 1"); + } +} + +/* + EX2: 32760 / (-1) = 32760 + */ +test_3() +{ + int value, i, j; + + i = 32760; + j = -1; + value = i / (j); + printf ("%d / (%d) = %d\n", i, j, value); + + if (value != -32760) { + fail ("float divide 1"); + } else { + pass ("float divide 1"); + } +} + +/* + The data output format %e, %E, %g, %G in printf() can not work. + Please test the following example: + + 1.0 = 1.000000E+00, 0.3010 = 3.009999E-01, -1.0 = -1.000000E+00 + ans = 4.940656E-324, ans1 = -5.299809E-315, ans2 = 5.290504E-315 + */ +test_4() +{ + float ans, ans1, ans2; + + ans = 1.0; + ans1 = 0.3010; + ans2 = -1.0; + + printf ("These test only pass if the output matches:\nCorrect output is\n1.0 = 1.000000E+00, 0.3010 = 3.000000E-01, -1.0 = -1.000000E+0\n"); + printf ("1.0 = %E, 0.3010 = %E, -1.0 = %E\n", 1.0, 0.3010, -1.0); + printf ("These test only pass if the outut matches:\nCorrect output is\nans = 1.000000E+00, ans1 = 3.010000E-01, ans2 = -1.000000E+00\n"); + printf ("ans = %E, ans1 = %E, ans2 = %E\n", ans, ans1, ans2); +} + + + + +

misc.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