Hojun-Cho
7a4f60b041
Two cgen/check bugs surfaced by new lib modules, plus the modules
themselves (crc64, siphash, random, base64, base32).
1. `(big_u64): u32` (and `: u16`, `: u8`, `: bool`) didn't truncate.
N_CAST emitted nothing for int↔int; the value stayed in AX with
its upper bits intact and downstream CMPQ/DIVQ misread the slot.
The TK_TILDE path already had clamp logic for the same reason —
N_CAST was the missing case. Both stages now MOVL r,r for u32 and
ANDQ $mask for u8/u16/bool. Signed-narrow (i8/i16/i32) stays
no-op until w6a grows reg-reg MOVSBQ/MOVSWQ/MOVSXD. selfhost
cgcast walks alias chains via aliaslookup before checking
primsize/typenameisunsigned so `(u: random)` where
`type random = u64` still bypasses the clamp.
See cmd/w6c/cgen.c N_CAST and selfhost/cmd/wcc/cgenexpr.ww cgcast.
2. `mod.mod` type refs (`random.random` when the imported module
declares `export type random = u64;`) failed with "unknown type".
The driver concatenates imports into one flat scope, so SK_USE
`random` collided with SK_TYPE `random` and scope_define silently
dropped the use. resolve_typename's leaf lookup required
`kind == SK_USE` and gave up. Adds a `use_alias` flag to Sym; the
pass-1 decl scan now marks colliding syms in both directions
(use-after-type and type-after-use). resolve_typename and the
N_DOT cexpr branch treat `use_alias` like SK_USE for qualified
lookup. selfhost check.ww was already lenient on this path so no
ww-side change was needed; bootstrap fixed point (990-995) holds.
See cmd/wcc/check.c installdecl pass + N_DOT/resolve_typename and
cmd/wcc/ww.h Sym.use_alias.
New modules under lib/, each with @test vectors in *_test.ww and wired
into test/wcc/900_stdlib.c (26 modules → all compile):
- lib/hash/crc64 ECMA, ISO (mirror of crc32 shape)
- lib/hash/siphash SipHash-2-4, buffer-based sum/sum24
- lib/math/random SplitMix64 (init, next, u32n, u64n)
- lib/encoding/base64 RFC 4648 std + url-safe encode/decode + sizes
- lib/encoding/base32 RFC 4648 std + base32hex encode/decode + sizes
76 lines
2.6 KiB
Plaintext
76 lines
2.6 KiB
Plaintext
use siphash;
|
|
|
|
fn putstr(s: str, into: []u8, off: i32) i32 = {
|
|
let i: i32 = 0;
|
|
for (i < s.len) {
|
|
into[off + i] = s[i];
|
|
i += 1;
|
|
};
|
|
return off + s.len;
|
|
};
|
|
|
|
@test fn refkey_msgN() void = {
|
|
// Reference SipHash-2-4 vectors: key = 0x00..0x0F, message =
|
|
// 0x00..0x{n-1}. The reference test suite ships 64 vectors;
|
|
// we verify a representative sample (n in {0,1,4,7,8,9,15,16,
|
|
// 23,32}) which exercises both the partial-block and whole-
|
|
// block paths.
|
|
let key: [16]u8;
|
|
let i: i32 = 0;
|
|
for (i < 16) { key[i] = i: u8; i += 1; };
|
|
let msg: [40]u8;
|
|
let j: i32 = 0;
|
|
for (j < 40) { msg[j] = j: u8; j += 1; };
|
|
|
|
if (siphash.sum24(key[0:16], msg[0:0]) != 0x726FDB47DD0E0E31u64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:1]) != 0x74F839C593DC67FDu64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:4]) != 0xCF2794E0277187B7u64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:7]) != 0xAB0200F58B01D137u64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:8]) != 0x93F5F5799A932462u64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:9]) != 0x9E0082DF0BA9E4B0u64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:15]) != 0xA129CA6149BE45E5u64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:16]) != 0x3F2ACC7F57C29BDBu64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:23]) != 0xA80C038CCD5CCEC8u64) { let _: i32 = 1/0; };
|
|
if (siphash.sum24(key[0:16], msg[0:32]) != 0x7127512F72F27CCEu64) { let _: i32 = 1/0; };
|
|
};
|
|
|
|
@test fn ascii() void = {
|
|
let key: [16]u8;
|
|
let kstr: str = "sixteen-bytkey!?";
|
|
let i: i32 = 0;
|
|
for (i < 16) { key[i] = kstr[i]; i += 1; };
|
|
|
|
let buf: [128]u8;
|
|
let n: i32 = 0;
|
|
n = putstr("a", buf[0:128], 0);
|
|
if (siphash.sum24(key[0:16], buf[0:n]) != 0xFA7E197B2F4427D4u64) { let _: i32 = 1/0; };
|
|
|
|
n = putstr("abc", buf[0:128], 0);
|
|
if (siphash.sum24(key[0:16], buf[0:n]) != 0x133D3A92BB9CA86Bu64) { let _: i32 = 1/0; };
|
|
|
|
n = putstr("foobar", buf[0:128], 0);
|
|
if (siphash.sum24(key[0:16], buf[0:n]) != 0x84D2B5169DB6D3BFu64) { let _: i32 = 1/0; };
|
|
|
|
n = putstr("hello world", buf[0:128], 0);
|
|
if (siphash.sum24(key[0:16], buf[0:n]) != 0xB0417FA523CF7B36u64) { let _: i32 = 1/0; };
|
|
|
|
n = putstr("The quick brown fox jumps over the lazy dog", buf[0:128], 0);
|
|
if (siphash.sum24(key[0:16], buf[0:n]) != 0xA4CBBF0BDB704790u64) { let _: i32 = 1/0; };
|
|
};
|
|
|
|
@test fn empty() void = {
|
|
let key: [16]u8;
|
|
let kstr: str = "sixteen-bytkey!?";
|
|
let i: i32 = 0;
|
|
for (i < 16) { key[i] = kstr[i]; i += 1; };
|
|
let empty: [1]u8;
|
|
if (siphash.sum24(key[0:16], empty[0:0]) != 0x2A51AE0682925836u64) { let _: i32 = 1/0; };
|
|
};
|
|
|
|
export fn main() i32 = {
|
|
refkey_msgN();
|
|
ascii();
|
|
empty();
|
|
return 0;
|
|
};
|