48 lines
765 B
C
48 lines
765 B
C
|
|
#include <export.h>
|
|
#include "dinmem.h"
|
|
|
|
|
|
/*
|
|
* POR HACER: eDIV debe controlar todas las peticiones de memoria dinámica
|
|
* es decir, si hacemos un free() donde no debemos, debe producirse un
|
|
* fp->Runtime_Error
|
|
*/
|
|
int ExportaFuncs(EXPORTAFUNCS_PARAMS)
|
|
{
|
|
|
|
FUNCTION("malloc",1,eDiv_Malloc) ;
|
|
FUNCTION("free",1,eDiv_Free) ;
|
|
return TRUE ;
|
|
}
|
|
|
|
int eDiv_Malloc(FUNCTION_PARAMS)
|
|
{
|
|
int longitud ;
|
|
int *puntero ;
|
|
longitud = getparm() ;
|
|
|
|
puntero = calloc(longitud,4) ;
|
|
if ( puntero == NULL ) {
|
|
fp->Runtime_Error(100); /* no hay memoria suficiente */
|
|
return 0 ;
|
|
}
|
|
else
|
|
return ( puntero - fp->mem ) ;
|
|
}
|
|
|
|
int eDiv_Free(FUNCTION_PARAMS)
|
|
{
|
|
int offset ;
|
|
int *puntero ;
|
|
offset = getparm() ;
|
|
puntero = &fp->mem[offset] ;
|
|
free( puntero ) ;
|
|
|
|
return 1 ;
|
|
}
|
|
|
|
|
|
|
|
|