diff options
Diffstat (limited to 'dev-lang/qu-prolog/files/qu-prolog-9.1-cerr-ptr.patch')
-rw-r--r-- | dev-lang/qu-prolog/files/qu-prolog-9.1-cerr-ptr.patch | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/dev-lang/qu-prolog/files/qu-prolog-9.1-cerr-ptr.patch b/dev-lang/qu-prolog/files/qu-prolog-9.1-cerr-ptr.patch new file mode 100644 index 000000000000..1fde09843e66 --- /dev/null +++ b/dev-lang/qu-prolog/files/qu-prolog-9.1-cerr-ptr.patch @@ -0,0 +1,40 @@ +diff -ur qp9.1.orig/src/gc.cc qp9.1/src/gc.cc +--- qp9.1.orig/src/gc.cc 2011-08-23 11:17:44.000000000 +1200 ++++ qp9.1/src/gc.cc 2011-11-20 07:14:14.000000000 +1300 +@@ -152,7 +152,7 @@ + { + cerr << size << endl; + heapobject* ptr = reinterpret_cast<heapobject*>(term); +- cerr << hex << (u_int)(ptr) << " : " << *ptr << " " << *(ptr+1) << dec << endl; ++ cerr << hex << (wordptr)(ptr) << " : " << *ptr << " " << *(ptr+1) << dec << endl; + return false; + } + return true; +diff -ur qp9.1.orig/src/objects.h qp9.1/src/objects.h +--- qp9.1.orig/src/objects.h 2011-08-23 11:17:44.000000000 +1200 ++++ qp9.1/src/objects.h 2011-11-20 07:14:14.000000000 +1300 +@@ -1242,18 +1242,12 @@ + << this->getName() << "\" "; + + #ifndef WIN32 +- switch (hasAssociatedItem()) +- { +- case AssociatedNone: +- std::cerr << "(no info)"; +- break; +- case AssociatedInteger: +- std::cerr << "int: " << getAssociatedInteger(); +- break; +- case AssociatedAtom: +- std::cerr << "atom: [" << std::hex << (wordptr) getAssociatedAtom() << std::dec << "]"; +- break; +- } ++ if (hasAssociatedInteger()) ++ std::cerr << "int: " << getAssociatedInteger(); ++ else if (hasAssociatedAtom()) ++ std::cerr << "atom: [" << std::hex << (wordptr) getAssociatedAtom() << std::dec << "]"; ++ else ++ std::cerr << "(no info)"; + #endif + } + #endif |