github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-09 12:06:07 +00:00
Code Issues Projects Releases Wiki Activity

Revert integerlength() to pure (but more efficient) C as glibc does not provide fls()

Browse Source
This commit is contained in:
Nick Briggs
2025-07-22 09:43:49 -07:00
parent 3569e54524
commit 01d21b0a44
1 changed files with 23 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/gcfinal.c
View File

@@ -43,7 +43,6 @@
/*************************************************************************/
#include <stdio.h> // for printf
#include <strings.h> // for fls
#include "address.h" // for HILOC
#include "adr68k.h" // for NativeAligned4FromLAddr, LAddrFromNative
#include "array.h" // for arrayblock, ARRAYBLOCKTRAILERCELLS, MAXBUCK...
@@ -128,7 +127,29 @@ struct buffer {
#endif /* BYTESWAP */
static int integerlength(unsigned int n) {
return (fls(n));
int p = 0;
if (n <= 2) return (n); /* easy case */
if (n >= 65536) {
n >>= 16;
p += 16;
}
if (n >= 256) {
n >>= 8;
p += 8;
}
if (n >= 16) {
n >>= 4;
p += 4;
}
if (n >= 4) {
n >>= 2;
p += 2;
}
if (n >= 2) {
p += 1;
}
return (p + 1);
}
/************************************************************************/