libretro/oberon-risc-emu
1
0
Fork 0
mirror of https://github.com/libretro/oberon-risc-emu.git synced 2024-12-04 07:00:52 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Implement 20160808 FPMultiplier change

Browse Source
This commit is contained in:
Peter De Wachter 2016-08-09 22:08:30 +02:00
parent 8a034ddff8
commit 2b7399067f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/risc-fp.c
View File

@ -76,17 +76,17 @@ uint32_t fp_mul(uint32_t x, uint32_t y) {
uint32_t z0;
if ((m & (1ULL << 47)) != 0) {
e1++;
z0 = (m >> 24) & 0x7FFFFF;
z0 = ((m >> 23) + 1) & 0xFFFFFF;
} else {
z0 = (m >> 23) & 0x7FFFFF;
z0 = ((m >> 22) + 1) & 0xFFFFFF;
}
if (xe == 0 || ye == 0) {
return 0;
} else if ((e1 & 0x100) == 0) {
return sign | ((e1 & 0xFF) << 23) | z0;
return sign | ((e1 & 0xFF) << 23) | (z0 >> 1);
} else if ((e1 & 0x80) == 0) {
return sign | (0xFF << 23) | z0;
return sign | (0xFF << 23) | (z0 >> 1);
} else {
return 0;
}