eval: Allow casting address constants to integer types in constant expressions

2 files changed, 4 insertions, 0 deletions

diff --git a/test/initializer-pointer-int-cast.c b/test/initializer-pointer-int-cast.c
new file mode 100644
index 0000000..75963b2
--- /dev/null
+++ b/test/initializer-pointer-int-cast.c
@@ -0,0 +1,2 @@
+int x;
+long p = (long)&x;
diff --git a/test/initializer-pointer-int-cast.qbe b/test/initializer-pointer-int-cast.qbe
new file mode 100644
index 0000000..a996882
--- /dev/null
+++ b/test/initializer-pointer-int-cast.qbe
@@ -0,0 +1,2 @@
+export data $p = align 8 { l $x, }
+export data $x = align 4 { z 4 }