steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix recent regression

slava 2006-11-21 10:17:46 +00:00
parent 7937770516
commit ab4df9d8e6
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
TODO.FACTOR.txt
View File

@ -1,12 +1,13 @@
+ 0.87: + 0.87:
- thrown_* vars are not gc roots
- "ker" C+u: for a moment, full vocab list is shown
- : foo \ each reload foo ; foo eventually crashes - : foo \ each reload foo ; foo eventually crashes
- list usability - list usability
- popup: -- close button - popup: -- close button
- popup: -- pin button - popup: -- pin button
- some module operations don't work on module-links - some module operations don't work on module-links
- modules: core/ libs/ apps/ - modules: core/ libs/ apps/
- xml: "</a>" string>xml miscompiles
- top level window positioning on ms windows - top level window positioning on ms windows
- scroll>rect broken if there are gadgets in between - scroll>rect broken if there are gadgets in between
- completion is not ideal: eg, C+e "buttons" - completion is not ideal: eg, C+e "buttons"
@ -16,7 +17,6 @@
- callback scheduling issue - callback scheduling issue
- httpd crash - httpd crash
- fep when closing window - fep when closing window
- : foo "ppc" make-image stdio get duplex-stream-out pane-stream-pane pane-clear foo ; foo
- these things are "Too Slow": - these things are "Too Slow":
- all-words - all-words
- make-image - make-image

4
vm/types.c
View File

@ -381,7 +381,11 @@ void update_xt(F_WORD* word)
/* <word> ( name vocabulary -- word ) */ /* <word> ( name vocabulary -- word ) */
F_WORD *allot_word(CELL vocab, CELL name) F_WORD *allot_word(CELL vocab, CELL name)
{ {
REGISTER_ROOT(vocab);
REGISTER_ROOT(name);
F_WORD *word = allot_object(WORD_TYPE,sizeof(F_WORD)); F_WORD *word = allot_object(WORD_TYPE,sizeof(F_WORD));
UNREGISTER_ROOT(name);
UNREGISTER_ROOT(vocab);
word->hashcode = tag_fixnum(rand()); word->hashcode = tag_fixnum(rand());
word->vocabulary = vocab; word->vocabulary = vocab;
word->name = name; word->name = name;