fix attributed variable space allocation

2009-05-01 12:11:52 -05:00
parent ee44706d37
commit 58838b7838
2 changed files with 7 additions and 4 deletions
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -2097,8 +2097,8 @@ YAP_Init(YAP_init_args *yap_init)
      yap_init->ErrorCause = Yap_ErrorMessage;
      return YAP_BOOT_FROM_SAVED_ERROR;
    }
-    if (Atts && Atts > 2048*sizeof(CELL))
-      Yap_AttsSize = Atts;
+    if (Atts && Atts*1024 > 2048*sizeof(CELL))
+      Yap_AttsSize = Atts*1024;
    else
      Yap_AttsSize = 2048*sizeof(CELL);
    if (restore_result == DO_ONLY_CODE) {