GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-04 03:15:26 -07:00
Code Issues Packages Projects Releases Wiki Activity

silence warnings

Browse Source
This commit is contained in:
krangelov committed 2021-08-13 08:28:30 +02:00
1 parent 1bc0cfd025
commit 08bcd2f0b5
1 file changed
+13 -12
Download Patch File Download Diff File Expand all files Collapse all files
src/runtime/haskell/utils.c
+13 -12
View File
@@ -1,19 +1,20 @@
#include <HsFFI.h> #include <HsFFI.h>
#include <pgf/pgf.h> #include <pgf/pgf.h>
#include <stdlib.h>
void hs_free_unmarshaller(PgfUnmarshaller *unmarshaller) void hs_free_unmarshaller(PgfUnmarshaller *unmarshaller)
{ {
hs_free_fun_ptr(unmarshaller->eabs); hs_free_fun_ptr((HsFunPtr) unmarshaller->eabs);
hs_free_fun_ptr(unmarshaller->eapp); hs_free_fun_ptr((HsFunPtr) unmarshaller->eapp);
hs_free_fun_ptr(unmarshaller->elit); hs_free_fun_ptr((HsFunPtr) unmarshaller->elit);
hs_free_fun_ptr(unmarshaller->emeta); hs_free_fun_ptr((HsFunPtr) unmarshaller->emeta);
hs_free_fun_ptr(unmarshaller->efun); hs_free_fun_ptr((HsFunPtr) unmarshaller->efun);
hs_free_fun_ptr(unmarshaller->evar); hs_free_fun_ptr((HsFunPtr) unmarshaller->evar);
hs_free_fun_ptr(unmarshaller->etyped); hs_free_fun_ptr((HsFunPtr) unmarshaller->etyped);
hs_free_fun_ptr(unmarshaller->eimplarg); hs_free_fun_ptr((HsFunPtr) unmarshaller->eimplarg);
hs_free_fun_ptr(unmarshaller->lint); hs_free_fun_ptr((HsFunPtr) unmarshaller->lint);
hs_free_fun_ptr(unmarshaller->lflt); hs_free_fun_ptr((HsFunPtr) unmarshaller->lflt);
hs_free_fun_ptr(unmarshaller->lstr); hs_free_fun_ptr((HsFunPtr) unmarshaller->lstr);
hs_free_fun_ptr(unmarshaller->dtyp); hs_free_fun_ptr((HsFunPtr) unmarshaller->dtyp);
free(unmarshaller); free(unmarshaller);
} }