[Yap-commits] CVS: C arrays.c,1.3,1.4

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/C
In directory usw-pr-cvs1:/tmp/cvs-serv17064/C

Modified Files:
	arrays.c 
Log Message:
access_array_element is unsafe


Index: arrays.c
===================================================================
RCS file: /cvsroot/yap/C/arrays.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- arrays.c	2001/06/08 19:10:43	1.3
+++ arrays.c	2001/06/08 19:22:35	1.4
@@ -1637,7 +1637,7 @@
   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);