mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 15:43:01 +00:00
Code Issues 1 Releases Wiki Activity

refactor(c-api): Missed a few function of JanetFiber

Browse Source
This commit is contained in:
GrayJack
2024-04-17 05:36:50 -03:00
parent 3558237570
commit 2d17e08a8b
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/core/fiber.c
View File

@@ -137,7 +137,7 @@ static void janet_fiber_grow(JanetFiber *fiber, size_t needed) {
/* Push a value on the next stack frame */ /* Push a value on the next stack frame */
void janet_fiber_push(JanetFiber *fiber, Janet x) { void janet_fiber_push(JanetFiber *fiber, Janet x) {
if (fiber->stacktop == INT32_MAX) janet_panic("stack overflow"); if (fiber->stacktop == JANET_INTMAX_SIZE) janet_panic("stack overflow");
if (fiber->stacktop >= fiber->capacity) { if (fiber->stacktop >= fiber->capacity) {
janet_fiber_grow(fiber, fiber->stacktop); janet_fiber_grow(fiber, fiber->stacktop);
} }
@@ -146,7 +146,7 @@ void janet_fiber_push(JanetFiber *fiber, Janet x) {
/* Push 2 values on the next stack frame */ /* Push 2 values on the next stack frame */
void janet_fiber_push2(JanetFiber *fiber, Janet x, Janet y) { void janet_fiber_push2(JanetFiber *fiber, Janet x, Janet y) {
if (fiber->stacktop >= INT32_MAX - 1) janet_panic("stack overflow"); if (fiber->stacktop >= JANET_INTMAX_SIZE - 1) janet_panic("stack overflow");
size_t newtop = fiber->stacktop + 2; size_t newtop = fiber->stacktop + 2;
if (newtop > fiber->capacity) { if (newtop > fiber->capacity) {
janet_fiber_grow(fiber, newtop); janet_fiber_grow(fiber, newtop);
@@ -158,7 +158,7 @@ void janet_fiber_push2(JanetFiber *fiber, Janet x, Janet y) {
/* Push 3 values on the next stack frame */ /* Push 3 values on the next stack frame */
void janet_fiber_push3(JanetFiber *fiber, Janet x, Janet y, Janet z) { void janet_fiber_push3(JanetFiber *fiber, Janet x, Janet y, Janet z) {
if (fiber->stacktop >= INT32_MAX - 2) janet_panic("stack overflow"); if (fiber->stacktop >= JANET_INTMAX_SIZE - 2) janet_panic("stack overflow");
size_t newtop = fiber->stacktop + 3; size_t newtop = fiber->stacktop + 3;
if (newtop > fiber->capacity) { if (newtop > fiber->capacity) {
janet_fiber_grow(fiber, newtop); janet_fiber_grow(fiber, newtop);
@@ -170,8 +170,8 @@ void janet_fiber_push3(JanetFiber *fiber, Janet x, Janet y, Janet z) {
} }
/* Push an array on the next stack frame */ /* Push an array on the next stack frame */
void janet_fiber_pushn(JanetFiber *fiber, const Janet *arr, int32_t n) { void janet_fiber_pushn(JanetFiber *fiber, const Janet *arr, size_t n) {
if (fiber->stacktop > (size_t) JANET_INTMAX_SIZE - n) janet_panic("stack overflow"); if (fiber->stacktop > JANET_INTMAX_SIZE - n) janet_panic("stack overflow");
size_t newtop = fiber->stacktop + n; size_t newtop = fiber->stacktop + n;
if (newtop > fiber->capacity) { if (newtop > fiber->capacity) {
janet_fiber_grow(fiber, newtop); janet_fiber_grow(fiber, newtop);

2
src/core/fiber.h
View File

@@ -74,7 +74,7 @@ void janet_fiber_setcapacity(JanetFiber *fiber, size_t n);
void janet_fiber_push(JanetFiber *fiber, Janet x); void janet_fiber_push(JanetFiber *fiber, Janet x);
void janet_fiber_push2(JanetFiber *fiber, Janet x, Janet y); void janet_fiber_push2(JanetFiber *fiber, Janet x, Janet y);
void janet_fiber_push3(JanetFiber *fiber, Janet x, Janet y, Janet z); void janet_fiber_push3(JanetFiber *fiber, Janet x, Janet y, Janet z);
void janet_fiber_pushn(JanetFiber *fiber, const Janet *arr, int32_t n); void janet_fiber_pushn(JanetFiber *fiber, const Janet *arr, size_t n);
int janet_fiber_funcframe(JanetFiber *fiber, JanetFunction *func); int janet_fiber_funcframe(JanetFiber *fiber, JanetFunction *func);
int janet_fiber_funcframe_tail(JanetFiber *fiber, JanetFunction *func); int janet_fiber_funcframe_tail(JanetFiber *fiber, JanetFunction *func);
void janet_fiber_cframe(JanetFiber *fiber, JanetCFunction cfun); void janet_fiber_cframe(JanetFiber *fiber, JanetCFunction cfun);