gcc/fortran/module.c

125    be updated when a pointer value becomes known.  */
129   void **pointer;
157   /* The first component of each member of the union is the pointer
164     void *pointer;	/* Member for doing pointer searches.  */
232 /* Recursively free the tree of pointer structures.  */
257 /* Compare pointers when searching by pointer.  Used when writing a
268   if (sn1->u.pointer < sn2->u.pointer)
270   if (sn1->u.pointer > sn2->u.pointer)
308   /* Pointer 0 is the NULL pointer.  */
310   p->u.pointer = NULL;
318   p->u.pointer = gfc_current_ns;
328 /* During module writing, call here with a pointer to something,
339       if (p->u.pointer == gp)
341       p = (gp < p->u.pointer) ? p->left : p->right;
348 /* Given a pointer while writing, returns the pointer_info tree node,
363   p->u.pointer = gp;
398   p->u.pointer = NULL;
406 /* Resolve any fixups using a known pointer.  */
416       *(f->pointer) = gp;
450 /* Call here during module reading when we know what pointer to
457   if (p->u.pointer != NULL)
460   p->u.pointer = gp;
468 /* During module reading, given an integer and a pointer to a pointer,
469    either store the pointer from an already-known value or create a
484   if (p->integer == 0 || p->u.pointer != NULL)
487       *cp = (char *) p->u.pointer;
496       f->pointer = (void **) gp;
890 /* Given a gfc_symbol pointer that is not in the true name tree, add it.  */
1082 /* Set the module's input pointer.  */
1093 /* Get the module's input pointer so that we can restore it later.  */
1480 /* Given a pointer to an mstring array, require that the current input
1623    pointer because enums are sometimes inside bitfields.  */
1701 /* Read or write a character pointer that points to a string on the heap.  */
1816 /* Read or write a character pointer that points to a wide string on the
1849      fixup pointer.  */
2049       if (attr->pointer)
2183 	      attr->pointer = 1;
2484 /* Given a pointer to an array reference structure (which lives in a
2486    structure.  Storing the pointer in the ref structure doesn't quite
2564 /* Saves or restores a pointer.  The pointer is converted back and
2565    forth from an integer.  We return the pointer_info pointer so that
2566    the caller can take additional action based on the pointer type.  */
2857 	  f->pointer = (void **) stp;
3616       ns = (gfc_namespace *) p->u.pointer;
4022       q->u.pointer = (void *) ns;
4698       ns = (gfc_namespace *) q->u.pointer;
4774       ns = (gfc_namespace *) q->u.pointer;
4928 	 failing, we need to associate the module's component pointer indexes
4948 	      if (p->u.pointer == NULL)
4965       if (q->u.pointer == NULL)
6019    the current namespace for all named constants, pointer types, and