carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-11-04 01:25:04 +03:00
Code Issues Projects Releases Wiki Activity

core: fix Long_copy

Browse Source
This commit is contained in:
Joel Kaasinen 2018-12-09 18:07:19 +02:00
parent 30b9ffbde6
commit 454e1e68be
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/carp_long.h
View File

@ -25,7 +25,7 @@ long Long_bit_MINUS_or(long x, long y) { return x | y; }
long Long_bit_MINUS_xor(long x, long y) { return x ^ y; }
long Long_bit_MINUS_not(long x) { return ~x; }
int Long_copy(long *x) { return *x; }
long Long_copy(long *x) { return *x; }
long Long_mod(long x, long divider) {
return x % divider;
@ -46,4 +46,3 @@ int Long_to_MINUS_int(long a) {
long Long_from_MINUS_int(int a) {
return (long) a;
}

4
test/long_math.carp
View File

@ -3,6 +3,10 @@
(use-all Long Test)
(deftest test
(assert-equal test
21474836470l
@&21474836470l
"copy works as expected")
(assert-equal test
1l
(min 1l 2l)