GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

silence warnings

Browse Source
This commit is contained in:
krangelov
2021-08-13 08:28:30 +02:00
parent 1bc0cfd025
commit 08bcd2f0b5
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/runtime/haskell/utils.c
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);
} }