mirrors/Odin
1
0
Fork 0
mirror of https://github.com/odin-lang/Odin.git synced 2025-12-29 17:34:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

big: Prettify internal_cmp_digit.

Browse Source
This commit is contained in:
Jeroen van Rijn
2021-08-07 23:07:22 +02:00
parent fd95f50c56
commit 53bf66ce1e
3 changed files with 23 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/math/big/build.bat
View File

@@ -1,10 +1,10 @@
@echo off
:odin run . -vet
odin run . -vet
: -o:size
:odin build . -build-mode:shared -show-timings -o:minimal -no-bounds-check
:odin build . -build-mode:shared -show-timings -o:size -no-bounds-check
:odin build . -build-mode:shared -show-timings -o:size
odin build . -build-mode:shared -show-timings -o:speed -no-bounds-check
:odin build . -build-mode:shared -show-timings -o:speed -no-bounds-check
:odin build . -build-mode:shared -show-timings -o:speed
python test.py
:python test.py

1
core/math/big/compare.odin
View File

@@ -89,6 +89,7 @@ int_compare_digit :: proc(a: ^Int, b: DIGIT) -> (comparison: int, err: Error) {
return #force_inline internal_cmp_digit(a, b), nil;
}
int_cmp_digit :: int_compare_digit;
/*
Compare the magnitude of two `Int`s, unsigned.

44
core/math/big/internal.odin
View File

@@ -1046,40 +1046,34 @@ internal_compare :: proc { internal_int_compare, internal_int_compare_digit, };
internal_cmp :: internal_compare;
/*
Compare an `Int` to an unsigned number upto the size of the backing type.
Compare an `Int` to an unsigned number upto `DIGIT & _MASK`.
Returns -1 if `a` < `b`, 0 if `a` == `b` and 1 if `b` > `a`.
Returns -1 if `a` < `b`, 0 if `a` == `b` and 1 if `b` > `a`.
Expects `a` and `b` both to be valid `Int`s, i.e. initialized and not `nil`.
Expects: `a` and `b` both to be valid `Int`s, i.e. initialized and not `nil`.
*/
internal_int_compare_digit :: #force_inline proc(a: ^Int, b: DIGIT) -> (comparison: int) {
/*
Compare based on sign.
*/
a_is_negative := #force_inline internal_is_negative(a);
if #force_inline internal_is_negative(a) { return -1; }
/*
Compare based on magnitude.
*/
if a.used > 1 { return +1; }
/*
Compare the only digit in `a` to `b`.
*/
switch {
case a.digit[0] < b:
return -1;
case a.digit[0] == b:
return 0;
case a.digit[0] > b:
return +1;
case:
/*
Compare based on sign first.
*/
case a_is_negative: return -1;
/*
Then compare on magnitude.
*/
case a.used > 1: return +1;
/*
We have only one digit. Compare it against `b`.
*/
case a.digit[0] < b: return -1;
case a.digit[0] == b: return 0;
case a.digit[0] > b: return +1;
/*
Unreachable.
Just here because Odin complains about a missing return value at the bottom of the proc otherwise.
*/
return;
case: return;
}
}
internal_compare_digit :: proc { internal_int_compare_digit, };