From 835f315727707a2d9e06a588f9dc4b8d6afaf0bb Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 8 Jun 2001 19:22:35 +0000
Subject: [PATCH] access_array_element is unsafe

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@70 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/arrays.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/arrays.c b/C/arrays.c
index 2bfd9105f..d5622ea64 100644
--- a/C/arrays.c
+++ b/C/arrays.c
@@ -1637,7 +1637,7 @@ InitArrayPreds(void)
   InitCPred("resize_static_array", 3, p_resize_static_array, SafePredFlag|SyncPredFlag);
   InitCPred("mmapped_array", 4, p_create_mmapped_array, SafePredFlag|SyncPredFlag);
   InitCPred("update_array", 3, p_assign_static, SafePredFlag);
-  InitCPred("array_element", 3, p_access_array, SafePredFlag);
+  InitCPred("array_element", 3, p_access_array, 0);
   InitCPred("close_static_array", 1, p_close_static_array, SafePredFlag);
   InitCPred("$sync_mmapped_arrays", 0, p_sync_mmapped_arrays, SafePredFlag);
   InitCPred("$compile_array_refs", 0, p_compile_array_refs, SafePredFlag);