[cmucl-cvs] CMUCL commit: src/lisp (x86-arch.c)

Raymond Toy rtoy at common-lisp.net
Thu Dec 23 22:55:31 UTC 2010


    Date: Thursday, December 23, 2010 @ 17:55:31
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: x86-arch.c

Fix typo.


------------+
 x86-arch.c |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)


Index: src/lisp/x86-arch.c
diff -u src/lisp/x86-arch.c:1.41 src/lisp/x86-arch.c:1.42
--- src/lisp/x86-arch.c:1.41	Thu Dec 23 17:23:48 2010
+++ src/lisp/x86-arch.c	Thu Dec 23 17:55:31 2010
@@ -1,6 +1,6 @@
 /* x86-arch.c -*- Mode: C; comment-column: 40 -*-
  *
- * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.41 2010-12-23 22:23:48 rtoy Exp $ 
+ * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.42 2010-12-23 22:55:31 rtoy Exp $ 
  *
  */
 
@@ -250,7 +250,7 @@
      * single-stepping and stop on the next instruction.
      */
 
-    DFPRINTF(0, (stderr, "Installing helper instructions\n"));
+    DPRINTF(0, (stderr, "Installing helper instructions\n"));
     
     single_step_save1 = *(pc - 3);
     single_step_save2 = *(pc - 2);
@@ -268,7 +268,7 @@
      * the helper.
      */
     
-    DFPRINTF(0, (stderr, " Setting pc to pushf instruction at %p\n", (void*) ((char*) pc - 9)));
+    DPRINTF(0, (stderr, " Setting pc to pushf instruction at %p\n", (void*) ((char*) pc - 9)));
     SC_PC(context) = (int)((char *) pc - 9);
 #endif
 }
@@ -298,7 +298,7 @@
 	*(single_stepping - 3) = single_step_save1;
 	*(single_stepping - 2) = single_step_save2;
 	*(single_stepping - 1) = single_step_save3;
-        DFPRINTF(0, (stderr, "Uninstalling helper instructions\n"));
+        DPRINTF(0, (stderr, "Uninstalling helper instructions\n"));
 #endif
 
 	/*




More information about the cmucl-cvs mailing list