mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-24 09:17:17 +00:00
Code Issues 1 Releases Wiki Activity

Fix a divide by 0 error when table is too small.

Browse Source
This commit is contained in:
Calvin Rose 2017-05-04 11:34:24 -04:00
parent bc82ce348a
commit 6ca5a76286
3 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/ds.c
View File

@ -176,7 +176,9 @@ void *gst_userdata(Gst *vm, uint32_t size, const GstUserType *utype) {
/* Create a new table */
GstTable *gst_table(Gst *vm, uint32_t capacity) {
GstTable *t = gst_alloc(vm, sizeof(GstTable));
GstValue *data = gst_zalloc(vm, capacity * sizeof(GstValue));
GstValue *data;
if (capacity < 2) capacity = 2;
data = gst_zalloc(vm, capacity * sizeof(GstValue));
t->data = data;
t->capacity = capacity;
t->count = 0;

3
libs/compile.gst
View File

@ -25,6 +25,3 @@
'literalsArray []
'slotMap []
}))
# Push a scope onto the compiler

9
libs/pp.gst
View File

@ -6,7 +6,7 @@
# Pretty print an array or tuple
(: print-seq (fn [start end a seen]
(: seen (if seen seen {}))
(if (get seen s) (get seen s)
(if (get seen a) (get seen a)
(do
(: parts [])
(: len (length a))
@ -18,7 +18,7 @@
(if (> len 0) (pop! parts))
(push! parts end)
(: ret (apply string start parts))
(set! seen s ret)
(set! seen a ret)
ret))))
# Pretty print an object or struct
@ -53,7 +53,4 @@
(: h (get handlers (type x)))
((if h h tostring) x seen)))
(print (pp [1 {4 5 6 7} 2 3]))
# Module export pattern - last expression in file is value of module
pp
# (print (pp [1 {4 5 6 7} 2 3]))