godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Delete 689 undead files.

Browse Source 
These files "magically reappeared" after the conversion from CVS to
Mercurial.  The old CVS repository deleted these files but did not
record *when* it deleted these files.  The conversion resurrected these
files because they have no history of deletion.  These files were
probably deleted before year 1995.  The CVS repository begins to record
deletions around 1995.

These files may still appear in older revisions of this Mercurial
repository, when they should already be deleted.  There is no way to fix
this, because the CVS repository provides no dates of deletion.

See http://sourceforge.net/mailarchive/message.php?msg_id=29823032
This commit is contained in:
George Koehler
2012-09-20 22:26:32 -04:00
parent b6dfaefeff
commit 0131ca4d46
689 changed files with 0 additions and 68730 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
mach/minixST/cv/Makefile
View File

@@ -1,25 +0,0 @@
EMHOME = ../../..
LIBOBJ = $(EMHOME)/modules/lib/libobject.a
INCLUDE = $(EMHOME)/h
CFLAGS = -I. -I$(INCLUDE) -O
TARGETS = cv
all: $(TARGETS)
install: all
../../install cv
cmp: all
../../compare cv
cv: cv.o
$(CC) $(LDFLAGS) -o cv cv.o $(LIBOBJ)
clean:
rm -f $(TARGETS) *.o nohup.out Out
pr:
@pr Makefile cv.c
opr:
make pr | opr

40
mach/minixST/libsys/Makefile
View File

@@ -1,40 +0,0 @@
# $Header$
MACH=minixST
all: libsys_o.a end.o head_em.o
install: all
../../install libsys_o.a tail_mon
../../install head_em.o head_em
../../install end.o end_em
cmp: all
-../../compare libsys_o.a tail_mon
-../../compare head_em.o head_em
-../../compare end.o end_em
end.o: end.s
$(MACH) -I../../../h -O -c end.s
head_em.o: head_em.s
$(MACH) -I../../../h -O -c head_em.s
libsys.a: libsys_s.a
ASAR=aal ; export ASAR ;\
march . libsys.a
libsys_o.a: libsys.a ../../../lib/m68k2/tail_em
mkdir X; cd X; aal x ../libsys.a; aal x ../../../../lib/m68k2/tail_em; aal rv ../libsys_o.a *.o
rm -rf X
clean:
rm -f *.o libsys_o.a libsys.a
opr :
make pr | opr
pr:
@pr `pwd`/head_em.s
@arch pv libsys.a | pr -h `pwd`/libsys.a
@pr `pwd`/end.s

31
mach/minixST/libsys/_mktemp.c
View File

@@ -1,31 +0,0 @@
#include <lib.h>
/* mktemp - make a name for a temporary file */
#include <sys/types.h>
#define mktemp _mktemp
#define getpid _getpid
#define access _access
#include <unistd.h>
PUBLIC char *mktemp(char *template)
{
register int pid, k;
register char *p;
pid = getpid(); /* get process id as semi-unique number */
p = template;
while (*p) p++; /* find end of string */
/* Replace XXXXXX at end of template with pid. */
while (*--p == 'X') {
*p = '0' + (pid % 10);
pid /= 10;
}
p++;
for (k = 'a'; k <= 'z'; k++) {
*p = k;
if (access(template, 0) < 0) {
return template;
}
}
return("/");
}

9
mach/minixST/libsys/access.c
View File

@@ -1,9 +0,0 @@
#include "lib.h"
PUBLIC int access(name, mode)
char *name;
int mode;
{
return callm3(FS, ACCESS, mode, name);
}

