Changeset 12827

Timestamp:

Sep 12, 2009, 12:17:42 PM (15 years ago)

Author:

Gary Byers

Message:

Use a cast in the callback_to_lisp call where handle_fault reports a
write to a watched object (suppress compiler warning.)

File:

• trunk/source/lisp-kernel/x86-exceptions.c (modified) (1 diff)

trunk/source/lisp-kernel/x86-exceptions.c

@@ -836 +836 @@
 
           /* The magic 2 means this was a write to a watchd object */
-          skip = callback_to_lisp(tcr, cmain, xp, xcf, SIGSEGV, 2, addr, obj);
+          skip = callback_to_lisp(tcr, cmain, xp, xcf, SIGSEGV, 2, (natural) addr, obj);
           xpPC(xp) += skip;
           return true;