Re: bignum branch

[Robert Pluim]

Eli Zaretskii <address@hidden> writes:

>> Date: Fri, 13 Jul 2018 15:04:15 +0300
>> From: Eli Zaretskii <address@hidden>
>> Cc: address@hidden
>> 
>> > From: Robert Pluim <address@hidden>
>> > Date: Fri, 13 Jul 2018 11:51:43 +0200
>> > Cc: address@hidden
>> > 
>> >         ELC      obsolete/pgg-pgp.elc
>> > 
>> >     In toplevel form:
>> >     obsolete/pgg-pgp.el:30:1:Error: Error in CCL program
>> 
>> The line number makes no sense.  Does the problem happen when loading
>> 'cl'?  I mean, what CCL program is involved here?
>
> Sorry, I looked in the wrong branch.  Line 30 is actually about
> loading pgg.  Does the same problem happen when pgg.el is loaded
> and/or compiled?

emacs -Q
(require 'pgg)

⇒

Debugger entered--Lisp error: (error "Error in CCL program")
  register-ccl-program(pgg-parse-crc24 [1 30 14 114744 114775 0 161 131127 1 
148217 15 82167 1 1848 131159 1 1595 5 256 114743 390 114775 19707 1467 16 7 
183 1 4611686018427382276 4611686018427380740 22])
  
byte-code("\301\302!\203\33\0\303\30\304\10!\210\305\306\307\310\306\10\"#\210)\311\312\313\"\210\301\207"
 [prog fboundp define-ccl-program [1 30 14 114744 114775 0 161 131127 1 148217 
15 82167 1 1848 131159 1 1595 5 256 114743 390 114775 19707 1467 16 7 183 1 
4611686018427382276 4611686018427380740 22] (lambda (def-tmp-var) (defconst 
pgg-parse-crc24 def-tmp-var nil)) put pgg-parse-crc24 ccl-program-idx 
register-ccl-program defalias pgg-parse-crc24-string #f(compiled-function 
(string) #<bytecode 0x5033e9>)] 6)
  require(pgg-parse)
  eval-buffer(#<buffer  *load*> nil 
"/home/rpluim/repos/emacs-bignum/lisp/obsolete/pgg.el" nil t)  ; Reading at 
buffer position 1024
  
load-with-code-conversion("/home/rpluim/repos/emacs-bignum/lisp/obsolete/pgg.el"
 "/home/rpluim/repos/emacs-bignum/lisp/obsolete/pgg.el" nil t)
  require(pgg)
  eval((require 'pgg) nil)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)


Which confirms what I found using gdb. That 4611686018427382276 in the
backtrace is bigger than 'most-positive-fixnum' on this machine, so
the error makes sense. I know nothing about how to fix CCL though.

Robert