Bug fixes!

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@964 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2004-01-29 13:37:10 +00:00
parent c6827310f5
commit cacc407677
16 changed files with 77 additions and 58 deletions
--- a/C/compiler.c
+++ b/C/compiler.c
@@ -451,9 +451,9 @@ c_arg(Int argno, Term t, unsigned int arity, unsigned int level, compiler_struct

      /* use a special list to store the blobs */
      cglobs->cint.cpc = cglobs->cint.icpc;
-      if (IsFloatTerm(t)) {
+      /*      if (IsFloatTerm(t)) {
 	Yap_emit(align_float_op, Zero, Zero, &cglobs->cint);
-      }
+	}*/
      Yap_emit(label_op, l1, Zero, &cglobs->cint);
      if (IsFloatTerm(t)) {
 	/* let us do floats first */