Miroirs/rpn
1
0
Fork 0
mirror of https://github.com/louisrubet/rpn synced 2025-01-01 18:20:06 +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;
int 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
_stack->push_back(symb, symb->size(), cmd_symbol);
}

2
src/stack.h
View file

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