Opened 11 years ago

Closed 11 years ago

#425 closed defect (fixed)

messed-up error message on x8632

Reported by: rme Owned by: gb
Priority: normal Milestone:
Component: Compiler Version: trunk
Keywords: Cc:

Description

? (defun foo () (push 'a (list 'x 'x)))
;Compiler warnings :
;   In FOO: Undefined function SETF::|COMMON-LISP::LIST|
FOO
? (foo)
> Error: Undefined function (SETF LIST) called with arguments (-335123572 X X) .
> While executing: CCL::TOPLEVEL-EVAL, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry applying (SETF LIST) to (-335123572 X X).
> Type :? for other options.

Change History (2)

comment:1 Changed 11 years ago by gb

callback_to_lisp() pushes the node-valued things in the tcr on the lisp stack (after the xcf has been pushed) on x8632. It should be the case that xpGPR(xp, ebp) points to the xcf, so it's probably simplest to change XP-ARGUMENT-LIST to use add the size of the xcf and the size of a word to (encoded-gpr-macptr x8632::ebp), rather than assuming that the xcf is on top of the stack. (That way, we could push other things on callback if we ever discovered the need to, and XP-ARGUMENT-LIST wouldn't have to change.)

comment:2 Changed 11 years ago by rme

  • Resolution set to fixed
  • Status changed from new to closed

fixed in r11715

Note: See TracTickets for help on using tickets.