7
mach/minixST/libsys/alarm.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int alarm(sec)
unsigned sec;
{
return callm1(MM, ALARM, (int) sec, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

34
mach/minixST/libsys/brk.c
View File

@@ -1,34 +0,0 @@
#include "lib.h"
extern char *brksize;
PUBLIC char *brk(addr)
char *addr;
{
int k;
k = callm1(MM, BRK, 0, 0, 0, addr, NIL_PTR, NIL_PTR);
if (k == OK) {
brksize = M.m2_p1;
return(NIL_PTR);
} else {
return( (char*) -1 );
}
}
PUBLIC char *sbrk(incr)
int incr;
{
char *newsize, *oldsize;
oldsize = brksize;
newsize = brksize + incr;
if (incr > 0 && newsize < oldsize || incr < 0 && newsize > oldsize)
return( (char *) -1);
if (brk(newsize) == 0)
return(oldsize);
else
return( (char *) -1 );
}

8
mach/minixST/libsys/chdir.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int chdir(name)
char *name;
{
return callm3(FS, CHDIR, 0, name);
}

9
mach/minixST/libsys/chmod.c
View File

@@ -1,9 +0,0 @@
#include "lib.h"
PUBLIC int chmod(name, mode)
char* name;
int mode;
{
return callm3(FS, CHMOD, mode, name);
}

8
mach/minixST/libsys/chown.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int chown(name, owner, grp)
char *name;
int owner, grp;
{
return callm1(FS, CHOWN, len(name), owner, grp, name, NIL_PTR, NIL_PTR);
}

8
mach/minixST/libsys/chroot.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int chroot(name)
char* name;
{
return callm3(FS, CHROOT, 0, name);
}

8
mach/minixST/libsys/close.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int close(fd)
int fd;
{
return callm1(FS, CLOSE, fd, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

4
mach/minixST/libsys/compmodule
View File

@@ -1,4 +0,0 @@
if minixST -c -L -LIB $1 1>&2
then echo `basename $1 $2`.o
else exit 1
fi

8
mach/minixST/libsys/creat.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int creat(name, mode)
char* name;
int mode;
{
return callm3(FS, CREAT, mode, name);
}

7
mach/minixST/libsys/dup.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int dup(fd)
int fd;
{
return callm1(FS, DUP, fd, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

7
mach/minixST/libsys/dup2.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int dup2(fd, fd2)
int fd, fd2;
{
return callm1(FS, DUP, fd+0100, fd2, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

16
mach/minixST/libsys/end.s
View File

@@ -1,16 +0,0 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.define endtext,enddata,endbss
.define _end,_etext,_edata
.sect .text
endtext:
_etext:
.align 2
.sect .data
enddata:
_edata:
.align 2
.sect .endsect
_end:
endbss:
.align 2

103
mach/minixST/libsys/exec.c
View File

@@ -1,103 +0,0 @@
#include "lib.h"
extern char **environ; /* environment pointer */
#define PTRSIZE sizeof(char *)
PUBLIC int execl(name, arg0)
char *name;
char *arg0;
{
return execve(name, &arg0, environ);
}
PUBLIC int execle(name, argv)
char *name, *argv;
{
char **p;
p = (char **) &argv;
while (*p++) /* null statement */ ;
return execve(name, &argv, *p);
}
PUBLIC int execv(name, argv)
char *name, *argv[];
{
return execve(name, argv, environ);
}
PUBLIC int execve(name, argv, envp)
char *name; /* pointer to name of file to be executed */
char *argv[]; /* pointer to argument array */
char *envp[]; /* pointer to environment */
{
char stack[MAX_ISTACK_BYTES];
char **argorg, **envorg, *hp, **ap, *p;
int i, nargs, nenvps, stackbytes, offset;
extern errno;
/* Count the argument pointers and environment pointers. */
nargs = 0;
nenvps = 0;
argorg = argv;
envorg = envp;
while (*argorg++ != NIL_PTR) nargs++;
while (*envorg++ != NIL_PTR) nenvps++;
/* Prepare to set up the initial stack. */
hp = &stack[(nargs + nenvps + 3) * PTRSIZE];
if (hp + nargs + nenvps >= &stack[MAX_ISTACK_BYTES]) {
errno = E2BIG;
return(-1);
}
ap = (char **) stack;
*ap++ = (char *) nargs;
/* Prepare the argument pointers and strings. */
for (i = 0; i < nargs; i++) {
offset = hp - stack;
*ap++ = (char *) offset;
p = *argv++;
while (*p) {
*hp++ = *p++;
if (hp >= &stack[MAX_ISTACK_BYTES]) {
errno = E2BIG;
return(-1);
}
}
*hp++ = (char) 0;
}
*ap++ = NIL_PTR;
/* Prepare the environment pointers and strings. */
for (i = 0; i < nenvps; i++) {
offset = hp - stack;
*ap++ = (char *) offset;
p = *envp++;
while (*p) {
*hp++ = *p++;
if (hp >= &stack[MAX_ISTACK_BYTES]) {
errno = E2BIG;
return(-1);
}
}
*hp++ = (char) 0;
}
*ap++ = NIL_PTR;
stackbytes = ( ( (int)(hp - stack) + PTRSIZE - 1)/PTRSIZE) * PTRSIZE;
return callm1(MM_PROC_NR, EXEC, len(name), stackbytes, 0,name, stack,NIL_PTR);
}
PUBLIC execn(name)
char *name; /* pointer to file to be exec'd */
{
/* Special version used when there are no args and no environment. This call
* is principally used by INIT, to avoid having to allocate MAX_ISTACK_BYTES.
*/
static char stack[3 * PTRSIZE];
return callm1(MM_PROC_NR, EXEC, len(name), sizeof(stack), 0, name, stack, NIL_PTR);
}

6
mach/minixST/libsys/fork.c
View File

@@ -1,6 +0,0 @@
#include "lib.h"
PUBLIC int fork()
{
return callm1(MM, FORK, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

10
mach/minixST/libsys/fstat.c
View File

@@ -1,10 +0,0 @@
#include "lib.h"
PUBLIC int fstat(fd, buffer)
int fd;
char *buffer;
{
int n;
n = callm1(FS, FSTAT, fd, 0, 0, buffer, NIL_PTR, NIL_PTR);
return(n);
}

9
mach/minixST/libsys/getegid.c
View File

@@ -1,9 +0,0 @@
#include "lib.h"
PUBLIC gid getegid()
{
int k;
k = callm1(MM, GETGID, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
if (k < 0) return ( (gid) k);
return( (gid) M.m2_i1);
}

9
mach/minixST/libsys/geteuid.c
View File

@@ -1,9 +0,0 @@
#include "lib.h"
PUBLIC uid geteuid()
{
int k;
k = callm1(MM, GETUID, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
if (k < 0) return ( (uid) k);
return ((uid) M.m2_i1);
}

8
mach/minixST/libsys/getgid.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC gid getgid()
{
int k;
k = callm1(MM, GETGID, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
return( (gid) k);
}

6
mach/minixST/libsys/getpid.c
View File

@@ -1,6 +0,0 @@
#include "lib.h"
PUBLIC int getpid()
{
return callm1(MM, GETPID, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

8
mach/minixST/libsys/getuid.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC uid getuid()
{
int k;
k = callm1(MM, GETUID, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
return( (uid) k);
}

9
mach/minixST/libsys/gtty.c
View File

@@ -1,9 +0,0 @@
#include <sgtty.h>
gtty(fd, argp)
int fd;
char *argp;
{
return ioctl(fd, TIOCGETP, argp);
}

68
mach/minixST/libsys/ioctl.c
View File

@@ -1,68 +0,0 @@
#include "lib.h"
#include <minix/com.h>
#include <sgtty.h>
PUBLIC int ioctl(fd, request, u)
int fd;
int request;
union {
struct sgttyb *argp;
struct tchars *argt;
} u;
{
int n, ispeed, ospeed;
long erase, kill, intr, quit, xon, xoff, eof, brk, speed;
M.TTY_REQUEST = request;
M.TTY_LINE = fd;
switch(request) {
case TIOCSETP:
erase = u.argp->sg_erase & BYTE;
kill = u.argp->sg_kill & BYTE;
M.TTY_SPEK = (erase << 8) | kill;
M.TTY_FLAGS = u.argp->sg_flags;
M.TTY_SPEED = (u.argp->sg_ospeed << 8) | u.argp->sg_ispeed;
n = callx(FS, IOCTL);
return(n);
case TIOCSETC:
intr = u.argt->t_intrc & BYTE;
quit = u.argt->t_quitc & BYTE;
xon = u.argt->t_startc & BYTE;
xoff = u.argt->t_stopc & BYTE;
eof = u.argt->t_eofc & BYTE;
brk = u.argt->t_brkc & BYTE; /* not used at the moment */
M.TTY_SPEK = (intr<<24) | (quit<<16) | (xon<<8) | (xoff<<0);
M.TTY_FLAGS = (eof<<8) | (brk<<0);
n = callx(FS, IOCTL);
return(n);
case TIOCGETP:
n = callx(FS, IOCTL);
u.argp->sg_erase = (M.TTY_SPEK >> 8) & BYTE;
u.argp->sg_kill = (M.TTY_SPEK >> 0) & BYTE;
u.argp->sg_flags = M.TTY_FLAGS & 0xFFFF;
speed = (M.TTY_FLAGS >> 16) & 0xFFFFL;
u.argp->sg_ispeed = speed & BYTE;
u.argp->sg_ospeed = (speed >> 8) & BYTE;
return(n);
case TIOCGETC:
n = callx(FS, IOCTL);
u.argt->t_intrc = (M.TTY_SPEK >> 24) & BYTE;
u.argt->t_quitc = (M.TTY_SPEK >> 16) & BYTE;
u.argt->t_startc = (M.TTY_SPEK >> 8) & BYTE;
u.argt->t_stopc = (M.TTY_SPEK >> 0) & BYTE;
u.argt->t_eofc = (M.TTY_FLAGS >> 8) & BYTE;
u.argt->t_brkc = (M.TTY_FLAGS >> 8) & BYTE;
return(n);
default:
n = -1;
errno = -(EINVAL);
return(n);
}
}

8
mach/minixST/libsys/kill.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int kill(proc, sig)
int proc; /* which process is to be sent the signal */
int sig; /* signal number */
{
return callm1(MM, KILL, proc, sig, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

13
mach/minixST/libsys/lib.h
View File

@@ -1,13 +0,0 @@
#include <minix/const.h>
#include <minix/type.h>
#include <minix/callnr.h>
#include <errno.h>
extern message M;
#define MM 0
#define FS 1
extern int callm1(), callm3(), callx(), len();
extern int errno;
extern int begsig(); /* interrupts all vector here */

7
mach/minixST/libsys/link.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int link(name, name2)
char *name, *name2;
{
return callm1(FS, LINK, len(name), len(name2), 0, name, name2, NIL_PTR);
}

15
mach/minixST/libsys/lseek.c
View File

@@ -1,15 +0,0 @@
#include "lib.h"
PUBLIC long lseek(fd, offset, whence)
int fd;
long offset;
int whence;
{
int k;
M.m2_i1 = fd;
M.m2_l1 = offset;
M.m2_i2 = whence;
k = callx(FS, LSEEK);
if (k != OK) return( (long) k); /* send itself failed */
return(M.m2_l1);
}

8
mach/minixST/libsys/mknod.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int mknod(name, mode, addr)
char *name;
int mode, addr;
{
return callm1(FS, MKNOD, len(name), mode, addr, name, NIL_PTR, NIL_PTR);
}

20
mach/minixST/libsys/mktemp.c
View File

@@ -1,20 +0,0 @@
/* mktemp - make a name for a temporary file */
char *mktemp(template)
char *template;
{
int pid, k;
char *p;
pid = getpid(); /* get process id as semi-unique number */
p = template;
while (*p++) ; /* find end of string */
p--; /* backup to last character */
/* Replace XXXXXX at end of template with pid. */
while (*--p == 'X') {
*p = '0' + (pid % 10);
pid = pid/10;
}
return(template);
}

5
mach/minixST/libsys/mktemp.s
View File

@@ -1,5 +0,0 @@
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text
.define _mktemp
_mktemp:
jmp __mktemp

8
mach/minixST/libsys/mount.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int mount(special, name, rwflag)
char *name, *special;
int rwflag;
{
return callm1(FS, MOUNT, len(special), len(name), rwflag, special, name, NIL_PTR);
}

8
mach/minixST/libsys/open.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int open(name, mode)
char* name;
int mode;
{
return callm3(FS, OPEN, mode, name);
}

6
mach/minixST/libsys/pause.c
View File

@@ -1,6 +0,0 @@
#include "lib.h"
PUBLIC int pause()
{
return callm1(MM, PAUSE, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

14
mach/minixST/libsys/pipe.c
View File

@@ -1,14 +0,0 @@
#include "lib.h"
PUBLIC int pipe(fild)
int fild[2];
{
int k;
k = callm1(FS, PIPE, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
if (k >= 0) {
fild[0] = M.m1_i1;
fild[1] = M.m1_i2;
return(0);
} else
return(k);
}

11
mach/minixST/libsys/read.c
View File

@@ -1,11 +0,0 @@
#include "lib.h"
PUBLIC int read(fd, buffer, nbytes)
int fd;
char *buffer;
int nbytes;
{
int n;
n = callm1(FS, READ, fd, nbytes, 0, buffer, NIL_PTR, NIL_PTR);
return(n);
}

7
mach/minixST/libsys/setgid.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int setgid(grp)
int grp;
{
return callm1(MM, SETGID, grp, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

7
mach/minixST/libsys/setuid.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int setuid(usr)
int usr;
{
return callm1(MM, SETUID, usr, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

28
mach/minixST/libsys/signal.c
View File

@@ -1,28 +0,0 @@
#include "lib.h"
#include <signal.h>
int (*vectab[NSIG])(); /* array of functions to catch signals */
/* The definition of signal really should be
* PUBLIC int (*signal(signr, func))()
* but some compilers refuse to accept this, even though it is correct.
* The only thing to do if you are stuck with such a defective compiler is
* change it to
* PUBLIC int *signal(signr, func)
* and change ../h/signal.h accordingly.
*/
PUBLIC int (*signal(signr, func))()
int signr; /* which signal is being set */
int (*func)(); /* pointer to function that catches signal */
{
int r,(*old)();
old = vectab[signr - 1];
vectab[signr - 1] = func;
M.m6_i1 = signr;
M.m6_f1 = ( (func == SIG_IGN || func == SIG_DFL) ? func : begsig);
r = callx(MM, SIGNAL);
if (r == 1) old = SIG_IGN;
return( (r < 0 ? (int (*)()) r : old) );
}

10
mach/minixST/libsys/stat.c
View File

@@ -1,10 +0,0 @@
#include "lib.h"
PUBLIC int stat(name, buffer)
char *name;
char *buffer;
{
int n;
n = callm1(FS, STAT, len(name), 0, 0, name, buffer, NIL_PTR);
return(n);
}

8
mach/minixST/libsys/stderr.c
View File

@@ -1,8 +0,0 @@
std_err(s)
char *s;
{
char *p = s;
while(*p != 0) p++;
write(2, s, (int)(p - s));
}

8
mach/minixST/libsys/stime.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int stime(top)
long *top;
{
M.m2_l1 = *top;
return callx(FS, STIME);
}

9
mach/minixST/libsys/stty.c
View File

@@ -1,9 +0,0 @@
#include <sgtty.h>
stty(fd, argp)
int fd;
char *argp;
{
return ioctl(fd, TIOCSETP, argp);
}

6
mach/minixST/libsys/sync.c
View File

@@ -1,6 +0,0 @@
#include "lib.h"
PUBLIC int sync()
{
return callm1(FS, SYNC, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

13
mach/minixST/libsys/time.c
View File

@@ -1,13 +0,0 @@
#include "lib.h"
PUBLIC long time(tp)
long *tp;
{
int k;
long l;
k = callm1(FS, TIME, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
if (M.m_type < 0 || k != OK) {errno = -M.m_type; return(-1L);}
l = M.m2_l1;
if (tp != (long *) 0) *tp = l;
return(l);
}

15
mach/minixST/libsys/times.c
View File

@@ -1,15 +0,0 @@
#include "lib.h"
#include <sys/types.h>
#include <sys/times.h>
PUBLIC int times(buf)
struct tms *buf;
{
int k;
k = callm1(FS, TIMES, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
buf->tms_utime = M.m4_l1;
buf->tms_stime = M.m4_l2;
buf->tms_cutime = M.m4_l3;
buf->tms_cstime = M.m4_l4;
return(k);
}

7
mach/minixST/libsys/umask.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int umask(complmode)
int complmode;
{
return callm1(FS, UMASK, complmode, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}

7
mach/minixST/libsys/umount.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int umount(name)
char* name;
{
return callm3(FS, UMOUNT, 0, name);
}

7
mach/minixST/libsys/unlink.c
View File

@@ -1,7 +0,0 @@
#include "lib.h"
PUBLIC int unlink(name)
char *name;
{
return callm3(FS, UNLINK, 0, name);
}

12
mach/minixST/libsys/utime.c
View File

@@ -1,12 +0,0 @@
#include "lib.h"
PUBLIC int utime(name, timp)
char *name;
long timp[2];
{
M.m2_i1 = len(name);
M.m2_l1 = timp[0];
M.m2_l2 = timp[1];
M.m2_p1 = name;
return callx(FS, UTIME);
}

10
mach/minixST/libsys/wait.c
View File

@@ -1,10 +0,0 @@
#include "lib.h"
PUBLIC int wait(status)
int *status;
{
int k;
k = callm1(MM, WAIT, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
if (k >= 0 && status != 0) *status = M.m2_i1;
return(k);
}

8
mach/minixST/libsys/write.c
View File

@@ -1,8 +0,0 @@
#include "lib.h"
PUBLIC int write(fd, buffer, nbytes)
char *buffer;
int nbytes;
{
return callm1(FS, WRITE, fd, nbytes, 0, buffer, NIL_PTR, NIL_PTR);
}