mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-03-10 02:46:23 +00:00
416fd86676
- Emulator can now test the αcτµαlly pδrταblε εxεcµταblε bootloader - Whipped up a webserver named redbean. It services 150k requests per second on a single core. Bundling assets inside zip enables extremely fast serving for two reasons. The first is that zip central directory lookups go faster than stat() system calls. The second is that both zip and gzip content-encoding use DEFLATE, therefore, compressed responses can be served via the sendfile() system call which does an in-kernel copy directly from the zip executable structure. Also note that red bean zip executables can be deployed easily to all platforms, since these native executables work on Linux, Mac, BSD, and Windows. - Address sanitizer now works very well
120 lines
5.5 KiB
C
120 lines
5.5 KiB
C
#if 0
|
|
/*─────────────────────────────────────────────────────────────────╗
|
|
│ To the extent possible under law, Justine Tunney has waived │
|
|
│ all copyright and related or neighboring rights to this file, │
|
|
│ as it is written in the following disclaimers: │
|
|
│ • http://unlicense.org/ │
|
|
│ • http://creativecommons.org/publicdomain/zero/1.0/ │
|
|
╚─────────────────────────────────────────────────────────────────*/
|
|
#endif
|
|
#include "libc/bits/bits.h"
|
|
#include "libc/inttypes.h"
|
|
#include "libc/literal.h"
|
|
#include "libc/math.h"
|
|
#include "libc/stdio/stdio.h"
|
|
#include "libc/str/str.h"
|
|
|
|
static const char kHeaderBin[] = "\
|
|
/\t┌sign\n\
|
|
/\t│ ┌exponent\n\
|
|
/\t│ │ ┌intpart\n\
|
|
/\t│ │ │ ┌fraction\n\
|
|
/\t│ │ │ │\n\
|
|
/\t│┌┴────────────┐│┌┴────────────────────────────────────────────────────────────┐\n";
|
|
|
|
static const char kHeaderHex[] = "\
|
|
/\t ┌sign/exponent\n\
|
|
/\t │ ┌intpart/fraction\n\
|
|
/\t │ │\n\
|
|
/\t┌┴─┐┌┴─────────────┐\n";
|
|
|
|
void dobin(const char *op, long double x, FILE *f) {
|
|
uint16_t hi;
|
|
uint64_t lo;
|
|
uint8_t buf[16];
|
|
memcpy(buf, &x, sizeof(x));
|
|
memcpy(&lo, &buf[0], sizeof(lo));
|
|
memcpy(&hi, &buf[8], sizeof(hi));
|
|
fprintf(f, "/\t%016" PRIb16 "%064" PRIb64 " %-8s % 17.14Lf\n", hi, lo, op, x);
|
|
}
|
|
|
|
void dohex(const char *op, long double x, FILE *f) {
|
|
uint16_t hi;
|
|
uint64_t lo;
|
|
uint8_t buf[16];
|
|
memcpy(buf, &x, sizeof(x));
|
|
memcpy(&lo, &buf[0], sizeof(lo));
|
|
memcpy(&hi, &buf[8], sizeof(hi));
|
|
fprintf(f, "/\t%04" PRIx16 "%016" PRIx64 " %-8s % 17.14Lf\n", hi, lo, op, x);
|
|
}
|
|
|
|
#define DOBIN(OP) \
|
|
dobin(" " #OP, OP(), stdout); \
|
|
dobin("-" #OP, -OP(), stdout)
|
|
|
|
#define DOHEX(OP) \
|
|
dohex(" " #OP, OP(), stdout); \
|
|
dohex("-" #OP, -OP(), stdout)
|
|
|
|
int main(int argc, char *argv[]) {
|
|
fputs(kHeaderBin, stdout);
|
|
DOBIN(fldz);
|
|
DOBIN(fld1);
|
|
DOBIN(fldpi);
|
|
DOBIN(fldl2t);
|
|
DOBIN(fldlg2);
|
|
DOBIN(fldln2);
|
|
DOBIN(fldl2e);
|
|
fputc('\n', stdout);
|
|
fputs(kHeaderHex, stdout);
|
|
DOHEX(fldz);
|
|
DOHEX(fld1);
|
|
DOHEX(fldpi);
|
|
DOHEX(fldl2t);
|
|
DOHEX(fldlg2);
|
|
DOHEX(fldln2);
|
|
DOHEX(fldl2e);
|
|
return 0;
|
|
}
|
|
|
|
// clang-format off
|
|
//
|
|
// ┌sign
|
|
// │ ┌exponent
|
|
// │ │ ┌intpart
|
|
// │ │ │ ┌fraction
|
|
// │ │ │ │
|
|
// │┌┴────────────┐│┌┴────────────────────────────────────────────────────────────┐
|
|
// 00000000000000000000000000000000000000000000000000000000000000000000000000000000 fldz 0.0000000000000000000
|
|
// 10000000000000000000000000000000000000000000000000000000000000000000000000000000 -fldz -0.0000000000000000000
|
|
// 00111111111111111000000000000000000000000000000000000000000000000000000000000000 fld1 1.0000000000000000000
|
|
// 10111111111111111000000000000000000000000000000000000000000000000000000000000000 -fld1 -1.0000000000000000000
|
|
// 01000000000000001100100100001111110110101010001000100001011010001100001000110101 fldpi 3.1415926540000000000
|
|
// 11000000000000001100100100001111110110101010001000100001011010001100001000110101 -fldpi -3.1415926540000000000
|
|
// 01000000000000001101010010011010011110000100101111001101000110111000101011111110 fldl2t 3.3219280950000000000
|
|
// 11000000000000001101010010011010011110000100101111001101000110111000101011111110 -fldl2t -3.3219280950000000000
|
|
// 00111111111111011001101000100000100110101000010011111011110011111111011110011001 fldlg2 0.3010299960000000000
|
|
// 10111111111111011001101000100000100110101000010011111011110011111111011110011001 -fldlg2 -0.3010299960000000000
|
|
// 00111111111111101011000101110010000101111111011111010001110011110111100110101100 fldln2 0.6931471810000000000
|
|
// 10111111111111101011000101110010000101111111011111010001110011110111100110101100 -fldln2 -0.6931471810000000000
|
|
// 00111111111111111011100010101010001110110010100101011100000101111111000010111100 fldl2e 1.4426950410000000000
|
|
// 10111111111111111011100010101010001110110010100101011100000101111111000010111100 -fldl2e -1.4426950410000000000
|
|
//
|
|
// ┌sign/exponent
|
|
// │ ┌intpart/fraction
|
|
// │ │
|
|
// ┌┴─┐┌┴─────────────┐
|
|
// 00000000000000000000 fldz 0.0000000000000000000
|
|
// 80000000000000000000 -fldz -0.0000000000000000000
|
|
// 3fff8000000000000000 fld1 1.0000000000000000000
|
|
// bfff8000000000000000 -fld1 -1.0000000000000000000
|
|
// 4000c90fdaa22168c235 fldpi 3.1415926540000000000
|
|
// c000c90fdaa22168c235 -fldpi -3.1415926540000000000
|
|
// 4000d49a784bcd1b8afe fldl2t 3.3219280950000000000
|
|
// c000d49a784bcd1b8afe -fldl2t -3.3219280950000000000
|
|
// 3ffd9a209a84fbcff799 fldlg2 0.3010299960000000000
|
|
// bffd9a209a84fbcff799 -fldlg2 -0.3010299960000000000
|
|
// 3ffeb17217f7d1cf79ac fldln2 0.6931471810000000000
|
|
// bffeb17217f7d1cf79ac -fldln2 -0.6931471810000000000
|
|
// 3fffb8aa3b295c17f0bc fldl2e 1.4426950410000000000
|
|
// bfffb8aa3b295c17f0bc -fldl2e -1.4426950410000000000
|