bindings-DSL 1.0.9 → 1.0.10
raw patch · 3 files changed
+14/−16 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- LICENSE +1/−1
- bindings-DSL.cabal +1/−1
- bindings.dsl.h +12/−14
LICENSE view
@@ -1,4 +1,4 @@-Copyright © <2008–2009>, <Maurício C. Antunes>+Copyright © <2008–2011>, <Maurício C. Antunes> All rights reserved. Redistribution and use in source and binary forms, with or without
bindings-DSL.cabal view
@@ -17,7 +17,7 @@ . This package contains no Haskell code, only C header files designed for hsc2hs.-version: 1.0.9+version: 1.0.10 license: BSD3 license-file: LICENSE maintainer: Maurício C. Antunes <mauricio.antunes@gmail.com>
bindings.dsl.h view
@@ -164,7 +164,7 @@ static struct { int n, is_array[500], is_union[500], is_fam[500];- size_t howmany[500], offset[500];+ uintmax_t howmany[500], offset[500]; char fname[500][1000], ftype[500][1000]; } bc_fielddata; @@ -184,7 +184,7 @@ printf("\n "); \ bc_fieldname(typename,# name); \ printf(" :: ");bc_typemarkup(# type); \- bc_fielddata.offset[index] = (size_t)&(refpointer->name); \+ bc_fielddata.offset[index] = (uintmax_t)&(refpointer->name); \ bc_fielddata.is_array[index] = 0; \ bc_fielddata.is_union[index] = 0; \ bc_fielddata.is_fam[index] = 0; \@@ -216,7 +216,7 @@ for (i=0; i < bc_fielddata.n; i++) if (bc_fielddata.is_fam[i]) \ { \ bc_famaccess(typename,bc_fielddata.fname[i]); \- printf(" p = plusPtr p %zu\n",bc_fielddata.offset[i]); \+ printf(" p = plusPtr p %"PRIuMAX"\n",bc_fielddata.offset[i]); \ bc_famaccess(typename,bc_fielddata.fname[i]); \ printf(" :: Ptr (");bc_conid(typename);printf(") -> "); \ printf("Ptr (");bc_typemarkup(bc_fielddata.ftype[i]);printf(")\n"); \@@ -229,13 +229,13 @@ if (bc_fielddata.is_array[i]) \ { \ printf(" pokeArray (plusPtr p %"PRIuMAX") ", \- (uintmax_t)(bc_fielddata.offset[i])); \+ bc_fielddata.offset[i]); \ printf("(take %"PRIuMAX" vf)", \- (uintmax_t)(bc_fielddata.howmany[i])); \+ bc_fielddata.howmany[i]); \ } \ else \ printf(" pokeByteOff p %"PRIuMAX" vf", \- (uintmax_t)(bc_fielddata.offset[i])); \+ bc_fielddata.offset[i]); \ printf("\n"); \ printf(" vu <- peek p\n"); \ printf(" return $ v \n"); \@@ -264,11 +264,10 @@ printf("return []"); \ else if (bc_fielddata.is_array[i]) \ printf("peekArray %"PRIuMAX" (plusPtr p %"PRIuMAX")", \- (uintmax_t)(bc_fielddata.howmany[i]), \- (uintmax_t)(bc_fielddata.offset[i])); \+ bc_fielddata.howmany[i], bc_fielddata.offset[i]); \ else \ printf("peekByteOff p %"PRIuMAX"", \- (uintmax_t)(bc_fielddata.offset[i])); \+ bc_fielddata.offset[i]); \ printf("\n"); \ } \ printf(" return $ ");bc_conid(typename); \@@ -280,14 +279,13 @@ printf(" "); \ if (bc_fielddata.is_fam[i]) \ printf("pokeArray (plusPtr p %"PRIuMAX") v%d", \- (uintmax_t)(bc_fielddata.offset[i]),i); \+ bc_fielddata.offset[i],i); \ else if (bc_fielddata.is_array[i]) \- printf("pokeArray (plusPtr p %"PRIuMAX") " \- "(take %"PRIuMAX" v%d)",(uintmax_t)(bc_fielddata.offset[i]), \- (uintmax_t)(bc_fielddata.howmany[i]),i); \+ printf("pokeArray (plusPtr p %"PRIuMAX") (take %"PRIuMAX" v%d)", \+ bc_fielddata.offset[i], bc_fielddata.howmany[i],i); \ else \ printf("pokeByteOff p %"PRIuMAX" v%d", \- (uintmax_t)(bc_fielddata.offset[i]),i); \+ bc_fielddata.offset[i],i); \ printf("\n"); \ } \ printf(" return ()\n"); \