Miroirs/skint
1
0
Fork 0
mirror of https://github.com/false-schemers/skint.git synced 2025-01-13 20:03:30 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

istagged_inline

Browse source
This commit is contained in:
ESL 2023-04-03 09:23:04 -04:00
parent 65c6fc6f7f
commit e71a8bde52
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
i.c
View file

@ -122,6 +122,12 @@ static obj *init_modules(obj *r, obj *sp, obj *hp);
#define VM_STACK_RSZ 256 /* red zone for overflow checks */
#define VM_STACK_GSZ (VM_STACK_LEN-VM_STACK_RSZ)
/* faster non-debug type testing */
#ifdef NDEBUG /* quick */
static int istagged_inline(obj o, int t) { return isobjptr(o) && hblkref(o, 0) == obj_from_size(t); }
#define istagged(o, t) istagged_inline(o, t)
#endif
/* box representation extras */
#define boxbsz() hbsz(1+1)
#define hend_box() (*--hp = obj_from_size(BOX_BTAG), hendblk(1+1))