mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-01-31 19:43:32 +00:00
7cf66bc161
This change introduces the nointernet() function which may be called to prevent a process and its descendants from communicating with publicly routable Internet addresses. GNU Make has been modified to always call this function. In the future Landlock Make will have a way to whitelist subnets to override this behavior, or disable it entirely. Support is available for Linux only. Our firewall does not require root access. Calling nointernet() will return control to the caller inside a new process that has a SECCOMP BPF filter installed, which traps network related system calls. Your original process then becomes a permanent ptrace() supervisor that monitors all processes and threads descending from the returned child. Whenever a networking system call happens the kernel will stop the process and wakes up the monitor, which then peeks into the child memory to read the sockaddr_in to determine if it's ok. The downside to doing this is that there can be only one supervisor at a time using ptrace() on a process. So this firewall won't be enabled if you run make under strace or inside gdb. It also makes testing tricky.
458 lines
13 KiB
C
458 lines
13 KiB
C
/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
|
|
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8 :vi│
|
|
╞══════════════════════════════════════════════════════════════════════════════╡
|
|
│ Copyright 2020 Justine Alexandra Roberts Tunney │
|
|
│ │
|
|
│ Permission to use, copy, modify, and/or distribute this software for │
|
|
│ any purpose with or without fee is hereby granted, provided that the │
|
|
│ above copyright notice and this permission notice appear in all copies. │
|
|
│ │
|
|
│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL │
|
|
│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED │
|
|
│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE │
|
|
│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL │
|
|
│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR │
|
|
│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER │
|
|
│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR │
|
|
│ PERFORMANCE OF THIS SOFTWARE. │
|
|
╚─────────────────────────────────────────────────────────────────────────────*/
|
|
#include "libc/macros.internal.h"
|
|
#include "libc/math.h"
|
|
#include "libc/str/str.h"
|
|
#include "tool/build/lib/cvt.h"
|
|
#include "tool/build/lib/endian.h"
|
|
#include "tool/build/lib/fpu.h"
|
|
#include "tool/build/lib/machine.h"
|
|
#include "tool/build/lib/memory.h"
|
|
#include "tool/build/lib/modrm.h"
|
|
#include "tool/build/lib/pun.h"
|
|
#include "tool/build/lib/throw.h"
|
|
|
|
#define kOpCvt0f2a 0
|
|
#define kOpCvtt0f2c 4
|
|
#define kOpCvt0f2d 8
|
|
#define kOpCvt0f5a 12
|
|
#define kOpCvt0f5b 16
|
|
#define kOpCvt0fE6 20
|
|
|
|
static double SseRoundDouble(struct Machine *m, double x) {
|
|
switch ((m->mxcsr & kMxcsrRc) >> 13) {
|
|
case 0:
|
|
return rint(x);
|
|
case 1:
|
|
return floor(x);
|
|
case 2:
|
|
return ceil(x);
|
|
case 3:
|
|
return trunc(x);
|
|
default:
|
|
for (;;) (void)0;
|
|
}
|
|
}
|
|
|
|
static void OpGdqpWssCvttss2si(struct Machine *m, uint32_t rde) {
|
|
int64_t n;
|
|
union FloatPun f;
|
|
f.i = Read32(GetModrmRegisterXmmPointerRead4(m, rde));
|
|
n = f.f;
|
|
if (!Rexw(rde)) n &= 0xffffffff;
|
|
Write64(RegRexrReg(m, rde), n);
|
|
}
|
|
|
|
static void OpGdqpWsdCvttsd2si(struct Machine *m, uint32_t rde) {
|
|
int64_t n;
|
|
union DoublePun d;
|
|
d.i = Read64(GetModrmRegisterXmmPointerRead8(m, rde));
|
|
n = d.f;
|
|
if (!Rexw(rde)) n &= 0xffffffff;
|
|
Write64(RegRexrReg(m, rde), n);
|
|
}
|
|
|
|
static void OpGdqpWssCvtss2si(struct Machine *m, uint32_t rde) {
|
|
int64_t n;
|
|
union FloatPun f;
|
|
f.i = Read32(GetModrmRegisterXmmPointerRead4(m, rde));
|
|
n = rintf(f.f);
|
|
if (!Rexw(rde)) n &= 0xffffffff;
|
|
Write64(RegRexrReg(m, rde), n);
|
|
}
|
|
|
|
static void OpGdqpWsdCvtsd2si(struct Machine *m, uint32_t rde) {
|
|
int64_t n;
|
|
union DoublePun d;
|
|
d.i = Read64(GetModrmRegisterXmmPointerRead8(m, rde));
|
|
n = SseRoundDouble(m, d.f);
|
|
if (!Rexw(rde)) n &= 0xffffffff;
|
|
Write64(RegRexrReg(m, rde), n);
|
|
}
|
|
|
|
static void OpVssEdqpCvtsi2ss(struct Machine *m, uint32_t rde) {
|
|
union FloatPun f;
|
|
if (Rexw(rde)) {
|
|
int64_t n;
|
|
n = Read64(GetModrmRegisterWordPointerRead8(m, rde));
|
|
f.f = n;
|
|
Write32(XmmRexrReg(m, rde), f.i);
|
|
} else {
|
|
int32_t n;
|
|
n = Read32(GetModrmRegisterWordPointerRead4(m, rde));
|
|
f.f = n;
|
|
Write32(XmmRexrReg(m, rde), f.i);
|
|
}
|
|
}
|
|
|
|
static void OpVsdEdqpCvtsi2sd(struct Machine *m, uint32_t rde) {
|
|
union DoublePun d;
|
|
if (Rexw(rde)) {
|
|
int64_t n;
|
|
n = Read64(GetModrmRegisterWordPointerRead8(m, rde));
|
|
d.f = n;
|
|
Write64(XmmRexrReg(m, rde), d.i);
|
|
} else {
|
|
int32_t n;
|
|
n = Read32(GetModrmRegisterWordPointerRead4(m, rde));
|
|
d.f = n;
|
|
Write64(XmmRexrReg(m, rde), d.i);
|
|
}
|
|
}
|
|
|
|
static void OpVpsQpiCvtpi2ps(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t i[2];
|
|
union FloatPun f[2];
|
|
p = GetModrmRegisterMmPointerRead8(m, rde);
|
|
i[0] = Read32(p + 0);
|
|
i[1] = Read32(p + 4);
|
|
f[0].f = i[0];
|
|
f[1].f = i[1];
|
|
Write32(XmmRexrReg(m, rde) + 0, f[0].i);
|
|
Write32(XmmRexrReg(m, rde) + 4, f[1].i);
|
|
}
|
|
|
|
static void OpVpdQpiCvtpi2pd(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t n[2];
|
|
union DoublePun f[2];
|
|
p = GetModrmRegisterMmPointerRead8(m, rde);
|
|
n[0] = Read32(p + 0);
|
|
n[1] = Read32(p + 4);
|
|
f[0].f = n[0];
|
|
f[1].f = n[1];
|
|
Write64(XmmRexrReg(m, rde) + 0, f[0].i);
|
|
Write64(XmmRexrReg(m, rde) + 8, f[1].i);
|
|
}
|
|
|
|
static void OpPpiWpsqCvtps2pi(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
unsigned i;
|
|
int32_t n[2];
|
|
union FloatPun f[2];
|
|
p = GetModrmRegisterXmmPointerRead8(m, rde);
|
|
f[0].i = Read32(p + 0 * 4);
|
|
f[1].i = Read32(p + 1 * 4);
|
|
switch ((m->mxcsr & kMxcsrRc) >> 13) {
|
|
case 0:
|
|
for (i = 0; i < 2; ++i) n[i] = rintf(f[i].f);
|
|
break;
|
|
case 1:
|
|
for (i = 0; i < 2; ++i) n[i] = floorf(f[i].f);
|
|
break;
|
|
case 2:
|
|
for (i = 0; i < 2; ++i) n[i] = ceilf(f[i].f);
|
|
break;
|
|
case 3:
|
|
for (i = 0; i < 2; ++i) n[i] = truncf(f[i].f);
|
|
break;
|
|
default:
|
|
for (;;) (void)0;
|
|
}
|
|
Write32(MmReg(m, rde) + 0, n[0]);
|
|
Write32(MmReg(m, rde) + 4, n[1]);
|
|
}
|
|
|
|
static void OpPpiWpsqCvttps2pi(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t n[2];
|
|
union FloatPun f[2];
|
|
p = GetModrmRegisterXmmPointerRead8(m, rde);
|
|
f[0].i = Read32(p + 0);
|
|
f[1].i = Read32(p + 4);
|
|
n[0] = f[0].f;
|
|
n[1] = f[1].f;
|
|
Write32(MmReg(m, rde) + 0, n[0]);
|
|
Write32(MmReg(m, rde) + 4, n[1]);
|
|
}
|
|
|
|
static void OpPpiWpdCvtpd2pi(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
unsigned i;
|
|
int32_t n[2];
|
|
union DoublePun d[2];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
d[0].i = Read64(p + 0);
|
|
d[1].i = Read64(p + 8);
|
|
for (i = 0; i < 2; ++i) n[i] = SseRoundDouble(m, d[i].f);
|
|
Write32(MmReg(m, rde) + 0, n[0]);
|
|
Write32(MmReg(m, rde) + 4, n[1]);
|
|
}
|
|
|
|
static void OpPpiWpdCvttpd2pi(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t n[2];
|
|
union DoublePun d[2];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
d[0].i = Read64(p + 0);
|
|
d[1].i = Read64(p + 8);
|
|
n[0] = d[0].f;
|
|
n[1] = d[1].f;
|
|
Write32(MmReg(m, rde) + 0, n[0]);
|
|
Write32(MmReg(m, rde) + 4, n[1]);
|
|
}
|
|
|
|
static void OpVpdWpsCvtps2pd(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
union FloatPun f[2];
|
|
union DoublePun d[2];
|
|
p = GetModrmRegisterXmmPointerRead8(m, rde);
|
|
f[0].i = Read32(p + 0);
|
|
f[1].i = Read32(p + 4);
|
|
d[0].f = f[0].f;
|
|
d[1].f = f[1].f;
|
|
Write64(XmmRexrReg(m, rde) + 0, d[0].i);
|
|
Write64(XmmRexrReg(m, rde) + 8, d[1].i);
|
|
}
|
|
|
|
static void OpVpsWpdCvtpd2ps(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
union FloatPun f[2];
|
|
union DoublePun d[2];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
d[0].i = Read64(p + 0);
|
|
d[1].i = Read64(p + 8);
|
|
f[0].f = d[0].f;
|
|
f[1].f = d[1].f;
|
|
Write32(XmmRexrReg(m, rde) + 0, f[0].i);
|
|
Write32(XmmRexrReg(m, rde) + 4, f[1].i);
|
|
}
|
|
|
|
static void OpVssWsdCvtsd2ss(struct Machine *m, uint32_t rde) {
|
|
union FloatPun f;
|
|
union DoublePun d;
|
|
d.i = Read64(GetModrmRegisterXmmPointerRead8(m, rde));
|
|
f.f = d.f;
|
|
Write32(XmmRexrReg(m, rde), f.i);
|
|
}
|
|
|
|
static void OpVsdWssCvtss2sd(struct Machine *m, uint32_t rde) {
|
|
union FloatPun f;
|
|
union DoublePun d;
|
|
f.i = Read32(GetModrmRegisterXmmPointerRead4(m, rde));
|
|
d.f = f.f;
|
|
Write64(XmmRexrReg(m, rde), d.i);
|
|
}
|
|
|
|
static void OpVpsWdqCvtdq2ps(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t n[4];
|
|
union FloatPun f[4];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
n[0] = Read32(p + 0 * 4);
|
|
n[1] = Read32(p + 1 * 4);
|
|
n[2] = Read32(p + 2 * 4);
|
|
n[3] = Read32(p + 3 * 4);
|
|
f[0].f = n[0];
|
|
f[1].f = n[1];
|
|
f[2].f = n[2];
|
|
f[3].f = n[3];
|
|
Write32(XmmRexrReg(m, rde) + 0 * 4, f[0].i);
|
|
Write32(XmmRexrReg(m, rde) + 1 * 4, f[1].i);
|
|
Write32(XmmRexrReg(m, rde) + 2 * 4, f[2].i);
|
|
Write32(XmmRexrReg(m, rde) + 3 * 4, f[3].i);
|
|
}
|
|
|
|
static void OpVpdWdqCvtdq2pd(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t n[2];
|
|
union DoublePun d[2];
|
|
p = GetModrmRegisterXmmPointerRead8(m, rde);
|
|
n[0] = Read32(p + 0 * 4);
|
|
n[1] = Read32(p + 1 * 4);
|
|
d[0].f = n[0];
|
|
d[1].f = n[1];
|
|
Write64(XmmRexrReg(m, rde) + 0, d[0].i);
|
|
Write64(XmmRexrReg(m, rde) + 8, d[1].i);
|
|
}
|
|
|
|
static void OpVdqWpsCvttps2dq(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t n[4];
|
|
union FloatPun f[4];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
f[0].i = Read32(p + 0 * 4);
|
|
f[1].i = Read32(p + 1 * 4);
|
|
f[2].i = Read32(p + 2 * 4);
|
|
f[3].i = Read32(p + 3 * 4);
|
|
n[0] = f[0].f;
|
|
n[1] = f[1].f;
|
|
n[2] = f[2].f;
|
|
n[3] = f[3].f;
|
|
Write32(XmmRexrReg(m, rde) + 0 * 4, n[0]);
|
|
Write32(XmmRexrReg(m, rde) + 1 * 4, n[1]);
|
|
Write32(XmmRexrReg(m, rde) + 2 * 4, n[2]);
|
|
Write32(XmmRexrReg(m, rde) + 3 * 4, n[3]);
|
|
}
|
|
|
|
static void OpVdqWpsCvtps2dq(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
unsigned i;
|
|
int32_t n[4];
|
|
union FloatPun f[4];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
f[0].i = Read32(p + 0 * 4);
|
|
f[1].i = Read32(p + 1 * 4);
|
|
f[2].i = Read32(p + 2 * 4);
|
|
f[3].i = Read32(p + 3 * 4);
|
|
switch ((m->mxcsr & kMxcsrRc) >> 13) {
|
|
case 0:
|
|
for (i = 0; i < 4; ++i) n[i] = rintf(f[i].f);
|
|
break;
|
|
case 1:
|
|
for (i = 0; i < 4; ++i) n[i] = floorf(f[i].f);
|
|
break;
|
|
case 2:
|
|
for (i = 0; i < 4; ++i) n[i] = ceilf(f[i].f);
|
|
break;
|
|
case 3:
|
|
for (i = 0; i < 4; ++i) n[i] = truncf(f[i].f);
|
|
break;
|
|
default:
|
|
for (;;) (void)0;
|
|
}
|
|
Write32(XmmRexrReg(m, rde) + 0 * 4, n[0]);
|
|
Write32(XmmRexrReg(m, rde) + 1 * 4, n[1]);
|
|
Write32(XmmRexrReg(m, rde) + 2 * 4, n[2]);
|
|
Write32(XmmRexrReg(m, rde) + 3 * 4, n[3]);
|
|
}
|
|
|
|
static void OpVdqWpdCvttpd2dq(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
int32_t n[2];
|
|
union DoublePun d[2];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
d[0].i = Read64(p + 0);
|
|
d[1].i = Read64(p + 8);
|
|
n[0] = d[0].f;
|
|
n[1] = d[1].f;
|
|
Write32(XmmRexrReg(m, rde) + 0, n[0]);
|
|
Write32(XmmRexrReg(m, rde) + 4, n[1]);
|
|
}
|
|
|
|
static void OpVdqWpdCvtpd2dq(struct Machine *m, uint32_t rde) {
|
|
uint8_t *p;
|
|
unsigned i;
|
|
int32_t n[2];
|
|
union DoublePun d[2];
|
|
p = GetModrmRegisterXmmPointerRead16(m, rde);
|
|
d[0].i = Read64(p + 0);
|
|
d[1].i = Read64(p + 8);
|
|
for (i = 0; i < 2; ++i) n[i] = SseRoundDouble(m, d[i].f);
|
|
Write32(XmmRexrReg(m, rde) + 0, n[0]);
|
|
Write32(XmmRexrReg(m, rde) + 4, n[1]);
|
|
}
|
|
|
|
static void OpCvt(struct Machine *m, uint32_t rde, unsigned long op) {
|
|
switch (op | Rep(rde) | Osz(rde)) {
|
|
case kOpCvt0f2a + 0:
|
|
OpVpsQpiCvtpi2ps(m, rde);
|
|
break;
|
|
case kOpCvt0f2a + 1:
|
|
OpVpdQpiCvtpi2pd(m, rde);
|
|
break;
|
|
case kOpCvt0f2a + 2:
|
|
OpVsdEdqpCvtsi2sd(m, rde);
|
|
break;
|
|
case kOpCvt0f2a + 3:
|
|
OpVssEdqpCvtsi2ss(m, rde);
|
|
break;
|
|
case kOpCvtt0f2c + 0:
|
|
OpPpiWpsqCvttps2pi(m, rde);
|
|
break;
|
|
case kOpCvtt0f2c + 1:
|
|
OpPpiWpdCvttpd2pi(m, rde);
|
|
break;
|
|
case kOpCvtt0f2c + 2:
|
|
OpGdqpWsdCvttsd2si(m, rde);
|
|
break;
|
|
case kOpCvtt0f2c + 3:
|
|
OpGdqpWssCvttss2si(m, rde);
|
|
break;
|
|
case kOpCvt0f2d + 0:
|
|
OpPpiWpsqCvtps2pi(m, rde);
|
|
break;
|
|
case kOpCvt0f2d + 1:
|
|
OpPpiWpdCvtpd2pi(m, rde);
|
|
break;
|
|
case kOpCvt0f2d + 2:
|
|
OpGdqpWsdCvtsd2si(m, rde);
|
|
break;
|
|
case kOpCvt0f2d + 3:
|
|
OpGdqpWssCvtss2si(m, rde);
|
|
break;
|
|
case kOpCvt0f5a + 0:
|
|
OpVpdWpsCvtps2pd(m, rde);
|
|
break;
|
|
case kOpCvt0f5a + 1:
|
|
OpVpsWpdCvtpd2ps(m, rde);
|
|
break;
|
|
case kOpCvt0f5a + 2:
|
|
OpVssWsdCvtsd2ss(m, rde);
|
|
break;
|
|
case kOpCvt0f5a + 3:
|
|
OpVsdWssCvtss2sd(m, rde);
|
|
break;
|
|
case kOpCvt0f5b + 0:
|
|
OpVpsWdqCvtdq2ps(m, rde);
|
|
break;
|
|
case kOpCvt0f5b + 1:
|
|
OpVdqWpsCvtps2dq(m, rde);
|
|
break;
|
|
case kOpCvt0f5b + 3:
|
|
OpVdqWpsCvttps2dq(m, rde);
|
|
break;
|
|
case kOpCvt0fE6 + 1:
|
|
OpVdqWpdCvtpd2dq(m, rde);
|
|
break;
|
|
case kOpCvt0fE6 + 2:
|
|
OpVdqWpdCvttpd2dq(m, rde);
|
|
break;
|
|
case kOpCvt0fE6 + 3:
|
|
OpVpdWdqCvtdq2pd(m, rde);
|
|
break;
|
|
default:
|
|
OpUd(m, rde);
|
|
}
|
|
}
|
|
|
|
void OpCvt0f2a(struct Machine *m, uint32_t rde) {
|
|
OpCvt(m, rde, kOpCvt0f2a);
|
|
}
|
|
|
|
void OpCvtt0f2c(struct Machine *m, uint32_t rde) {
|
|
OpCvt(m, rde, kOpCvtt0f2c);
|
|
}
|
|
|
|
void OpCvt0f2d(struct Machine *m, uint32_t rde) {
|
|
OpCvt(m, rde, kOpCvt0f2d);
|
|
}
|
|
|
|
void OpCvt0f5a(struct Machine *m, uint32_t rde) {
|
|
OpCvt(m, rde, kOpCvt0f5a);
|
|
}
|
|
|
|
void OpCvt0f5b(struct Machine *m, uint32_t rde) {
|
|
OpCvt(m, rde, kOpCvt0f5b);
|
|
}
|
|
|
|
void OpCvt0fE6(struct Machine *m, uint32_t rde) {
|
|
OpCvt(m, rde, kOpCvt0fE6);
|
|
}
|