scimem.c File Reference

#include "MALLOC.h"
#include "stack-c.h"
#include "scimem.h"
#include "sciprint.h"

Include dependency graph for scimem.c:

Go to the source code of this file.

Functions
integer C2F()	scimem (integer *n, integer *ptr)
integer C2F()	scigmem (integer *n, integer *ptr)
void C2F()	freegmem (void)
void C2F()	freemem (void)
Variables
static char *	the_p = NULL
static char *	the_ps = NULL
static char *	the_gp = NULL
static char *	the_gps = NULL

---

Function Documentation

void C2F() freegmem

(

void

)

Definition at line 69 of file scimem.c.

References NULL, SCISTACKFREE, and the_gps.

Referenced by TerminateCorePart2().

{
  if (the_gps != NULL) SCISTACKFREE(the_gps);
}

Here is the caller graph for this function:

void C2F() freemem

(

void

)

Definition at line 74 of file scimem.c.

References NULL, SCISTACKFREE, and the_ps.

Referenced by TerminateCorePart2().

{
  if (the_ps != NULL) SCISTACKFREE(the_ps);
}

Here is the caller graph for this function:

integer C2F() scigmem	(	integer *	n,
		integer *	ptr
	)

Definition at line 42 of file scimem.c.

References C2F, int, n, NULL, sciprint(), SCISTACKMALLOC, the_gp, and the_gps.

Referenced by C2F().

{
  register char *p1=NULL;
  if (*n > 0)
  {
    /* add 1 for alignment problems */
    p1 = (char *) SCISTACKMALLOC((unsigned)sizeof(double) * (*n + 1));
    if (p1 != NULL) 
        {
                the_gps = the_gp;
                the_gp = p1;
                /* add 1 for alignment problems */
                *ptr = ((int) (the_gp - (char *)C2F(stack).Stk))/sizeof(double) + 1;
    }
    else 
    {
                if (the_gp == NULL) 
                {
                        sciprint("No space to allocate Scilab stack\r\n");
                        exit(1); 
                }
                *ptr=0;
    }
  }
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

integer C2F() scimem	(	integer *	n,
		integer *	ptr
	)

Definition at line 14 of file scimem.c.

References C2F, int, n, NULL, sciprint(), SCISTACKMALLOC, the_p, and the_ps.

Referenced by C2F().

{
  register char *p1 = NULL;
  if (*n > 0)
  {
        /* add 1 for alignment problems */
    p1 = (char *) SCISTACKMALLOC(((unsigned long) sizeof(double)) * (*n + 1));
                  
    if (p1 != NULL) 
        {
                the_ps = the_p;
                the_p = p1;
                /* add 1 for alignment problems */
                *ptr = ((int) (the_p - (char *)C2F(stack).Stk))/sizeof(double) + 1;
    }
    else 
    {
                if (the_p == NULL) 
                {
                        sciprint("No space to allocate Scilab stack\r\n");
                        exit(1); 
                }
                *ptr=0;
    }
  }
  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

char* the_gp = NULL [static]

Definition at line 11 of file scimem.c.

Referenced by scigmem().

char* the_gps = NULL [static]

Definition at line 12 of file scimem.c.

Referenced by freegmem(), and scigmem().

char* the_p = NULL [static]

Definition at line 9 of file scimem.c.

Referenced by scimem().

char* the_ps = NULL [static]

Definition at line 10 of file scimem.c.

Referenced by freemem(), and scimem().

---