Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #262 - Added test file

Browse source
This commit is contained in:
Justin Ethier 2018-06-14 13:22:53 -04:00
parent 7a6cf37a30
commit 5c54f45234
1 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
test-fixnum-packing.c Normal file
View file

@ -0,0 +1,27 @@
#include "include/cyclone/types.h"
#define my_obj_is_int(x) ((unsigned long)(x) & (unsigned long)1)
//
///**
// * Convert from an object to an integer.
// */
#define my_obj_obj2int(x) ((long)(x)>>1)
//
//+#define sexp_make_fixnum(n) ((sexp) ((((sexp_sint_t)(n))*(sexp_sint_t)(1uL<<SEXP_FIXNUM_BITS)) | SEXP_FIXNUM_TAG))
//+#define sexp_unbox_fixnum(n) (((sexp_sint_t)((sexp_uint_t)(n) & ~SEXP_FIXNUM_TAG))/(sexp_sint_t)(1uL<<SEXP_FIXNUM_BITS))
//
///**
// * Convert from an integer to an object.
// */
#define my_obj_int2obj(c) ((void *)((((long)c)<<1) | 1))
void main()
{
object tmp;
int n = -1;
tmp = my_obj_int2obj(-1);
printf("%p\n", my_obj_int2obj(-1));
printf("%d\n", my_obj_obj2int(tmp));
printf("%d\n", my_obj_is_int(tmp));
}