Ticket #1494: tango-ppc64ice.diff

tango/net/cluster/tina/QueueFile.d

@@ -22 +22 @@
-version (Posix)
-         private import tango.stdc.posix.fcntl;
-
+version (GNU) {
+    version (PPC64) {
+         extern(C) void memcpy(void*, void*, size_t);
+         version = MEMCPY; /* work around gdc ICE */
+    }
+}
+
-/******************************************************************************
-        
-
@@ -117 +124 @@
-                            auto content = read (tmp);
-
-                            ++depth;
-current = tmp;
+version(MEMCPY) { memcpy(&current, &tmp, Header.sizeof); } else { current = tmp; }
-                            insert = insert + tmp.size + tmp.sizeof;
-                            conduit.seek (insert);
-
@@ -216 +223 @@
-
-                // update refs
-                insert = insert + chunk.sizeof + chunk.size;
-current = chunk;
+version(MEMCPY) { memcpy(&current, &chunk, Header.sizeof); } else { current = chunk; }
-                ++depth;
-
-                return dirty = true;
@@ -256 +263 @@
-                      if (current.prior)
-                          conduit.error ("queue file is corrupt");
-                      else
-current = zero;
+ version(MEMCPY) { memcpy(&current, &zero, Header.sizeof); } else { current = zero; }
-
-                   // leave file position at insert-point
-                   conduit.seek (point);