GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-16 00:09:31 -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 <pgf/pgf.h>
#include <stdlib.h>
void hs_free_unmarshaller(PgfUnmarshaller *unmarshaller)
{
hs_free_fun_ptr(unmarshaller->eabs);
hs_free_fun_ptr(unmarshaller->eapp);
hs_free_fun_ptr(unmarshaller->elit);
hs_free_fun_ptr(unmarshaller->emeta);
hs_free_fun_ptr(unmarshaller->efun);
hs_free_fun_ptr(unmarshaller->evar);
hs_free_fun_ptr(unmarshaller->etyped);
hs_free_fun_ptr(unmarshaller->eimplarg);
hs_free_fun_ptr(unmarshaller->lint);
hs_free_fun_ptr(unmarshaller->lflt);
hs_free_fun_ptr(unmarshaller->lstr);
hs_free_fun_ptr(unmarshaller->dtyp);
hs_free_fun_ptr((HsFunPtr) unmarshaller->eabs);
hs_free_fun_ptr((HsFunPtr) unmarshaller->eapp);
hs_free_fun_ptr((HsFunPtr) unmarshaller->elit);
hs_free_fun_ptr((HsFunPtr) unmarshaller->emeta);
hs_free_fun_ptr((HsFunPtr) unmarshaller->efun);
hs_free_fun_ptr((HsFunPtr) unmarshaller->evar);
hs_free_fun_ptr((HsFunPtr) unmarshaller->etyped);
hs_free_fun_ptr((HsFunPtr) unmarshaller->eimplarg);
hs_free_fun_ptr((HsFunPtr) unmarshaller->lint);
hs_free_fun_ptr((HsFunPtr) unmarshaller->lflt);
hs_free_fun_ptr((HsFunPtr) unmarshaller->lstr);
hs_free_fun_ptr((HsFunPtr) unmarshaller->dtyp);
free(unmarshaller);
}