X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fh2ph.h;h=495789a206df61d8327365bba0e8bd0aaa8474f2;hb=bf076876beb37faf404cb529462c0d3621da4786;hp=c60e8f008d0314eaad03a019653868522c25f623;hpb=edf6e4ec734b175d478b17f1da78d9e6fe60025e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/h2ph.h b/t/lib/h2ph.h
index c60e8f0..495789a 100644
--- a/t/lib/h2ph.h
+++ b/t/lib/h2ph.h
@@ -56,6 +56,11 @@
 #    define WHATEVER 1000
 #endif
 
+/* Test passing through the alien constructs (perlbug #34493) */
+#ifdef __LANGUAGE_PASCAL__
+function Tru64_Pascal(n: Integer): Integer;
+#endif
+
 /* 
  * Test #include, #import and #include_next
  * #include_next is difficult to test, it really depends on the actual
@@ -121,4 +126,15 @@ enum flimflam {
   flam                      
  } flamflim;
 
+/* Handle multi-line quoted strings: */
+__asm__ __volatile__("
+    this
+    produces
+    no
+    output
+");
+
+#define multiline "multiline
+string"
+
 #endif /* _H2PH_H_ */