[122] | 1 | // This file is a part of the Framsticks GDK. |
---|
[197] | 2 | // Copyright (C) 1999-2014 Maciej Komosinski and Szymon Ulatowski. See LICENSE.txt for details. |
---|
[122] | 3 | // Refer to http://www.framsticks.com/ for further information. |
---|
| 4 | |
---|
[109] | 5 | #include "nonstd_math.h" |
---|
| 6 | |
---|
| 7 | RandomGenerator& rndGetInstance() |
---|
| 8 | { |
---|
| 9 | static RandomGenerator rnd(0); |
---|
| 10 | return rnd; |
---|
| 11 | } |
---|
| 12 | |
---|
| 13 | |
---|
| 14 | |
---|
| 15 | |
---|
[135] | 16 | #if defined __BORLANDC__ || (_MSC_VER <= 1700) |
---|
| 17 | double round(double val) //http://stackoverflow.com/questions/2170385/c-math-functions |
---|
[109] | 18 | { |
---|
| 19 | return floor(val + 0.5); |
---|
| 20 | } |
---|
| 21 | #endif |
---|
| 22 | |
---|
| 23 | |
---|
[247] | 24 | #ifdef IPHONE |
---|
| 25 | //TODO! -> ? http://stackoverflow.com/questions/12762418/how-to-enable-sigfpe-signal-on-division-by-zero-in-ios-app |
---|
| 26 | void fpExceptInit() |
---|
| 27 | {} |
---|
[109] | 28 | |
---|
[247] | 29 | void fpExceptEnable() |
---|
| 30 | {} |
---|
[109] | 31 | |
---|
[247] | 32 | void fpExceptDisable() |
---|
| 33 | {} |
---|
| 34 | #endif |
---|
[109] | 35 | |
---|
[247] | 36 | |
---|
| 37 | #if defined LINUX || defined TIZEN || defined __ANDROID__ |
---|
| 38 | |
---|
[109] | 39 | #include <fenv.h> |
---|
| 40 | |
---|
| 41 | void fpExceptInit() |
---|
| 42 | {} |
---|
| 43 | |
---|
| 44 | void fpExceptEnable() |
---|
| 45 | { |
---|
| 46 | feclearexcept(FE_DIVBYZERO | FE_OVERFLOW); |
---|
| 47 | feenableexcept(FE_DIVBYZERO | FE_OVERFLOW); |
---|
| 48 | } |
---|
| 49 | |
---|
| 50 | void fpExceptDisable() |
---|
| 51 | { |
---|
| 52 | fedisableexcept(FE_DIVBYZERO | FE_OVERFLOW); |
---|
| 53 | } |
---|
| 54 | |
---|
| 55 | #endif |
---|
| 56 | |
---|
| 57 | |
---|
| 58 | |
---|
| 59 | #ifdef __BORLANDC__ |
---|
[145] | 60 | // there was once a problem like this: |
---|
| 61 | // http://qc.embarcadero.com/wc/qcmain.aspx?d=5128 |
---|
| 62 | // http://www.delorie.com/djgpp/doc/libc/libc_112.html |
---|
| 63 | // ? http://www.c-jump.com/CIS77/reference/Intel/CIS77_24319002/pg_0211.htm |
---|
| 64 | // ? http://www.jaist.ac.jp/iscenter-new/mpc/altix/altixdata/opt/intel/vtune/doc/users_guide/mergedProjects/analyzer_ec/mergedProjects/reference_olh/mergedProjects/instructions/instruct32_hh/vc100.htm |
---|
| 65 | // ? http://www.plantation-productions.com/Webster/www.artofasm.com/Linux/HTML/RealArithmetica2.html |
---|
| 66 | // http://blogs.msdn.com/b/oldnewthing/archive/2008/07/03/8682463.aspx |
---|
| 67 | // where each cast of a double into an int would cause an exception. |
---|
| 68 | // But it was resolved by restarting windows and cleaning all intermediate compilation files :o (restarting windows was the key element! restarting BC++Builder and deleting files would not help) |
---|
[109] | 69 | |
---|
| 70 | #include "framsg.h" |
---|
| 71 | |
---|
| 72 | unsigned int fp_control_word_std; |
---|
| 73 | unsigned int fp_control_word_muted; |
---|
| 74 | |
---|
| 75 | void fpExceptInit() |
---|
| 76 | { |
---|
| 77 | //unsigned int was=_clear87(); |
---|
| 78 | //FMprintf("","fpExceptInit",FMLV_INFO,"control87 status before clear was %08x", was); |
---|
| 79 | fp_control_word_std=_control87(0, 0); //4978 = 1001101110010 |
---|
| 80 | // Make the new fp env same as the old one, except for the changes we're going to make |
---|
| 81 | fp_control_word_muted = fp_control_word_std | EM_INVALID | EM_DENORMAL | EM_ZERODIVIDE | EM_OVERFLOW | EM_UNDERFLOW | EM_INEXACT; //4991 = 1001101111111 |
---|
| 82 | } |
---|
| 83 | |
---|
| 84 | void fpExceptEnable() |
---|
| 85 | { |
---|
| 86 | unsigned int was=_clear87(); //trzeba czyscic zeby nie bylo exception... |
---|
| 87 | //FMprintf("","fpExceptEnable ",FMLV_INFO,"control87 status before clear was %08x", was); |
---|
| 88 | _control87(fp_control_word_std, 0xffffffff); |
---|
| 89 | //FMprintf("","fpExceptEnable ",FMLV_INFO,"control87 flags are %08x", _control87(0, 0)); //kontrola co sie ustawilo |
---|
| 90 | } |
---|
| 91 | |
---|
| 92 | void fpExceptDisable() |
---|
| 93 | { |
---|
| 94 | unsigned int was=_clear87(); //trzeba czyscic zeby nie bylo exception... |
---|
| 95 | //FMprintf("","fpExceptDisable",FMLV_INFO,"control87 status before clear was %08x", was); |
---|
| 96 | _control87(fp_control_word_muted, 0xffffffff); |
---|
| 97 | //FMprintf("","fpExceptDisable",FMLV_INFO,"control87 flags are %08x", _control87(0, 0)); //kontrola co sie ustawilo |
---|
| 98 | } |
---|
| 99 | |
---|
| 100 | #endif |
---|
| 101 | |
---|
| 102 | |
---|
| 103 | |
---|
| 104 | #ifdef _MSC_VER |
---|
| 105 | //Moznaby zrobic tak jak pod linuxem czyli wlaczyc exceptiony na poczatku i wylaczac na chwile przy dzieleniu w extvalue. |
---|
| 106 | //To by pozwoli³o na wy³apanie pod visualem z³ych sytuacji kiedy framsy licz¹ na NaN, INF itp. |
---|
| 107 | //http://stackoverflow.com/questions/2769814/how-do-i-use-try-catch-to-catch-floating-point-errors |
---|
| 108 | void fpExceptInit() {} |
---|
| 109 | void fpExceptEnable() {} |
---|
| 110 | void fpExceptDisable() {} |
---|
| 111 | #endif |
---|
| 112 | |
---|