*** empty log message ***
This commit is contained in:
keie
parent
57115f49cc
commit
d16efbab98
3 changed files with 185 additions and 0 deletions
56
lang/cem/libcc/gen/head_cc.e
Normal file
56
lang/cem/libcc/gen/head_cc.e
Normal file
|
|
@ -0,0 +1,56 @@
|
|||
#
|
||||
/*
|
||||
* (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||||
*
|
||||
* This product is part of the Amsterdam Compiler Kit.
|
||||
*
|
||||
* Permission to use, sell, duplicate or disclose this software must be
|
||||
* obtained in writing. Requests for such permissions may be sent to
|
||||
*
|
||||
* Dr. Andrew S. Tanenbaum
|
||||
* Wiskundig Seminarium
|
||||
* Vrije Universiteit
|
||||
* Postbox 7161
|
||||
* 1007 MC Amsterdam
|
||||
* The Netherlands
|
||||
*
|
||||
*/
|
||||
|
||||
/* Author: E.G. Keizer */
|
||||
|
||||
mes 2,EM_WSIZE,EM_PSIZE
|
||||
|
||||
exa environ
|
||||
exa _penvp
|
||||
environ
|
||||
bss EM_PSIZE,0,0
|
||||
_penvp
|
||||
bss EM_PSIZE,0,0
|
||||
|
||||
exp $m_a_i_n
|
||||
pro $m_a_i_n,0
|
||||
#if EM_WSIZE==1
|
||||
ldc 256
|
||||
#else
|
||||
loc 256
|
||||
#endif
|
||||
sim ; EIUND is ignored
|
||||
lal EM_WSIZE+EM_PSIZE
|
||||
loi EM_PSIZE
|
||||
lae environ
|
||||
sti EM_PSIZE
|
||||
lae environ
|
||||
loi EM_PSIZE
|
||||
lae _penvp
|
||||
sti EM_PSIZE
|
||||
lal EM_WSIZE+EM_PSIZE
|
||||
loi EM_PSIZE
|
||||
lal EM_WSIZE
|
||||
loi EM_PSIZE
|
||||
lal 0
|
||||
loi EM_WSIZE
|
||||
cal $main
|
||||
asp EM_WSIZE+EM_PSIZE+EM_PSIZE
|
||||
lfr EM_WSIZE
|
||||
cal $exit
|
||||
end
|
||||
64
lang/cem/libcc/mon/LIST
Normal file
64
lang/cem/libcc/mon/LIST
Normal file
|
|
@ -0,0 +1,64 @@
|
|||
tail_mon.a
|
||||
exit.c
|
||||
gtty.c
|
||||
signal.c
|
||||
stty.c
|
||||
tell.c
|
||||
time.c
|
||||
cleanup.c
|
||||
access.e
|
||||
acct.e
|
||||
alarm.e
|
||||
brk.e
|
||||
chdir.e
|
||||
chmod.e
|
||||
chown.e
|
||||
chroot.e
|
||||
close.e
|
||||
creat.e
|
||||
dup.e
|
||||
dup2.e
|
||||
execl.e
|
||||
execle.e
|
||||
execv.e
|
||||
execve.e
|
||||
_exit.e
|
||||
fork.e
|
||||
fstat.e
|
||||
ftime.e
|
||||
getegid.e
|
||||
geteuid.e
|
||||
getgid.e
|
||||
getpid.e
|
||||
getuid.e
|
||||
ioctl.e
|
||||
kill.e
|
||||
link.e
|
||||
lock.e
|
||||
lseek.e
|
||||
mknod.e
|
||||
mount.e
|
||||
mpxcall.e
|
||||
nice.e
|
||||
open.e
|
||||
pause.e
|
||||
pipe.e
|
||||
prof.e
|
||||
ptrace.e
|
||||
read.e
|
||||
sbrk.e
|
||||
setgid.e
|
||||
setuid.e
|
||||
setsig.e
|
||||
sigtrp.e
|
||||
stat.e
|
||||
stime.e
|
||||
sync.e
|
||||
times.e
|
||||
umask.e
|
||||
umount.e
|
||||
unlink.e
|
||||
utime.e
|
||||
wait.e
|
||||
write.e
|
||||
errno.e
|
||||
65
lang/cem/libcc/mon/types
Normal file
65
lang/cem/libcc/mon/types
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
void exit(status) int status ;
|
||||
int gtty(fildes,argp) int fildes; struct sgttyb *argp ;
|
||||
int pkon(fd,size) int fd, size ;
|
||||
int pkoff(fd) int fd ;
|
||||
char *sbrk(incr) p_int incr ;
|
||||
void (*signal(sig,func))() int sig ; void (*func)();
|
||||
int stty(fildes,argp) int fildes; struct sgttyb *argp ;
|
||||
long tell(fildes) int fildes ;
|
||||
time_t time(ptr) time_t *ptr ;
|
||||
void cleanup() ;
|
||||
int access(name,mode) char *name ; int mode ;
|
||||
int acct(file) char *file ;
|
||||
unsigned alarm(seconds) unsigned seconds ;
|
||||
int brk(addr) char *addr ;
|
||||
int chdir(dir) char *dir ;
|
||||
int chmod(name,mode) char *name ; int mode ;
|
||||
int chown(name,owner,group) char *name ; int owner, group ;
|
||||
int chroot(dir) char *dir ;
|
||||
int close(fildes) int fildes ;
|
||||
int creat(name) char *name ;
|
||||
int dup(fildes) int fildes ;
|
||||
int dup2(fildes,fildes2) int fildes, fildes2 ;
|
||||
int execl(name,arg0,...,argn,(char*)0) char *name,*arg0,...,*argn ;
|
||||
int execl(name,arg0,...,argn,(char*)0,envp) char*name,*arg0,...,*argn,*envp[];
|
||||
int execv(name,argv) char *name,*argv[] ;
|
||||
int execve(name,argv,envp) char *name,*argv[],*envp[] ;
|
||||
void _exit(status) int status ;
|
||||
int fork() ;
|
||||
int fstat(fildes,buf) int fildes ; struct stat *buf ;
|
||||
void ftime(tp) struct timeb *tp ;
|
||||
int getegid() ;
|
||||
int geteuid() ;
|
||||
int getgid() ;
|
||||
int getpid() ;
|
||||
int getuid() ;
|
||||
int ioctl(fildes,request,argp) int fildes, request ; struct sgttyb *buf ;
|
||||
int kill(pid,sig) int pid, sig ;
|
||||
int link(name1,name2) char *name1, *name2 ;
|
||||
int lock(flag) int flag ;
|
||||
long lseek(fildes,offset,whence) int fildes, whence ; long offset ;
|
||||
int mknod(name,mode,addr) char *name ; int mode, addr ;
|
||||
int mount(special,name,rwflag) char *special, *name ; int rwflag ;
|
||||
int mpxcall(cmd,vec) int cmd, *vec ;
|
||||
void nice(incr) int incr ;
|
||||
int open(name,mode) char *name ; int mode ;
|
||||
void pause() ;
|
||||
int pipe(files) int files[2] ;
|
||||
void profil(buff,bufsiz,offset,scale) char *buf; p_int bufsiz,offset,scale;
|
||||
int ptrace(request,pid,addr,data) int request, pid, *addr, data ;
|
||||
unsigned read(fildes,buff,nbytes) int fildes ; char *buff ; unsigned nbytes ;
|
||||
int setgid(gid) int gid ;
|
||||
int setuid(uid) int uid ;
|
||||
void _setsig(functionid) char *functionid ;
|
||||
int sigtrp(trapno,signo) int trapno,signo ;
|
||||
int stat(name,buf) char *name ; struct stat *buf ;
|
||||
int stime(tp) long *tp ;
|
||||
void sync() ;
|
||||
void times(buffer) struct tbuffer *buffer ;
|
||||
int umask(complmode) int complmode ;
|
||||
int umount(special) char *special ;
|
||||
int unlink(name) char *name ;
|
||||
int utime(file,timep) char *file ; time_t *timep ;
|
||||
int wait(status) char status[2] ;
|
||||
unsigned write(fildes,buff,nbytes) int fildes ; char *buff ; unsigned nbytes ;
|
||||
int errno ;
|
||||
Loading…
Add table
Reference in a new issue