[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