Miroirs/rpn
1
0
Fork 0
mirror of https://github.com/louisrubet/rpn synced 2025-01-04 11:01:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

auto-eval progs

Browse source
This commit is contained in:
louis 2015-03-03 22:07:48 +01:00
parent 6369fca434
commit 74bd96ace4
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/rpn-store.h
View file

@ -38,7 +38,13 @@ void auto_rcl(symbol* symb)
unsigned int size; unsigned int size;
int type; int type;
if (_local_heap->get(string(symb->_value), obj, size, type) || _global_heap->get(string(symb->_value), obj, size, type)) if (_local_heap->get(string(symb->_value), obj, size, type) || _global_heap->get(string(symb->_value), obj, size, type))
_stack->push_back(obj, size, type); {
_stack->push_back(obj, size, type);
if (type == cmd_program)
{
eval();
}
}
else else
_stack->push_back(symb, symb->size(), cmd_symbol); _stack->push_back(symb, symb->size(), cmd_symbol);
} }

2
src/stack.h
View file

@ -10,7 +10,7 @@ using namespace std;
#include "debug.h" #include "debug.h"
#define ALLOC_BLOB (128*1024) #define ALLOC_BLOB (2*1024)
#define LOCAL_COPY_PLACES 3 #define LOCAL_COPY_PLACES 3
#define LOCAL_COPY_SIZE 128 #define LOCAL_COPY_SIZE 128