Re: pure-fns in byte-opt.el

[Mark Oteiza <mvoteiza@udel.edu>]

On 28/07/17 at 10:02am, Eli Zaretskii wrote:
>> Date: Thu, 27 Jul 2017 20:24:48 -0400
>> From: Mark Oteiza <mvoteiza@udel.edu>
>> Cc: schwab@suse.de, emacs-devel@gnu.org
>>
>> #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\x15\f@\x13\x0e3\x0e4\f8!‰\x12:ƒ¾\0\x0e5Ê=ƒ¾\0
@Ë=ƒW\0
A@Ì=„l\0\vÍYƒ¾\0
@Î=ƒ¾\0
A@Ï=ƒ¾\0
@
@‰\x14@\x13\x0e3\x0e4\f8!‰\x12ƒª\0
:Ļ\0\x0e8
@=Ļ\0\x0e7
A‰\x15‚y\0\x0e6\x0e,B\x13\x0e8Ë=ƒ»\0Ђ¼\0Ñ\x12+\v:ƒî\0
ƒ'\0
\x0e.ž\x18\v@\vAB‰\x13A\x16ƒâ\vC¤ˆ‚ê\0
\x1e8Ö\x1e:ȉ\x1e;\x1e
È\x1e<\x0e6\x0e,Xƒ\x1f\x01\x0e1\v\x0e4\f8Iˆ‚å\x01
ƒ,\x01\x0e:\v\x0e6Z
@‰\x14@‰\x13ƒ^\x01\v¨ƒ^\x01\v\x0e9Xƒ^\x01\x0e3\x0e4\f8!‰\x12ƒW\x01\x0e:\v\x0e6Z
A‰\x15„˜\x02\x0e:\x0e=çè\x0e:\x0e=Hé#Iˆ+\x0e=T‰\x16=‚u\x02*Ù\x0e1	‰Õ\\Bçè\x0e:é##ˆ*\x0e=T‰\x16=‚S\x02*Ý\x0e.GÈ\"\x16-Ø\x11\x0e.È\x1c‰\x1e?ƒ<\x03\x0e?@‰\x14AÈ\x1eD‰\x1e?ƒ(\x03\x0e?@\x16DÙ\x0e1\x0eD	T#ˆ\x0e?A‰\x16?„\x11\x03*\x0e-	\f@Iˆ	T\x11\x0e?A‰\x16?„\x02\x03*ê\x0e1Ø\x0e5#ˆê\x0e1ë\x0e/\x0e-B#ˆ\x0e1.\f‡" [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 ["\0\0\0\0頩" "\x01\x14\x01\x12𩖶" "\x02\x02飢" "\0\x01\x12䬳" "\0\x02餩" "\x01\x12馧" "\x02駂" "\x02駾" "\x02䯎" "\x02𩬰" "\x02鬒" "\x02鱀" "\x02鳽" "\x02䳎" "\x02䳭" "\x02鵧" "\x02𪃎" "\x02䳸" "\x02𪄅" "\x02𪈎" "\x02𪊑" "\x02麻" "\x02䵖" "\x02黹" "\x02黾" "\x02鼅" "\x02鼏" "\x02鼖" "\x02鼻" "\x02𪘀" "\x02\0菧" "\0\0\0\x01\x12著" "\0\x01\x14\x02荓" "\0\0\x01\x12菊" "\x01\x14\x02菌" "\0\x01\x12菜" "\0\x02𦰶" "\x01\x12𦵫" "\x02𦳕" "\x02䔫" "\x02蓱" "\x02蓳" "\x02蔖" "\x02𧏊" "\x02蕤" "\x02𦼬" "\x02䕝" "\x02䕡" "\x02𦾱" "\x02𧃒" "\x02䕫" "\x02虐" "\x02虜" "\x02虧" "\x02虩" "\x02蚩" "\x02蚈" "\x02蜎" "\x02蛢" "\x02蝹" "\x02蜨" "\x02蝫" "\x02螆" "\x02䗗" "\x02蟡" "\x02蠁" "\x02䗹" "\x02衠" "\x02衣" "\x02𧙧" "\x02裗" "\x02裞" "\x02䘵" "\x02裺" "\x02㒻" "\x02𧢮" "\x02𧥦" "\x02䚾" "\x02䛇" "\x02誠" "\x02諭" "\x02變" "\x02豕" "\x02𧲨" "\x02貫" "\x02賁" "\x02贛" "\x02起" "\x02𧼯" "\x02𠠄" "\x02跋" "\x02趼" "\x02跰" "\x02𠣞" "\x02軔" "\x02輸" "\x02𨗒" "\x02𨗭" "\x02邔" "\x02郱" "\x02鄑" "\x02𨜮" "\x02鄛" "\x02鈸" "\x02鋗" "\x02鋘" "\x02鉼" "\x02鏹" "\x02鐕" "\x02𨯺" "\x02開" "\x02䦕" "\x02閷" "\x02𨵷" "\x02䧦" "\x02雃" "\x02嶲" "\x02霣" "\x02𩅅" "\x02𩈚" "\x02䩮" "\x02䩶" "\x02韠" "\x02𩐊" "\x02䪲" "\x02𩒖" "\x02頋" "\0\0\0\0\x01\x11"] 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 "\0" 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]