[Openmcl-devel] OpenMCL falling into low level debugger

[Gary Byers]

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
>
>
-------------- next part --------------
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))