This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/JIT/HPP/singlecode_pop.h
Vitor Santos Costa ce84e60d08 cosmetic
2015-01-18 01:32:13 +00:00

37 lines
791 B
C

#define POP_N_INIT \
BLOCKADDRESS = (CELL)(*_PREG); \
register CELL d0; \
d0 = (*_PREG)->u.os.s; \
SP = (CELL *) (((char *) SP) + d0); \
d0 = SP[0]; \
if (d0) { \
(*_SREG) = (CELL *) (SP[1]); \
SP += 2; \
(*_PREG) = NEXTOP((*_PREG), s); \
GONext(); \
} \
else { \
(*_SREG) = (CELL *) (SP[1]); \
SP += 2; \
(*_PREG) = NEXTOP((*_PREG), s); \
GONextW(); \
}
#define POP_N_END \
BLOCK = (CELL)POP_N_END;
#define _pop_instinit \
BEGD(d0); \
d0 = SP[0]; \
(*_SREG) = (CELL *) (SP[1]); \
SP += 2; \
if (d0) { \
(*_PREG) = NEXTOP((*_PREG), e); \
GONEXT(); \
} \
else { \
(*_PREG) = NEXTOP((*_PREG), e); \
GONEXTW(); \
} \
ENDD(d0);