github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-29 13:01:30 +00:00
Code Issues Projects Releases Wiki Activity

Replace 0x%x with %p for pointer output in error messages. %p arrived in C89.

Browse Source
This commit is contained in:
Nick Briggs
2017-06-07 14:33:31 -07:00
parent 4eaf562a8a
commit ac563a69f3
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/gcmain3.c
View File

@@ -404,8 +404,7 @@ LispPTR gcscanstack(void) {
if (0 != (3 & (UNSIGNED)bascframe)) {
char debugStr[100];
sprintf(debugStr,
"Frame ptr (0x%x) not to word bound "
"at start of gcscanstack.",
"Frame ptr (%p) not to word bound at start of gcscanstack.",
bascframe);
error(debugStr);
}
@@ -484,8 +483,8 @@ LispPTR gcscanstack(void) {
if (0 != (3 & (UNSIGNED)bascframe)) {
char debugStr[100];
sprintf(debugStr,
"Frame ptr (0x%x) not to word bound "
"in gcscanstack() STK_FX case; old frame = 0x%x.",
"Frame ptr (%p) not to word bound "
"in gcscanstack() STK_FX case; old frame = %p.",
bascframe, obascframe);
error(debugStr);
}
@@ -505,8 +504,8 @@ LispPTR gcscanstack(void) {
if (0 != (3 & (UNSIGNED)bascframe)) {
char debugStr[100];
sprintf(debugStr,
"Frame ptr (0x%x) not to word bound "
"in gcscanstack() scantemps; old frame = 0x%x.",
"Frame ptr (%p) not to word bound "
"in gcscanstack() scantemps; old frame = %p.",
bascframe, obascframe);
error(debugStr);
}
@@ -522,8 +521,8 @@ LispPTR gcscanstack(void) {
if (0 != (3 & (UNSIGNED)bascframe)) {
char debugStr[100];
sprintf(debugStr,
"Frame ptr (0x%x) not to word bound "
"in gcscanstack(), end scantemps; old frame = 0x%x.",
"Frame ptr (%p) not to word bound "
"in gcscanstack(), end scantemps; old frame = %p.",
bascframe, obascframe);
error(debugStr);
}
@@ -542,8 +541,8 @@ LispPTR gcscanstack(void) {
if (0 != (3 & (UNSIGNED)bascframe)) {
char debugStr[100];
sprintf(debugStr,
"Frame ptr (0x%x) not to word bound "
"in gcscanstack() STK_GUARD; old frame = 0x%x.",
"Frame ptr (%p) not to word bound "
"in gcscanstack() STK_GUARD; old frame = %p.",
bascframe, obascframe);
error(debugStr);
}
@@ -557,8 +556,8 @@ LispPTR gcscanstack(void) {
if (0 != (3 & (UNSIGNED)bascframe)) {
char debugStr[100];
sprintf(debugStr,
"Frame ptr (0x%x) not to word bound "
"in gcscanstack() STK_FSB; old frame = 0x%x.",
"Frame ptr (%p) not to word bound "
"in gcscanstack() STK_FSB; old frame = %p.",
bascframe, obascframe);
error(debugStr);
}