[Openmcl-devel] OpenMCL falling into low level debugger

[Sunil Mishra]

Thanks Gary, no more low-level error.

Sunil

Gary Byers wrote:
> Ugh.  Sorry.
> 
> CVS should be back in sync any day now (as I've been saying for the last
> 10 days or so.)  In the meantime, a patch is enclosed.
> 
> 
> 
> On Mon, 29 Jan 2007, Sunil Mishra wrote:
> 
>> Hi,
>>
>> I'm using MCL on Intel Mac OS, and am seeing a low level exception. I
>> don't know what to make of this, perhaps someone here will be able to
>> help? I was trying to run hunchentoot (http://weitz.de/hunchentoot/) on
>> openmcl. I'm using the repository at
>> :pserver:cvs at clozure.com/usr/local/tmpcvs/openmcl-dev, revision
>> tag_070117. I start up openmcl, load hunchentoot using asdf, run
>> (tbnl:start-server :port 8000) and get this error.
>>
>> Thanks,
>>
>> Sunil
>>
>> [4030] OpenMCL kernel debugger: help
>> [4030] OpenMCL kernel debugger: [4030] OpenMCL kernel debugger: %rsi
>> (arg_z) = 268435463
>> %rdi (arg_y) = *SERVER-COUNTER*
>> %r8  (arg_x) = 1
>> ------
>> %r13 (fn) = #<Function %ATOMIC-INCF-NODE #x000030004000E06F>
>> %r10 (ra0) = tagged return address: #<Function START-SERVER
>> #x0000300041C4390F> + 589
>> ------
>> %r15 (save0) = *SERVER-COUNTER*
>> %r14 (save1) = ()
>> %r12 (save2) = ()
>> %r11 (save3) = 3
>> ------
>> %rbx (temp0) = %ATOMIC-INCF-NODE
>> %r9  (temp1) = 3
>> %rcx (temp2) = 3
>> ------
>> %cx (nargs) = 3 (maybe)
>> [4030] OpenMCL kernel debugger: Unhandled exception 10 at
>> 0x30004000e087, context->regs at #xb0b019c0
>> ? for help
>> [4030] OpenMCL kernel debugger: B
>> current thread: tcr = 0x6038c0, native thread ID = 0x5f03, interrupts
>> enabled
>>
>>
>> (#x0000000002E817D0) #x00003000404BB254 : #<Function CALL-CHECK-REGS
>> #x00003000404BB16F> + 229
>> (#x0000000002E81808) #x0000300040E7D504 : #<Function EVAL-REGION
>> #x0000300040E7D0CF> + 1077
>> (#x0000000002E818D0) #x0000300040E792F4 : #<Anonymous Function
>> #x0000300040E7924F> + 165
>> (#x0000000002E81950) #x0000300040E57A74 : #<Function
>> CALL-WITH-BUFFER-SYNTAX #x0000300040E579AF> + 197
>> (#x0000000002E81988) #x00003000404BB254 : #<Function CALL-CHECK-REGS
>> #x00003000404BB16F> + 229
>> (#x0000000002E819C0) #x0000300040E59CD4 : #<Anonymous Function
>> #x0000300040E5993F> + 917
>> (#x0000000002E81A88) #x0000300040D7733C : #<Method-Function
>> CALL-WITH-DEBUGGER-HOOK (T T) #x0000300040D772CF> + 109
>> (#x0000000002E81AC8) #x0000300040105E8C : #<Function FUNCALL
>> #x0000300040105DEF> + 157
>> (#x0000000002E81AF8) #x0000300040E1758C : #<Anonymous Function
>> #x0000300040E1741F> + 365
>> (#x0000000002E81B38) #x0000300040D7733C : #<Method-Function
>> CALL-WITH-DEBUGGER-HOOK (T T) #x0000300040D772CF> + 109
>> (#x0000000002E81B78) #x0000300040E31D34 : #<Function
>> CALL-WITH-REDIRECTED-IO #x0000300040E31B5F> + 469
>> (#x0000000002E81C60) #x0000300040E22EE4 : #<Function
>> CALL-WITH-CONNECTION #x0000300040E22DEF> + 245
>> (#x0000000002E81CA0) #x0000300040E17814 : #<Function HANDLE-REQUEST
>> #x0000300040E1773F> + 213
>> (#x0000000002E81CE8) #x0000300040E3B4EC : #<Anonymous Function
>> #x0000300040E3B4AF> + 61
>> (#x0000000002E81D08) #x0000300040D7733C : #<Method-Function
>> CALL-WITH-DEBUGGER-HOOK (T T) #x0000300040D772CF> + 109
>> (#x0000000002E81D48) #x0000300040E31D34 : #<Function
>> CALL-WITH-REDIRECTED-IO #x0000300040E31B5F> + 469
>> (#x0000000002E81E30) #x0000300040E22EE4 : #<Function
>> CALL-WITH-CONNECTION #x0000300040E22DEF> + 245
>> (#x0000000002E81E70) #x0000300040E0BCBC : #<Function CALL-WITH-BINDINGS
>> #x0000300040E0B8FF> + 957
>> (#x0000000002E81EC8) #x0000300040441BDC : #<Function
>> RUN-PROCESS-INITIAL-FORM #x000030004044191F> + 701
>> (#x0000000002E81F48) #x000030004044255C : #<Anonymous Function
>> #x00003000404423CF> + 397
>> (#x0000000002E81F98) #x00003000403F901C : #<Anonymous Function
>> #x00003000403F8EAF> + 365
>> _______________________________________________
>> Openmcl-devel mailing list
>> Openmcl-devel at clozure.com
>> http://clozure.com/mailman/listinfo/openmcl-devel
>>
>>
> 
> ------------------------------------------------------------------------
> 
> Index: level-0/X86/x86-misc.lisp
> ===================================================================
> RCS file: /usr/local/tmpcvs/openmcl-dev/ccl/level-0/X86/x86-misc.lisp,v
> retrieving revision 1.14
> diff -u -r1.14 x86-misc.lisp
> --- level-0/X86/x86-misc.lisp	5 Nov 2006 14:55:41 -0000	1.14
> +++ level-0/X86/x86-misc.lisp	30 Jan 2007 10:09:49 -0000
> @@ -425,10 +425,10 @@
>    (check-nargs 3)
>    (unbox-fixnum disp imm1)
>    @again
> -  (movq (@ (% node) (% disp)) (% rax))
> +  (movq (@ (% node) (% imm1)) (% rax))
>    (lea (@ (% rax) (% by)) (% arg_z))
>    (lock)
> -  (cmpxchgq (% arg_z) (@ (% node) (% disp)))
> +  (cmpxchgq (% arg_z) (@ (% node) (% imm1)))
>    (jne @again)
>    (single-value-return))
>