This commit was generated by cvs2svn to compensate for changes in r4,

which included commits to RCS files with non-trunk default branches.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

H/arrays.h

@@ -0,0 +1,30 @@
+/*************************************************************************
+*									 *
+*	 YAP Prolog 							 *
+*									 *
+*	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
+*									 *
+* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997	 *
+*									 *
+**************************************************************************
+*									 *
+* File:		corout.c						 *
+* Last rev:								 *
+* mods:									 *
+* comments:	Support to YAP arrays					 *
+*									 *
+*************************************************************************/
+#ifdef SCCS
+static char SccsId[]="%W% %G%";
+#endif
+
+/* This should never be followed by GC */
+typedef struct array_access_struct {
+  Functor  array_access_func;		/* identifier of array access  */
+  Term	ArrayT;				/* term that references the array */
+  Term  indx;				/* index in array, for now
+				   keep it as an integer! */
+} array_access;
+
+
+