From 070772f008bcb5edb63f3f2c2c5f10c4eb9cb008 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Fri, 24 Sep 2021 22:49:44 +0200 Subject: Potentially generate some code for Generate --- Language/C.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Language') diff --git a/Language/C.hs b/Language/C.hs index 86250dd..35cf432 100644 --- a/Language/C.hs +++ b/Language/C.hs @@ -47,3 +47,8 @@ data Expr | EPtrTo Expr | ESizeOf Type deriving (Show, Eq) + + +fundefName :: FunDef -> Name +fundefName (FunDef _ n _ _) = n +fundefName (ProcDef n _ _) = n -- cgit v1.2.3-70-g09d2