suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add TAIL_COPY_THRESHOLD to depth computed for closure bodies to avoid runstack overflow

Browse Source 
svn: r5505
This commit is contained in:
Matthew Flatt 2007-01-30 02:48:07 +00:00
parent 6596821faf
commit 1668d9c036
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/fun.c
View File

@ -1331,7 +1331,8 @@ scheme_resolve_closure_compilation(Scheme_Object *_data, Resolve_Info *info,
data->max_let_depth = (new_info->max_let_depth data->max_let_depth = (new_info->max_let_depth
+ num_params + num_params
+ closure_size + closure_size
+ convert_size); + convert_size
+ SCHEME_TAIL_COPY_THRESHOLD);
/* Add code to box set!ed argument variables: */ /* Add code to box set!ed argument variables: */
for (i = 0; i < num_params; i++) { for (i = 0; i < num_params; i++) {