* Properly pass programming instructions

swi-to-yap · Nov 15, 2006 · da998d3 · da998d3
1 parent bda8e3d
commit da998d3
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 1 deletion.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+Nov 15, 2006
+
+  * FIXED: properly pass <?pi> instructions.
+
 Oct 27, 2006
 
   * ENHANCEMENT: Started branch XML_UNICODE to provide support for Unicode

diff --git a/Test/ok/pi.ok b/Test/ok/pi.ok
@@ -0,0 +1,2 @@
+[element(test, [], ['\n', pi('this is a pi'), '\n'])].
+[].
diff --git a/Test/pi.xml b/Test/pi.xml
@@ -0,0 +1,3 @@
+<test>
+<?this is a pi>
+</test>
diff --git a/sgml2pl.c b/sgml2pl.c
@@ -1336,7 +1336,7 @@ on_pi(dtd_parser *p, const ichar *pi)
 
     PL_unify_term(h,
 		  PL_FUNCTOR, FUNCTOR_pi1,
-		  PL_CHARS, pi);
+		  PL_NWCHARS, wcslen(pi), pi);
 
     PL_reset_term_refs(h);
   }
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		[element(test, [], ['\n', pi('this is a pi'), '\n'])].
		[].