Re: pure-fns in byte-opt.el

[Mark Oteiza]

On 28/07/17 at 10:02am, Eli Zaretskii wrote:
> > Date: Thu, 27 Jul 2017 20:24:48 -0400
> > From: Mark Oteiza <address@hidden>
> > Cc: address@hidden, address@hidden
> >
> > #0  0x00000000005eb363 in wrong_type_argument (predicate=XIL(0x8550), 
> > value=XIL(0x3df5914)) at data.c:154
> > #1  0x000000000065ed98 in exec_byte_code (bytestr=XIL(0x2d8cb34), 
> > vector=XIL(0x17aec35), maxdepth=make_number(13), args_template=XIL(0), nargs=0, 
> > args=0x0) at bytecode.c:512
> >         op = 64
> >         type = CATCHER
> >         targets =
>
> Hmm... exec_byte_code directly above wrong_type_argument is a bit
> unfortunate.  But let's try to see what we can:
>
> > #3  0x000000000060f09b in Ffuncall (nargs=4, args=0x7fffffffb688) at eval.c:2742
> >         fun = XIL(0x17aee65)
> >         original_fun = XIL(0x20b0da0)
> >         funcar = XIL(0xce8cc0)
> >         numargs = 3
> >         val = make_number(897379714801469509)
> >         count = 58
>
> In this frame #3, what are the values of the important variables?
>
>  (gdb) frame 3
>  (gdb) pp original_fun

unidata-gen-table-word-list

>  (gdb) pp args[1]
>  (gdb) pp args[2]
>  (gdb) pp args[3]

decomposition
5
unidata-split-decomposition

>  (gdb) pp funcar
>  (gdb) pp fun

#<INVALID_LISP_OBJECT 0x00ce8cc0>
A@348!‰:ƒ¾5Ê=ƒ¾
@Ë=ƒW
address@hidden
@Î=ƒ¾
address@hidden
@
@address@hidden8!‰ƒª
:Ļ8
@=Ļ7
A‰‚y6,B8Ë=ƒ»Ð‚¼Ñ+:ƒî
ƒ'
address@hidden
8Ö:ȉ;
È<6,Xƒ
148Iˆ‚å

ƒ,
:6Z
@address@hidden8!‰ƒW
:6Z
A‰„˜:=çè:=Hé#Iˆ+=T‰=‚u*Ù1     ‰Õ\\Bçè:é##ˆ*=T‰=‚S*Ý.GÈ\"-Ø.ȉ?ƒ<address@hidden(address@hidden       T#ˆ?A‰?„*- @Iˆ    T?A‰?„*ê1Ø5#ˆê1ë/-B#ˆ1.‡" [slot idx val range elt tail make-char-table char-code-property-table nil -1 name CJK COMPATIBILITY 917760 VARIATION SELECTOR CJK\ COMPATIBILITY\ IDEOGRAPH VARIATION\ SELECTOR lsh -7 7 127 ["頩" "

𩖶" "飢" "
䬳" "餩" "
馧" "駂" "駾" "䯎" "𩬰" "鬒" "鱀" "鳽" "䳎" "䳭" "鵧" "𪃎" "䳸" "𪄅" "𪈎" "𪊑" "麻" "䵖" "黹" "黾" "鼅" "鼏" "鼖" "鼻" "𪘀" "菧" "
著" "
荓" "
菊" "
菌" "
菜" "𦰶" "
𦵫" "𦳕" "䔫" "蓱" "蓳" "蔖" "𧏊" "蕤" "𦼬" "䕝" "䕡" "𦾱" "𧃒" "䕫" "虐" "虜" "虧" "虩" "蚩" "蚈" "蜎" "蛢" "蝹" "蜨" "蝫" "螆" "䗗" "蟡" "蠁" 
"䗹" "衠" "衣" "𧙧" "裗" "裞" "䘵" "裺" "㒻" "𧢮" "𧥦" "䚾" "䛇" "誠" "諭" "變" "豕" "𧲨" "貫" "賁" "贛" "起" "𧼯" "𠠄" "跋" "趼" "跰" "𠣞" "軔" "輸" "𨗒" "𨗭" "邔" "郱" "鄑" "𨜮" "鄛" "鈸" "鋗" "鋘" "鉼" "鏹" "鐕" "𨯺" "開" "䦕" "閷" "𨵷" "䧦" "雃" "嶲" "霣" "𩅅" "𩈚" "䩮" "䩶" "韠" "𩐊" "䪲" "𩒖" "頋" "
"] unidata-word-list-compress 0 set-char-table-range sort #[(x y) A      AV‡" [x y] 2] 3 make-vector decomposition 32 error "Too many symbols in decomposition data" 8704 128 vectorp "" string mapconcat identity "" set-char-table-extra-slot 4 block-end block-word-table block-list word-table word-list table unidata-list val-func prop-idx prop start second first limit vec c len i --dotimes-limit-- --dolist-tail-- v p v code e] 13]