Removed non-existing opcodes cge, cle.

tomlokhorst · Feb 12, 2011 · c094d73 · c094d73
1 parent 2ddd405
commit c094d73
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 9 deletions.
diff --git a/src/Language/Cil/Build.hs b/src/Language/Cil/Build.hs
@@ -30,10 +30,8 @@ module Language.Cil.Build (
   , call
   , callvirt
   , ceq
-  , cge
   , cgt
   , ckfinite
-  , cle
   , clt 
   , dup
   , div
@@ -221,11 +219,9 @@ call ccs p l t m ps = mdecl $ Call ccs p l t m ps
 callvirt :: PrimitiveType -> AssemblyName -> TypeName -> MethodName -> [PrimitiveType] -> MethodDecl
 callvirt p l t m ps = mdecl $ CallVirt p l t m ps
 
-ceq, cge, cgt, cle, clt :: MethodDecl
+ceq, cgt, clt :: MethodDecl
 ceq = mdecl $ Ceq
-cge = mdecl $ Cge
 cgt = mdecl $ Cgt
-cle = mdecl $ Cle
 clt = mdecl $ Clt
 
 ckfinite :: MethodDecl

diff --git a/src/Language/Cil/Pretty.hs b/src/Language/Cil/Pretty.hs
@@ -180,10 +180,8 @@ instance Pretty OpCode where
   pr (CallVirt t a c m ps) = ("callvirt instance " ++) . prsp t . sp
                                . prCall a c m ps
   pr (Ceq)                 = ("ceq" ++)
-  pr (Cge)                 = ("cge" ++)
   pr (Cgt)                 = ("cgt" ++)
   pr (Ckfinite)            = ("ckfinite" ++)
-  pr (Cle)                 = ("cle" ++)
   pr (Clt)                 = ("clt" ++)
   pr (Div)                 = ("div" ++)
   pr (Div_un)              = ("div.un" ++)

diff --git a/src/Language/Cil/Syntax.hs b/src/Language/Cil/Syntax.hs
@@ -241,10 +241,8 @@ data OpCode
       , paramTypes   :: [PrimitiveType] -- ^ Types of the formal parameters of the method.
       } -- ^ Pops /n/ values, calls specified virtual method, pushes return value. (where /n/ is the number of formal parameters of the method).
   | Ceq                -- ^ Pops 2 values, if they are equal, pushes 1 to stack; otherwise, pushes 0.
-  | Cge                -- ^ Pops 2 values and compares them.
   | Cgt                -- ^ Pops 2 values and compares them.
   | Ckfinite           -- ^ Pops a float or double. Throws an ArithmeticException if the popped value is NaN or +/- infinity. Pushes the popped value.
-  | Cle                -- ^ Pops 2 values and compares them.
   | Clt                -- ^ Pops 2 values and compares them.
   | Dup                -- ^ Pops 1 value, copies it, pushes the same value twise.
   | Div                -- ^ Pops 2 values, divides the first by the second, pushes the result.