X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=JVM%2FClassFile.hs;h=faf94cab82317a19215d07c392ee28cc64667c3b;hp=6171c1bdecffd3854bc85f5c1c7259dc63cc2f52;hb=5bdf787f7b1d30e8ea73d31f9d5e5c1263aa9856;hpb=fe123653d0ba6155561a0c73726a505b360df194

diff --git a/JVM/ClassFile.hs b/JVM/ClassFile.hs
index 6171c1b..faf94ca 100644
--- a/JVM/ClassFile.hs
+++ b/JVM/ClassFile.hs
@@ -25,6 +25,7 @@ module JVM.ClassFile
    NameType (..),
    fieldNameType, methodNameType,
    lookupField, lookupMethod,
+   long,
    toString,
    className,
    apsize, arsize, arlist
@@ -459,6 +460,7 @@ whileJust m = do
               return (x: next)
     Nothing -> return []
 
+long :: Constant stage -> Bool
 long (CLong _)   = True
 long (CDouble _) = True
 long _           = False