improve char conversion

2013-12-05 11:20:57 +00:00
parent ba07371328
commit b3608c6a83
5 changed files with 23 additions and 21 deletions
--- a/C/compiler.c
+++ b/C/compiler.c
@@ -693,6 +693,7 @@ c_arg(Int argno, Term t, unsigned int arity, unsigned int level, compiler_struct
 	Int sz = (3+src[1])*sizeof(CELL);
 	CELL *dest;

+	char *ptr = src+2; int chr;
 	/* use a special list to store the blobs */
 	cglobs->cint.cpc = cglobs->cint.icpc;
 	/*      if (IsFloatTerm(t)) {