scimem.c

Go to the documentation of this file.

/*-----------------------------------------------------------------------------------*/
/* Copyright INRIA */
/*-----------------------------------------------------------------------------------*/
#include "MALLOC.h"
#include "stack-c.h"
#include "scimem.h"
#include "sciprint.h"
/*-----------------------------------------------------------------------------------*/
static char *the_p=NULL;
static char *the_ps=NULL;
static char *the_gp=NULL;
static char *the_gps=NULL;
/*-----------------------------------------------------------------------------------*/
integer C2F(scimem)(integer *n, integer *ptr)
{
  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);
}
/*-----------------------------------------------------------------------------------*/
integer C2F(scigmem)(integer *n, integer *ptr)
{
  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);
}
/*-----------------------------------------------------------------------------------*/
void C2F(freegmem)(void)
{
  if (the_gps != NULL) SCISTACKFREE(the_gps);
}
/*-----------------------------------------------------------------------------------*/
void C2F(freemem)(void)
{
  if (the_ps != NULL) SCISTACKFREE(the_ps);
}
/*-----------------------------------------------------------------------------------*/

---