st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-24 07:38:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bsexp impl without additional buffer, s_rotate fix

Browse source
This commit is contained in:
ProgramSnail 2025-03-09 16:33:56 +03:00
parent 032d249ed4
commit 2e59845cec
3 changed files with 21 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

7
byterun/include/stack.h
View file

@ -145,7 +145,6 @@ static inline void s_put_nth(size_t n, void *val) {
}
static inline void s_rotate_n(size_t n) {
s_push_nil();
#ifndef WITH_CHECK
if ((void **)__gc_stack_top + (aint)n - 1 >= s_top()) {
s_failure(&s, "not enough elements in stack");
@ -156,9 +155,9 @@ static inline void s_rotate_n(size_t n) {
#endif
void *buf = NULL;
for (size_t i = 0; 2 * i < n; ++i) {
buf = ((void **)__gc_stack_top)[n - i];
((void **)__gc_stack_top)[n - i] = ((void **)__gc_stack_top)[i];
for (size_t i = 0; 2 * i + 1 < n; ++i) {
buf = ((void **)__gc_stack_top)[n - i - 1];
((void **)__gc_stack_top)[n - i - 1] = ((void **)__gc_stack_top)[i];
((void **)__gc_stack_top)[i] = buf;
}
}