From f8fdaa7accef4c6935e5ecdf9ef292b1f7b2901b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Mon, 22 Jun 2009 14:30:55 +0000
Subject: fixed warnings in present compilation of resource, esp. unreached
 patterns

---
 next-lib/src/bulgarian/IdiomBul.gf | 15 ++++++++-------
 next-lib/src/bulgarian/ResBul.gf   | 15 ++++++++-------
 2 files changed, 16 insertions(+), 14 deletions(-)

(limited to 'next-lib/src/bulgarian')

diff --git a/next-lib/src/bulgarian/IdiomBul.gf b/next-lib/src/bulgarian/IdiomBul.gf
index cd22f7908..09c989fe1 100644
--- a/next-lib/src/bulgarian/IdiomBul.gf
+++ b/next-lib/src/bulgarian/IdiomBul.gf
@@ -33,13 +33,14 @@ concrete IdiomBul of Idiom = CatBul ** open Prelude, ParadigmsBul, ResBul in {
 
                       v : {aux1:Str; aux2:Str; main:Str}
                         = case <t,a> of {
-                            <Pres,Simul> => {aux1=[]; aux2=[]; main=present} ;
-                            <Pres,Anter> => {aux1=[]; aux2=auxPres;   main=perfect} ;
-                            <Past,Simul> => {aux1=[]; aux2=[]; main=aorist} ;
-                            <Past,Anter> => {aux1=[]; aux2=auxAorist; main=perfect} ;
-                            <Fut, Simul> => {aux1="ще"; aux2=[]; main=present} ;
-                            <Fut, Anter> => {aux1="ще"++auxPres; aux2=[]; main=perfect} ;
-                            <Cond,_>     => {aux1=auxCondS; aux2=[]; main=perfect}
+                            <Pres,Simul> => {aux1=[]; aux2=[]; main=present} 
+               ;  --# notpresent
+                            <Pres,Anter> => {aux1=[]; aux2=auxPres;   main=perfect} ;  --# notpresent
+                            <Past,Simul> => {aux1=[]; aux2=[]; main=aorist} ;  --# notpresent
+                            <Past,Anter> => {aux1=[]; aux2=auxAorist; main=perfect} ;  --# notpresent
+                            <Fut, Simul> => {aux1="ще"; aux2=[]; main=present} ;  --# notpresent
+                            <Fut, Anter> => {aux1="ще"++auxPres; aux2=[]; main=perfect} ;  --# notpresent
+                            <Cond,_>     => {aux1=auxCondS; aux2=[]; main=perfect}  --# notpresent
                           } ;
 
 	          in case o of {
diff --git a/next-lib/src/bulgarian/ResBul.gf b/next-lib/src/bulgarian/ResBul.gf
index c26a92824..527dceef4 100644
--- a/next-lib/src/bulgarian/ResBul.gf
+++ b/next-lib/src/bulgarian/ResBul.gf
@@ -454,13 +454,14 @@ resource ResBul = ParamX ** open Prelude in {
 
           verbs : {aux:{s1:Str; s2:Str}; main:Str} =
             case <t,a> of {
-              <Pres,Simul> => {aux=vf2 clitic.s;  main=presentImperf} ;
-              <Pres,Anter> => {aux=vf1 clitic.s;  main=perfect} ;
-              <Past,Simul> => {aux=vf2 clitic.s;  main=aorist} ;
-              <Past,Anter> => {aux=vf4 auxAorist; main=perfect} ;
-              <Fut, Simul> => {aux=vf3 clitic.s;  main=present} ;
-              <Fut, Anter> => {aux=vf3 (apc []);  main=perfect} ;
-              <Cond,_    > => {aux=vf4 auxCond ;  main=perfect}
+              <Pres,Simul> => {aux=vf2 clitic.s;  main=presentImperf}
+              ;                                                    --# notpresent
+              <Pres,Anter> => {aux=vf1 clitic.s;  main=perfect} ; --# notpresent
+              <Past,Simul> => {aux=vf2 clitic.s;  main=aorist} ; --# notpresent
+              <Past,Anter> => {aux=vf4 auxAorist; main=perfect} ; --# notpresent
+              <Fut, Simul> => {aux=vf3 clitic.s;  main=present} ; --# notpresent
+              <Fut, Anter> => {aux=vf3 (apc []);  main=perfect} ; --# notpresent
+              <Cond,_    > => {aux=vf4 auxCond ;  main=perfect} --# notpresent
             }
 
       in verb.ad.s ++ li0 ++ verbs.aux.s1 ++ verbs.main ++ verbs.aux.s2 ;
-- 
cgit v1.2.3