# HG changeset patch
# User unc0rr
# Date 1522435344 -7200
# Node ID 806347b3c9786ad41f1630f1d41ac18870546e7b
# Parent  859643473ef2eeac06bf696aa792f84ef0f709c4
Improve error message a bit

diff -r 859643473ef2 -r 806347b3c978 tools/pas2c/Pas2C.hs
--- a/tools/pas2c/Pas2C.hs	Fri Mar 30 12:26:51 2018 -0400
+++ b/tools/pas2c/Pas2C.hs	Fri Mar 30 20:42:24 2018 +0200
@@ -1098,7 +1098,7 @@
          BTString -> f "fpcrtl_copy"
          BTAString -> f "fpcrtl_copyA"
          _ -> error $ "copy() called on " ++ show lt
-     
+
 expr2C (BuiltInFunCall params ref) = do
     r <- ref2C ref
     t <- gets lastType
@@ -1106,7 +1106,7 @@
     case t of
         BTFunction _ _ _ t' -> do
             modify (\s -> s{lastType = t'})
-        _ -> error $ "BuiltInFunCall lastType: " ++ show t
+        _ -> error $ "BuiltInFunCall `" ++ show ref ++ "`, lastType: " ++ show t
     return $
         r <> parens (hsep . punctuate (char ',') $ ps)
 expr2C a = error $ "Don't know how to render " ++ show a