# Segv with callcc like

**URL:** <https://www.ruby-forum.com/t/segv-with-callcc-like/106191>\
**Category:** Development\
**Created:** [June 7, 2007, 10:50am UTC](https://www.ruby-forum.com/t/segv-with-callcc-like/106191 "2007-06-07T10:50:45Z")\
**Posts on this page:** 2\
**Page:** 1

<div class="post-metadata">

**Author:** ![sugie](https://www.ruby-forum.com/letter_avatar_proxy/v4/letter/s/82dd89/32.png) [@sugie](https://www.ruby-forum.com/u/sugie)\
**Post date:** [June 7, 2007, 10:50am UTC](https://www.ruby-forum.com/t/segv-with-callcc-like/106191/1 "2007-06-07T10:50:45Z")

</div>

e$B:XF#$H?=$7$^$9!#$3$s$P$s$O!#e(B

e$B$U$H;W$$N)$C$F!"0JA0e(Bakre$B$5$s$,Ej$2$i$l$?e(Bcallcce$B$Ge(Bcoree$B$rEG$/%F%9%H$r8=\>u$Ne(B  
e$B\<BAu$G$b9T$C$F$_$^$7$?!#7k2L!"e(B[ruby-dev:24291]e$B$N$_$,8=:\_$G$be(Bcoree$B$rEG$/e(B  
e$B$h$&$G$9!#e(B

# [ruby-dev:30917]e$B$G$NA0?6$j$OBg$-$9$.$?$_$?$$$G$9!"$9$_$^$;$s!#e(B

$ cat 24291.rb

# “send” replaced with “funcall”

arr = (1…100).map {|i| i.to\_s }  
class \<\< arr[50]; self; end.funcall(:define\_method, :\<=\>) {|v|  
if not defined? $result  
callcc {|k| $k = k }  
else  
$result.clear; $result.compact!  
end  
1  
}  
$result = arr.sort\_by {|i| i }  
$k.call

## $ ruby-trunk 24291.rb 24291.rb:11: – stack frame ------------ 0000 (0x402dc008): 00000000 0001 (0x402dc00c): 00000004 0002 (0x402dc010): 00000001 0003 (0x402dc014): 4037ed18 0004 (0x402dc018): 00000004 0005 (0x402dc01c): 4037dc38 0006 (0x402dc020): 4037ed18 0007 (0x402dc024): 00000004 0008 (0x402dc028): 4035bf75 \<- lfp \<- dfp – control frame ---------- c:0004 p:---- s:0009 b:0009 l:000008 d:000008 CFUNC :sort\_by c:0003 p:0039 s:0006 b:0006 l:0x22d0 d:0x22d0 TOP 24291.rb:11 c:0002 p:---- s:0003 b:0003 l:000002 d:000002 FINISH :(null) c:0001 p:---- s:0001 b:-001 l:000000 d:000000 ------

## DBG\> : “24291.rb:11:in `’” – backtrace of native function call (Use addr2line) – 0x400e7a50 0x40042366 0x400af1df 0xffffe420 0x4003fb19 0x400c8f4d 0x4003fc3f 0x400e60ae 0x400e4d3d 0x400e5a69 0x400e5e6a 0x400e7c4b 0x40048901 0x40048934 0x400489a1 0x804874e 0x401bb974 0x8048661

[BUG] Segmentation fault  
ruby 1.9.0 (2007-06-07) [i686-linux]

e$B%"%!\<%H$7$^$7$?e(B (core dumped)

e$B$?$@$7!“0J2\<$N0lO”$N%F%9%H$O@5\>o$KF0:n$7$?;v$b9g$o$;$FJs9p$5$;$F$b$i$$e(B  
e$B$^$9!#e(B  
(e$BL58B%k!\<%W$9$k$b$N$O!"G0$N$?$ae(B10e$BIC0J\>eBT$C$F%A%’%C%/$7$^$7$?e(B)

[ruby-dev:25226]  
[ruby-dev:25003]  
[ruby-dev:24738]  
[ruby-dev:24737]  
[ruby-dev:24735]  
[ruby-dev:24727]  
[ruby-dev:24671]  
[ruby-dev:24642]  
[ruby-dev:24499]  
[ruby-dev:24487]  
[ruby-dev:24463]  
[ruby-dev:24432]  
[ruby-dev:24400]  
[ruby-dev:24399]  
[ruby-dev:24378]  
[ruby-dev:24311]  
[ruby-dev:24310]  
[ruby-dev:24303]  
[ruby-dev:24301]  
[ruby-dev:24289]  
[ruby-dev:24287]  
[ruby-dev:24284]

e$B$J$\*\>e5-$N%j%9%H$O!"\<j85$Ne(Bruby-deve$B%"!\<%+%$%Ve(B(2004/4e$B!Ae(B)e$B$re(B  
e$B!&Ej9F$7$?$N$,e(Bakre$B$5$s$G$"$je(B  
e$B!&K\J8$Ke(Bcallcce$B$,4^$^$l$ke(B  
e$B$H$$$&\>r7o$G%U%#%k%?%j%s%0$7$?8e!"$5$i$K@v$$=P$7$?$b$N$G$9!#e(B

e$B$h$m$7$/$\*4j$$$7$^$9!#e(B

---

<div class="post-metadata">

**Author:** ![sugie](https://www.ruby-forum.com/letter_avatar_proxy/v4/letter/s/82dd89/32.png) [@sugie](https://www.ruby-forum.com/u/sugie)\
**Post date:** [June 7, 2007, 11:27am UTC](https://www.ruby-forum.com/t/segv-with-callcc-like/106191/2 "2007-06-07T11:27:51Z")

</div>

e$B$J$+$@$G$9!#e(B

At Thu, 7 Jun 2007 17:49:35 +0900,  
Tadashi S. wrote in [ruby-dev:30918]:

> e$B$U$H;W$$N)$C$F!"0JA0e(Bakre$B$5$s$,Ej$2$i$l$?e(Bcallcce$B$Ge(Bcoree$B$rEG$/%F%9%H$r8=\>u$Ne(B  
> e$B\<BAu$G$b9T$C$F$_$^$7$?!#7k2L!"e(B[ruby-dev:24291]e$B$N$_$,8=:\_$G$be(Bcoree$B$rEG$/e(B  
> e$B$h$&$G$9!#e(B

e$B$$$C$Q$$$"$C$F8+Mn$H$7$F$?$\_$?$$$G$9$M$’!#e(B1.8e$B$G$b$=$N$^$^$N$h$&$Je(B  
e$B5$$,$7$^$9!#e(B

# Index: enum.c

— enum.c (revision 12456)  
+++ enum.c (working copy)  
@@ -628,5 +628,9 @@ sort\_by\_cmp(const void _ap, const void \*  
VALUE a = (_(NODE \*const _)ap)-\>u1.value;  
VALUE b = (_(NODE \*const \*)bp)-\>u1.value;

- VALUE ary = (VALUE)data;

- if (RBASIC(ary)-\>klass) {

- rb\_raise(rb\_eRuntimeError, “sort\_by reentered”);

- }  
return rb\_cmpint(rb\_funcall(a, id\_cmp, 1, b), a, b);  
}  
@@ -718,5 +722,6 @@ enum\_sort\_by(VALUE obj)  
rb\_block\_call(obj, id\_each, 0, 0, sort\_by\_i, ary);  
if (RARRAY\_LEN(ary) \> 1) {

- ruby\_qsort(RARRAY\_PTR(ary), RARRAY\_LEN(ary), sizeof(VALUE),  
sort\_by\_cmp, 0);

- ruby\_qsort(RARRAY\_PTR(ary), RARRAY\_LEN(ary), sizeof(VALUE),
- 

```
  sort_by_cmp, (void *)ary);

```

}  
if (RBASIC(ary)-\>klass) {