# HG changeset patch
# User Frits van Bommel <fvbommel wxs.nl>
# Date 1237129118 -3600
# Node ID 0d38fa5a0b464fe1efdf5d75d125b1d863a96a4f
# Parent  2cd6199488f6b81ed53503006b429f18603d1f3b
Another "pointers are 32 bits" issue in the frontend. long/ulong constants cast
to pointers were truncated to 32-bit values.

Closes #234.

diff -r 2cd6199488f6 -r 0d38fa5a0b46 dmd/expression.c
--- a/dmd/expression.c	Sat Mar 14 22:44:52 2009 +0100
+++ b/dmd/expression.c	Sun Mar 15 15:58:38 2009 +0100
@@ -1348,11 +1348,17 @@
 	    case Twchar:
 	    case Tuns16:	value = (d_uns16) value;	break;
 	    case Tint32:	value = (d_int32) value;	break;
-	    case Tpointer:
 	    case Tdchar:
 	    case Tuns32:	value = (d_uns32) value;	break;
 	    case Tint64:	value = (d_int64) value;	break;
 	    case Tuns64:	value = (d_uns64) value;	break;
+	    case Tpointer:
+                // FIXME: Other pointer widths than 32 and 64?
+                if (PTRSIZE == 4)
+                    value = (d_uns32) value;
+                else
+                    value = (d_uns64) value;
+                break;
 
 	    case Tenum:
 	    {
@@ -1512,6 +1518,7 @@
 		break;
 
 	    case Tuns64:
+            L4:
 		buf->printf("%juLU", v);
 		break;
 
@@ -1524,7 +1531,11 @@
 		buf->writestring("cast(");
 		buf->writestring(t->toChars());
 		buf->writeByte(')');
-		goto L3;
+                // FIXME: Other pointer widths than 32 and 64?
+                if (PTRSIZE == 4)
+                    goto L3;
+                else
+                    goto L4;
 
 	    default:
 		/* This can happen if errors, such as