dev-lang/qu-prolog/files/qu-prolog-8.10-print-atom.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

--- qp8.10.orig/src/objects.h	2009-11-30 20:50:48.000000000 +1300
+++ qp8.10/src/objects.h	2009-11-30 20:57:09.000000000 +1300
@@ -1236,18 +1236,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