Add bswap/bswap16 post MVP polyfills (#34)

This commit is contained in:
Max Graey 2018-02-19 13:35:28 +02:00 committed by Daniel Wirtz
parent 31633899f9
commit de1c4b3da5
8 changed files with 3301 additions and 0 deletions

5
std/assembly.d.ts vendored
View File

@ -175,6 +175,11 @@ declare function free_memory(ptr: usize): void;
/** Emits an unreachable operation that results in a runtime error when executed. Both a statement and an expression of any type. */
declare function unreachable(): any; // sic
/** [Polyfill] Performs the sign-agnostic reverse bytes **/
declare function bswap<T = i8 | u8 | i16 | u16 | i32 | u32 | i64 | u64 | isize | usize>(value: T): T;
/** [Polyfill] Performs the sign-agnostic reverse bytes only for last 16-bit **/
declare function bswap16<T = i8 | u8 | i16 | u16 | i32 | u32>(value: T): T;
/** NaN (not a number) as a 32-bit or 64-bit float depending on context. */
declare const NaN: f32 | f64;
/** Positive infinity as a 32-bit or 64-bit float depending on context. */

View File

@ -12,3 +12,7 @@ export class Error {
export class RangeError extends Error {
name: string = "RangeError";
}
export class TypeError extends Error {
name: string = "TypeError";
}

31
std/assembly/polyfills.ts Normal file
View File

@ -0,0 +1,31 @@
export function bswap<T>(value: T): T {
assert(sizeof<T>() == 1 || sizeof<T>() == 2 || sizeof<T>() == 4 || sizeof<T>() == 8);
if (sizeof<T>() == 2) {
return bswap16<T>(value);
} else if (sizeof<T>() == 4) {
return <T>(
rotl<u32>(<u32>value & 0xFF00FF00, 8) |
rotr<u32>(<u32>value & 0x00FF00FF, 8)
);
} else if (sizeof<T>() == 8) {
var a: u64 = (<u64>value >> 8) & 0x00FF00FF00FF00FF;
var b: u64 = (<u64>value & 0x00FF00FF00FF00FF) << 8;
var v: u64 = a | b;
a = (v >> 16) & 0x0000FFFF0000FFFF;
b = (v & 0x0000FFFF0000FFFF) << 16;
return <T>rotr<u64>(a | b, 32);
}
return value;
}
export function bswap16<T>(value: T): T {
assert(sizeof<T>() == 1 || sizeof<T>() == 2 || sizeof<T>() == 4);
if (sizeof<T>() == 2 || sizeof<T>() == 4) {
return <T>(((value << 8) & <T>0xFF00) | ((value >> 8) & <T>0x00FF) | (value & <T>0xFFFF0000));
}
return value;
}

5
std/portable.d.ts vendored
View File

@ -129,6 +129,11 @@ declare function store<T = u8>(ptr: usize, value: T, constantOffset?: usize): vo
/** Emits an unreachable operation that results in a runtime error when executed. */
declare function unreachable(): any; // sic
/** [Polyfill] Performs the sign-agnostic reverse bytes **/
declare function bswap<T = i32 | u32 | isize | usize>(value: T): T;
/** [Polyfill] Performs the sign-agnostic reverse bytes only for last 16-bit **/
declare function bswap16<T = i16 | u16 | i32 | u32>(value: T): T;
/** Changes the type of any value of `usize` kind to another one of `usize` kind. Useful for casting class instances to their pointer values and vice-versa. Beware that this is unsafe.*/
declare function changetype<T>(value: any): T;
/** Traps if the specified value is not true-ish, otherwise returns the value. */

View File

@ -71,6 +71,19 @@ globalScope["select"] = function select(ifTrue, ifFalse, condition) { return con
globalScope["sqrt"] = Math.sqrt;
globalScope["trunc"] = Math.trunc;
globalScope["bswap"] = function bswap(value) {
var a = value >> 8 & 0x00FF00FF;
var b = (value & 0x00FF00FF) << 8;
value = a | b;
a = value >> 16 & 0x0000FFFF;
b = (value & 0x0000FFFF) << 16;
return a | b;
}
globalScope["bswap16"] = function bswap16(value) {
return ((value << 8) & 0xFF00) | ((value >> 8) & 0x00FF) | (value & 0xFFFF0000);
}
function UnreachableError() {
if (Error.captureStackTrace)
Error.captureStackTrace(this, UnreachableError);

View File

@ -0,0 +1,707 @@
(module
(type $iiiiv (func (param i32 i32 i32 i32)))
(type $ii (func (param i32) (result i32)))
(type $II (func (param i64) (result i64)))
(type $v (func))
(import "env" "abort" (func $abort (param i32 i32 i32 i32)))
(memory $0 1)
(data (i32.const 4) "\12\00\00\00(\00l\00i\00b\00)\00/\00p\00o\00l\00y\00f\00i\00l\00l\00s\00.\00t\00s")
(data (i32.const 44) "\10\00\00\00s\00t\00d\00/\00p\00o\00l\00y\00f\00i\00l\00l\00s\00.\00t\00s")
(export "memory" (memory $0))
(start $start)
(func "$(lib)/polyfills/bswap16<u16>" (; 1 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 1)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 25)
(i32.const 2)
)
(unreachable)
)
)
(if
(i32.and
(if (result i32)
(tee_local $1
(i32.const 1)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
(return
(i32.or
(i32.or
(i32.and
(i32.shl
(get_local $0)
(i32.const 8)
)
(i32.const 65280)
)
(i32.and
(i32.shr_u
(get_local $0)
(i32.const 8)
)
(i32.const 255)
)
)
(i32.and
(get_local $0)
(i32.const 0)
)
)
)
)
(get_local $0)
)
(func "$(lib)/polyfills/bswap<u16>" (; 2 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 1)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 2)
(i32.const 2)
)
(unreachable)
)
)
(call "$(lib)/polyfills/bswap16<u16>"
(get_local $0)
)
)
(func "$(lib)/polyfills/bswap16<i16>" (; 3 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 1)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 25)
(i32.const 2)
)
(unreachable)
)
)
(if
(i32.and
(if (result i32)
(tee_local $1
(i32.const 1)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
(return
(i32.shr_s
(i32.shl
(i32.or
(i32.or
(i32.shr_s
(i32.shl
(i32.and
(i32.shr_s
(i32.shl
(get_local $0)
(i32.const 24)
)
(i32.const 16)
)
(i32.const -256)
)
(i32.const 16)
)
(i32.const 16)
)
(i32.and
(i32.shr_s
(get_local $0)
(i32.const 8)
)
(i32.const 255)
)
)
(i32.and
(get_local $0)
(i32.const 0)
)
)
(i32.const 16)
)
(i32.const 16)
)
)
)
(get_local $0)
)
(func "$(lib)/polyfills/bswap<i16>" (; 4 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 1)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 2)
(i32.const 2)
)
(unreachable)
)
)
(call "$(lib)/polyfills/bswap16<i16>"
(get_local $0)
)
)
(func "$(lib)/polyfills/bswap16<u32>" (; 5 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 0)
(i32.const 1)
)
)
(get_local $1)
(i32.const 1)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 25)
(i32.const 2)
)
(unreachable)
)
)
(if
(i32.and
(if (result i32)
(tee_local $1
(i32.const 0)
)
(get_local $1)
(i32.const 1)
)
(i32.const 1)
)
(return
(i32.or
(i32.or
(i32.and
(i32.shl
(get_local $0)
(i32.const 8)
)
(i32.const 65280)
)
(i32.and
(i32.shr_u
(get_local $0)
(i32.const 8)
)
(i32.const 255)
)
)
(i32.and
(get_local $0)
(i32.const -65536)
)
)
)
)
(get_local $0)
)
(func "$(lib)/polyfills/bswap<u32>" (; 6 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 0)
(i32.const 1)
)
)
(get_local $1)
(i32.const 1)
)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 2)
(i32.const 2)
)
(unreachable)
)
)
(i32.or
(i32.rotl
(i32.and
(get_local $0)
(i32.const -16711936)
)
(i32.const 8)
)
(i32.rotr
(i32.and
(get_local $0)
(i32.const 16711935)
)
(i32.const 8)
)
)
)
(func "$(lib)/polyfills/bswap16<i32>" (; 7 ;) (type $ii) (param $0 i32) (result i32)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 0)
(i32.const 1)
)
)
(get_local $1)
(i32.const 1)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 25)
(i32.const 2)
)
(unreachable)
)
)
(if
(i32.and
(if (result i32)
(tee_local $1
(i32.const 0)
)
(get_local $1)
(i32.const 1)
)
(i32.const 1)
)
(return
(i32.or
(i32.or
(i32.and
(i32.shl
(get_local $0)
(i32.const 8)
)
(i32.const 65280)
)
(i32.and
(i32.shr_s
(get_local $0)
(i32.const 8)
)
(i32.const 255)
)
)
(i32.and
(get_local $0)
(i32.const -65536)
)
)
)
)
(get_local $0)
)
(func "$(lib)/polyfills/bswap<u64>" (; 8 ;) (type $II) (param $0 i64) (result i64)
(local $1 i32)
(if
(i32.eqz
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(if (result i32)
(tee_local $1
(i32.and
(i32.const 0)
(i32.const 1)
)
)
(get_local $1)
(i32.const 0)
)
(i32.const 1)
)
)
(get_local $1)
(i32.const 1)
)
(i32.const 1)
)
)
(block
(call $abort
(i32.const 0)
(i32.const 4)
(i32.const 2)
(i32.const 2)
)
(unreachable)
)
)
(i64.rotr
(i64.or
(i64.and
(i64.shr_u
(tee_local $0
(i64.or
(i64.and
(i64.shr_u
(get_local $0)
(i64.const 8)
)
(i64.const 71777214294589695)
)
(i64.shl
(i64.and
(get_local $0)
(i64.const 71777214294589695)
)
(i64.const 8)
)
)
)
(i64.const 16)
)
(i64.const 281470681808895)
)
(i64.shl
(i64.and
(get_local $0)
(i64.const 281470681808895)
)
(i64.const 16)
)
)
(i64.const 32)
)
)
(func $start (; 9 ;) (type $v)
(if
(i32.ne
(call "$(lib)/polyfills/bswap<u16>"
(i32.const 43707)
)
(i32.const 48042)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 4)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap<i16>"
(i32.const -21829)
)
(i32.const -17494)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 5)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap<u32>"
(i32.const -1430532899)
)
(i32.const -573785174)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 8)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap<u32>"
(i32.const -1430532899)
)
(i32.const -573785174)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 9)
(i32.const 0)
)
(unreachable)
)
)
(if
(i64.ne
(call "$(lib)/polyfills/bswap<u64>"
(i64.const 4822679907192029)
)
(i64.const -2464388556401798912)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 12)
(i32.const 0)
)
(unreachable)
)
)
(if
(i64.ne
(call "$(lib)/polyfills/bswap<u64>"
(i64.const 4822679907192029)
)
(i64.const -2464388556401798912)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 13)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap<u32>"
(i32.const -1430532899)
)
(i32.const -573785174)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 16)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap<u32>"
(i32.const -1430532899)
)
(i32.const -573785174)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 17)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap16<u16>"
(i32.const 43707)
)
(i32.const 48042)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 20)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap16<i16>"
(i32.const -21829)
)
(i32.const -17494)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 21)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap16<u32>"
(i32.const -7820613)
)
(i32.const -7816278)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 24)
(i32.const 0)
)
(unreachable)
)
)
(if
(i32.ne
(call "$(lib)/polyfills/bswap16<i32>"
(i32.const -7820613)
)
(i32.const -7816278)
)
(block
(call $abort
(i32.const 0)
(i32.const 44)
(i32.const 25)
(i32.const 0)
)
(unreachable)
)
)
)
)

