felix/slime
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

trying not to leak memory

Browse Source
This commit is contained in:
FelixBrendel
2019-10-30 00:47:52 +01:00
parent 814cceaf3d
commit a790a38655
22 changed files with 204 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files
include/define_macros.hpp
+21
View File
@@ -128,3 +128,24 @@
#define in_caller_env fluid_let( \
Globals::Current_Execution::envi_stack.next_index, \
Globals::Current_Execution::envi_stack.next_index-1)
/*
* iterate over lisp vectors
*/
#define for_lisp_vector(v) \
if (!v); else \
if (int it_index = 0); else \
for (auto it = v->value.vector.data; \
it_index < v->value.vector.length; \
it=v->value.vector.data+(++it_index))
/*
* iterate over lisp lists
*/
#define for_lisp_list(l) \
if (!l); else \
if (int it_index = 0); else \
for (Lisp_Object* head = l, *it; \
Memory::get_type(head) == Lisp_Object_Type::Pair && (it = head->value.pair.first); \
head = head->value.pair.rest, ++it_index)
include/libslime.h
+5
View File
@@ -1,3 +1,5 @@
#pragma once
#include <functional>
#include "ftb/arraylist.hpp"
#include "ftb/hashmap.hpp"
@@ -182,11 +184,13 @@ namespace Slime {
void visualize_lisp_machine();
void generate_docs(String* path);
void log_error();
namespace Memory {
extern Lisp_Object* nil;
extern Lisp_Object* t;
Environment* create_child_environment(Environment* parent);
Environment* create_built_ins_environment();
Lisp_Object* create_lisp_object_cfunction(bool is_special);
Lisp_Object* get_or_create_lisp_object_keyword(const char* identifier);
@@ -196,6 +200,7 @@ namespace Slime {
void free_everything();
String* create_string(const char*);
Lisp_Object* create_lisp_object_number(double);
Lisp_Object* create_lisp_object_pointer(void*);
Lisp_Object* get_or_create_lisp_object_symbol(String* identifier);
Lisp_Object* get_or_create_lisp_object_symbol(const char*);
Lisp_Object* get_or_create_lisp_object_keyword(String* identifier);