From: Ian Lynagh <igloo@earth.li>
Date: Fri, 13 Jun 2008 20:14:56 +0000 (+0000)
Subject: Fix ubconfc
X-Git-Tag: 6_10_branch_has_been_forked~150
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3877686c7617f1baa2c774ce3ce298a541cb942f;p=ghc-base.git

Fix ubconfc
The current code doesn't seem to be what was used to generate WCsubst.c,
so I'm not sure if it never worked, or if my tools work slightly
differently to those of the previous user.
---

diff --git a/cbits/ubconfc b/cbits/ubconfc
index cf0967c..47637a9 100644
--- a/cbits/ubconfc
+++ b/cbits/ubconfc
@@ -153,8 +153,8 @@ function dumpblock()
 	updist=up-self
 	lowdist=low-self
 	titledist=title-self
-	rule="GENCAT_"cat", NUMCAT_"cat", "((convpos==1)?
-				("1, " updist ", " lowdist ", " titledist):
+	rule="GENCAT_"cat", NUMCAT_"cat", "((convpos==1)?                   \
+				("1, " updist ", " lowdist ", " titledist): \
 				("0, 0, 0, 0"))
 	if(cats[cat]=="")
 	{
@@ -329,7 +329,7 @@ int p(int c) \\
 { \\
 	const struct _convrule_ *rule=getrule(convchars,NUM_CONVBLOCKS,c);\\
 	if(rule==&nullrule) return c;\\
-	return c+rule->##to;\\
+	return c+rule->to;\\
 }
 
 caseconv(u_towupper,updist)