View File

@ -0,0 +1,25 @@
// bswap / bswap16 tests
// check bswap<T> for i16/u16
assert(bswap<u16>(<u16>0xaabb) == <u16>0xbbaa);
assert(bswap<i16>(<i16>0xaabb) == <i16>0xbbaa);
// check bswap<T> for i32/u32
assert(bswap<u32>(<u32>0xaabbccdd) == <u32>0xddccbbaa);
assert(bswap<i32>(<i32>0xaabbccdd) == <i32>0xddccbbaa);
// check bswap<T> for i64/u64
assert(bswap<u64>(<u64>0x00112233aabbccdd) == <u64>0xddccbbaa33221100);
assert(bswap<i64>(<i64>0x00112233aabbccdd) == <i64>0xddccbbaa33221100);
// check bswap<T> for i32/u32
assert(bswap<usize>(<usize>0xaabbccdd) == <usize>0xddccbbaa);
assert(bswap<isize>(<isize>0xaabbccdd) == <isize>0xddccbbaa);
// check bswap16<T> for i16/u16
assert(bswap16<u16>(<u16>0xaabb) == <u16>0xbbaa);
assert(bswap16<i16>(<i16>0xaabb) == <i16>0xbbaa);
// check bswap16<T> for i32/u32
assert(bswap16<u32>(<u32>0xff88aabb) == <u32>0xff88bbaa);
assert(bswap16<i32>(<i32>0xff88aabb) == <i32>0xff88bbaa);

File diff suppressed because it is too large Load Diff