quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*refactored _set_real_with_hex to avoid c4310 (vc).

Browse Source
This commit is contained in:
Wang Renxin 2019-10-17 11:27:58 +08:00
parent 34de08a805
commit 5bd179b199
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
core/my_basic.c
View File

@ -945,20 +945,25 @@ static _object_t* _exp_assign = 0;
#define _set_real_with_hex(__r, __i) \
do { \
if(sizeof(__r) == sizeof(unsigned char)) { \
unsigned char __b = (unsigned char)__i; \
memcpy(&(__r), &__b, sizeof(__r)); \
union { unsigned char i; real_t r; } __u; \
__u.i = __i; \
__r = __u.r; \
} else if(sizeof(__r) == sizeof(unsigned short)) { \
unsigned short __b = (unsigned short)__i; \
memcpy(&(__r), &__b, sizeof(__r)); \
union { unsigned short i; real_t r; } __u; \
__u.i = __i; \
__r = __u.r; \
} else if(sizeof(__r) == sizeof(unsigned)) { \
unsigned __b = (unsigned)__i; \
memcpy(&(__r), &__b, sizeof(__r)); \
union { unsigned i; real_t r; } __u; \
__u.i = __i; \
__r = __u.r; \
} else if(sizeof(__r) == sizeof(unsigned long)) { \
unsigned long __b = (unsigned long)__i; \
memcpy(&(__r), &__b, sizeof(__r)); \
union { unsigned long i; real_t r; } __u; \
__u.i = __i; \
__r = __u.r; \
} else if(sizeof(__r) == sizeof(unsigned long long)) { \
unsigned long long __b = (unsigned long long)__i; \
memcpy(&(__r), &__b, sizeof(__r)); \
union { unsigned long long i; real_t r; } __u; \
__u.i = __i; \
__r = __u.r; \
} else { \
mb_assert(0 && "Invalid real number precision."); \
} \