diff -r ffa851df0825 -r 2fb8b9db1c86 symbian-qemu-0.9.1-12/python-2.6.1/Modules/fpetestmodule.c --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/symbian-qemu-0.9.1-12/python-2.6.1/Modules/fpetestmodule.c Fri Jul 31 15:01:17 2009 +0100 @@ -0,0 +1,186 @@ +/* + --------------------------------------------------------------------- + / Copyright (c) 1996. \ + | The Regents of the University of California. | + | All rights reserved. | + | | + | Permission to use, copy, modify, and distribute this software for | + | any purpose without fee is hereby granted, provided that this en- | + | tire notice is included in all copies of any software which is or | + | includes a copy or modification of this software and in all | + | copies of the supporting documentation for such software. | + | | + | This work was produced at the University of California, Lawrence | + | Livermore National Laboratory under contract no. W-7405-ENG-48 | + | between the U.S. Department of Energy and The Regents of the | + | University of California for the operation of UC LLNL. | + | | + | DISCLAIMER | + | | + | This software was prepared as an account of work sponsored by an | + | agency of the United States Government. Neither the United States | + | Government nor the University of California nor any of their em- | + | ployees, makes any warranty, express or implied, or assumes any | + | liability or responsibility for the accuracy, completeness, or | + | usefulness of any information, apparatus, product, or process | + | disclosed, or represents that its use would not infringe | + | privately-owned rights. Reference herein to any specific commer- | + | cial products, process, or service by trade name, trademark, | + | manufacturer, or otherwise, does not necessarily constitute or | + | imply its endorsement, recommendation, or favoring by the United | + | States Government or the University of California. The views and | + | opinions of authors expressed herein do not necessarily state or | + | reflect those of the United States Government or the University | + | of California, and shall not be used for advertising or product | + \ endorsement purposes. / + --------------------------------------------------------------------- +*/ + +/* + Floating point exception test module. + + */ + +#include "Python.h" + +static PyObject *fpe_error; +PyMODINIT_FUNC initfpetest(void); +static PyObject *test(PyObject *self,PyObject *args); +static double db0(double); +static double overflow(double); +static double nest1(int, double); +static double nest2(int, double); +static double nest3(double); +static void printerr(double); + +static PyMethodDef fpetest_methods[] = { + {"test", (PyCFunction) test, METH_VARARGS}, + {0,0} +}; + +static PyObject *test(PyObject *self,PyObject *args) +{ + double r; + + fprintf(stderr,"overflow"); + r = overflow(1.e160); + printerr(r); + + fprintf(stderr,"\ndiv by 0"); + r = db0(0.0); + printerr(r); + + fprintf(stderr,"\nnested outer"); + r = nest1(0, 0.0); + printerr(r); + + fprintf(stderr,"\nnested inner"); + r = nest1(1, 1.0); + printerr(r); + + fprintf(stderr,"\ntrailing outer"); + r = nest1(2, 2.0); + printerr(r); + + fprintf(stderr,"\nnested prior"); + r = nest2(0, 0.0); + printerr(r); + + fprintf(stderr,"\nnested interior"); + r = nest2(1, 1.0); + printerr(r); + + fprintf(stderr,"\nnested trailing"); + r = nest2(2, 2.0); + printerr(r); + + Py_INCREF (Py_None); + return Py_None; +} + +static void printerr(double r) +{ + if(r == 3.1416){ + fprintf(stderr,"\tPASS\n"); + PyErr_Print(); + }else{ + fprintf(stderr,"\tFAIL\n"); + } + PyErr_Clear(); +} + +static double nest1(int i, double x) +{ + double a = 1.0; + + PyFPE_START_PROTECT("Division by zero, outer zone", return 3.1416) + if(i == 0){ + a = 1./x; + }else if(i == 1){ + /* This (following) message is never seen. */ + PyFPE_START_PROTECT("Division by zero, inner zone", return 3.1416) + a = 1./(1. - x); + PyFPE_END_PROTECT(a) + }else if(i == 2){ + a = 1./(2. - x); + } + PyFPE_END_PROTECT(a) + + return a; +} + +static double nest2(int i, double x) +{ + double a = 1.0; + PyFPE_START_PROTECT("Division by zero, prior error", return 3.1416) + if(i == 0){ + a = 1./x; + }else if(i == 1){ + a = nest3(x); + }else if(i == 2){ + a = 1./(2. - x); + } + PyFPE_END_PROTECT(a) + return a; +} + +static double nest3(double x) +{ + double result; + /* This (following) message is never seen. */ + PyFPE_START_PROTECT("Division by zero, nest3 error", return 3.1416) + result = 1./(1. - x); + PyFPE_END_PROTECT(result) + return result; +} + +static double db0(double x) +{ + double a; + PyFPE_START_PROTECT("Division by zero", return 3.1416) + a = 1./x; + PyFPE_END_PROTECT(a) + return a; +} + +static double overflow(double b) +{ + double a; + PyFPE_START_PROTECT("Overflow", return 3.1416) + a = b*b; + PyFPE_END_PROTECT(a) + return a; +} + +PyMODINIT_FUNC initfpetest(void) +{ + PyObject *m, *d; + + m = Py_InitModule("fpetest", fpetest_methods); + if (m == NULL) + return; + d = PyModule_GetDict(m); + fpe_error = PyErr_NewException("fpetest.error", NULL, NULL); + if (fpe_error != NULL) + PyDict_SetItemString(d, "error", fpe_error); +}