* bug#69749: (bindat-type sint 32 t) -> unbound variable bitlen
@ 2024-03-12 15:18 Eric Marsden
2024-03-13 11:53 ` Eli Zaretskii
0 siblings, 1 reply; 6+ messages in thread
From: Eric Marsden @ 2024-03-12 15:18 UTC (permalink / raw)
To: 69749
-- file bd.el
(require 'bindat)
(bindat-pack (bindat-type sint 32 t) 42)
--
emacs -Q --batch -l bd.el -->
Error: void-variable (bitlen)
mapbacktrace(#f(compiled-function (evald func args flags) #<bytecode
-0x160fbb9816517825>))
debug-early-backtrace()
debug-early(error (void-variable bitlen))
(/ bitlen 8)
(+ bindat-idx (/ bitlen 8))
(setq bindat-idx (+ bindat-idx (/ bitlen 8)))
(let ((v field2)) (setq bindat-idx (+ bindat-idx (/ bitlen 8))))
(let ((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq
bindat-idx (+ bindat-idx (/ bitlen 8)))))
(let ((v v)) (let ((field2 (if (< v 0) (+ v wrap) v))) (let ((v
field2)) (setq bindat-idx (+ bindat-idx (/ bitlen 8))))))
(lambda (v) (let ((v v)) (let ((field2 (if (< v 0) (+ v wrap) v)))
(let ((v field2)) (setq bindat-idx (+ bindat-idx (/ bitlen 8)))))))(42)
bindat--length-group(42 #s(bindat--type :le (lambda (v) (let ((v v))
(let ((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq
bindat-idx (+ bindat-idx (/ bitlen 8))))))) :ue (lambda nil (let ((n (if
t (bindat--unpack-uintr bitlen) (bindat--unpack-uint bitlen)))) (if (>=
n max) (- n wrap) n))) :pe (lambda (v) (let ((v v)) (let ((field2 (if (<
v 0) (+ v wrap) v))) (let ((v field2)) (if t (bindat--pack-uintr bitlen
v) (bindat--pack-uint bitlen v))))))))
bindat-length(#s(bindat--type :le (lambda (v) (let ((v v)) (let
((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq bindat-idx
(+ bindat-idx (/ bitlen 8))))))) :ue (lambda nil (let ((n (if t
(bindat--unpack-uintr bitlen) (bindat--unpack-uint bitlen)))) (if (>= n
max) (- n wrap) n))) :pe (lambda (v) (let ((v v)) (let ((field2 (if (< v
0) (+ v wrap) v))) (let ((v field2)) (if t (bindat--pack-uintr bitlen v)
(bindat--pack-uint bitlen v))))))) 42)
bindat-pack(#s(bindat--type :le (lambda (v) (let ((v v)) (let
((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq bindat-idx
(+ bindat-idx (/ bitlen 8))))))) :ue (lambda nil (let ((n (if t
(bindat--unpack-uintr bitlen) (bindat--unpack-uint bitlen)))) (if (>= n
max) (- n wrap) n))) :pe (lambda (v) (let ((v v)) (let ((field2 (if (< v
0) (+ v wrap) v))) (let ((v field2)) (if t (bindat--pack-uintr bitlen v)
(bindat--pack-uint bitlen v))))))) 42)
load-with-code-conversion("/tmp/bd.el" "/tmp/bd.el" nil t)
command-line-1(("-l" "/tmp/bd.el"))
command-line()
normal-top-level()
Symbol’s value as variable is void: bitlen
This bug is difficult to understand. Run from an IELM buffer, this code
works as expected. The macroexpansion of the bindat-type declaration
includes a binding for bitlen.
GNU Emacs 29.2 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.24.41,
cairo version 1.18.0) of 2024-03-09, modified by Debian
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#69749: (bindat-type sint 32 t) -> unbound variable bitlen
2024-03-12 15:18 bug#69749: (bindat-type sint 32 t) -> unbound variable bitlen Eric Marsden
@ 2024-03-13 11:53 ` Eli Zaretskii
2024-03-13 12:54 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
0 siblings, 1 reply; 6+ messages in thread
From: Eli Zaretskii @ 2024-03-13 11:53 UTC (permalink / raw)
To: Eric Marsden, Stefan Monnier; +Cc: 69749
> Date: Tue, 12 Mar 2024 16:18:58 +0100
> From: Eric Marsden <eric.marsden@risk-engineering.org>
>
> -- file bd.el
> (require 'bindat)
> (bindat-pack (bindat-type sint 32 t) 42)
> --
> emacs -Q --batch -l bd.el -->
>
> Error: void-variable (bitlen)
> mapbacktrace(#f(compiled-function (evald func args flags) #<bytecode
> -0x160fbb9816517825>))
> debug-early-backtrace()
> debug-early(error (void-variable bitlen))
> (/ bitlen 8)
> (+ bindat-idx (/ bitlen 8))
> (setq bindat-idx (+ bindat-idx (/ bitlen 8)))
> (let ((v field2)) (setq bindat-idx (+ bindat-idx (/ bitlen 8))))
> (let ((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq
> bindat-idx (+ bindat-idx (/ bitlen 8)))))
> (let ((v v)) (let ((field2 (if (< v 0) (+ v wrap) v))) (let ((v
> field2)) (setq bindat-idx (+ bindat-idx (/ bitlen 8))))))
> (lambda (v) (let ((v v)) (let ((field2 (if (< v 0) (+ v wrap) v)))
> (let ((v field2)) (setq bindat-idx (+ bindat-idx (/ bitlen 8)))))))(42)
> bindat--length-group(42 #s(bindat--type :le (lambda (v) (let ((v v))
> (let ((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq
> bindat-idx (+ bindat-idx (/ bitlen 8))))))) :ue (lambda nil (let ((n (if
> t (bindat--unpack-uintr bitlen) (bindat--unpack-uint bitlen)))) (if (>=
> n max) (- n wrap) n))) :pe (lambda (v) (let ((v v)) (let ((field2 (if (<
> v 0) (+ v wrap) v))) (let ((v field2)) (if t (bindat--pack-uintr bitlen
> v) (bindat--pack-uint bitlen v))))))))
> bindat-length(#s(bindat--type :le (lambda (v) (let ((v v)) (let
> ((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq bindat-idx
> (+ bindat-idx (/ bitlen 8))))))) :ue (lambda nil (let ((n (if t
> (bindat--unpack-uintr bitlen) (bindat--unpack-uint bitlen)))) (if (>= n
> max) (- n wrap) n))) :pe (lambda (v) (let ((v v)) (let ((field2 (if (< v
> 0) (+ v wrap) v))) (let ((v field2)) (if t (bindat--pack-uintr bitlen v)
> (bindat--pack-uint bitlen v))))))) 42)
> bindat-pack(#s(bindat--type :le (lambda (v) (let ((v v)) (let
> ((field2 (if (< v 0) (+ v wrap) v))) (let ((v field2)) (setq bindat-idx
> (+ bindat-idx (/ bitlen 8))))))) :ue (lambda nil (let ((n (if t
> (bindat--unpack-uintr bitlen) (bindat--unpack-uint bitlen)))) (if (>= n
> max) (- n wrap) n))) :pe (lambda (v) (let ((v v)) (let ((field2 (if (< v
> 0) (+ v wrap) v))) (let ((v field2)) (if t (bindat--pack-uintr bitlen v)
> (bindat--pack-uint bitlen v))))))) 42)
> load-with-code-conversion("/tmp/bd.el" "/tmp/bd.el" nil t)
> command-line-1(("-l" "/tmp/bd.el"))
> command-line()
> normal-top-level()
> Symbol’s value as variable is void: bitlen
>
> This bug is difficult to understand. Run from an IELM buffer, this code
> works as expected. The macroexpansion of the bindat-type declaration
> includes a binding for bitlen.
Thanks, I added Stefan to this discussion.
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#69749: (bindat-type sint 32 t) -> unbound variable bitlen
2024-03-13 11:53 ` Eli Zaretskii
@ 2024-03-13 12:54 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
[not found] ` <4a7ccaf7-02dc-4cca-b6e7-520ffb45dcac@risk-engineering.org>
0 siblings, 1 reply; 6+ messages in thread
From: Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2024-03-13 12:54 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: 69749, Eric Marsden
>> -- file bd.el
>> (require 'bindat)
>> (bindat-pack (bindat-type sint 32 t) 42)
>> --
When you open this file in Emacs≥28, the modeline will have an orange
"/d" which is meant to warn you that something's amiss.
Click on it, and your problem will be solved :-)
>> Symbol’s value as variable is void: bitlen
>>
>> This bug is difficult to understand. Run from an IELM buffer, this code
>> works as expected. The macroexpansion of the bindat-type declaration
>> includes a binding for bitlen.
Your code ends up (via the `sint` of `bindat-type`) relying on the
`lexical-binding` dialect of ELisp, which is enabled by default in
`ielm` but not in your file.
Stefan
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2024-03-17 19:13 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-03-12 15:18 bug#69749: (bindat-type sint 32 t) -> unbound variable bitlen Eric Marsden
2024-03-13 11:53 ` Eli Zaretskii
2024-03-13 12:54 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
[not found] ` <4a7ccaf7-02dc-4cca-b6e7-520ffb45dcac@risk-engineering.org>
2024-03-15 16:51 ` Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors
2024-03-16 11:16 ` Eli Zaretskii
[not found] ` <000d8acf-bad4-432a-a775-0c03225674fe@risk-engineering.org>
2024-03-17 19:13 ` Eli Zaretskii
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.