darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-12-03 09:41:26 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
95295b419c
darling-gdb/sim/ppc/system.c
Michael Meissner c464ba6669 Fix brk system call.
1995-09-06 14:00:16 +00:00

392 lines
10 KiB
C
Raw Blame History

/* This file is part of the program psim.
Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#ifndef _SYSTEM_C_
#define _SYSTEM_C_
#include <sys/types.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <signal.h>
#include <sys/errno.h>
#include <sys/param.h>
#if (NetBSD >= 199306) /* here NetBSD as that is what we're emulating */
#include <sys/syscall.h> /* FIXME - should not be including this one */
#include <sys/sysctl.h>
#endif
#if (BSD < 199306) /* here BSD as just a bug */
extern int errno;
#endif
#include "cpu.h"
#include "idecode.h"
#include "system.h"
void
system_call(cpu *processor,
unsigned_word cia)
{
switch (cpu_registers(processor)->gpr[0]) {
case 1/*SYS_exit*/:
#if (NetBSD >= 199306) && (SYS_exit != 1)
# error "SYS_exit"
#endif
{
int status = (int)cpu_registers(processor)->gpr[3];
cpu_halt(processor, cia, was_exited, status);
break;
}
case 3/*SYS_read*/:
#if (NetBSD >= 199306) && (SYS_read != 3)
# error "SYS_read"
#endif
{
void *scratch_buffer;
int d = (int)cpu_registers(processor)->gpr[3];
unsigned_word buf = cpu_registers(processor)->gpr[4];
int nbytes = cpu_registers(processor)->gpr[5];
int status;
int nr_moved;
/* get a tempoary bufer */
scratch_buffer = zalloc(cpu_registers(processor)->gpr[5]);
/* check if buffer exists by reading it */
nr_moved = vm_data_map_read_buffer(cpu_data_map(processor),
scratch_buffer,
buf,
nbytes,
raw_transfer);
if (nr_moved != nbytes)
error("system_call()read - check on buffer failed\n");
/* read */
if (d == 0) {
status = fread (scratch_buffer, 1, nbytes, stdin);
if (status == 0 && ferror (stdin))
status = -1;
} else {
status = read (d, scratch_buffer, nbytes);
}
if (status == -1) {
cpu_registers(processor)->gpr[0] = errno;
break;
} else {
cpu_registers(processor)->gpr[0] = 0;
cpu_registers(processor)->gpr[3] = status;
if (status > 0) {
nr_moved = vm_data_map_write_buffer(cpu_data_map(processor),
scratch_buffer,
buf,
status,
raw_transfer,
0/*violate_ro*/);
if (nr_moved != nbytes)
error("system_call()read - write to buffer failed\n");
}
}
zfree(scratch_buffer);
break;
}
case 4/*SYS_write*/:
#if (NetBSD >= 199306) && (SYS_write != 4)
# error "SYS_write"
#endif
{
void *scratch_buffer;
int nr_moved;
int d = (int)cpu_registers(processor)->gpr[3];
unsigned_word buf = cpu_registers(processor)->gpr[4];
int nbytes = cpu_registers(processor)->gpr[5];
int status;
/* get a tempoary bufer */
scratch_buffer = zalloc(cpu_registers(processor)->gpr[5]);
/* copy in */
nr_moved = vm_data_map_read_buffer(cpu_data_map(processor),
scratch_buffer,
buf,
nbytes,
raw_transfer);
if (nr_moved != nbytes) {
/* FIXME - should handle better */
error("system_call()write copy failed (nr_moved=%d != nbytes=%d)\n",
nr_moved, nbytes);
}
/* write */
status = write(d, scratch_buffer, nbytes);
if (status == -1) {
cpu_registers(processor)->gpr[0] = errno;
break;
}
cpu_registers(processor)->gpr[0] = 0;
cpu_registers(processor)->gpr[3] = status;
zfree(scratch_buffer);
break;
}
case 17/*SYS_break*/:
#if (NetBSD >= 199306) && (SYS_break != 17)
# error "SYS_break"
#endif
{
/* pretend to extend the heap so that it reaches addresss
new_break while in truth, if growth is needed grow it by a
page aligned amount */
unsigned_word new_break = ALIGN_8(cpu_registers(processor)->gpr[3]);
unsigned_word old_break = core_data_upper_bound(cpu_core(processor));
signed_word delta = new_break - old_break;
if (delta > 0)
core_add_data(cpu_core(processor),
ALIGN_PAGE(new_break) - old_break);
cpu_registers(processor)->gpr[0] = 0;
cpu_registers(processor)->gpr[3] = new_break;
break;
}
case 20/*SYS_getpid*/:
#if (NetBSD >= 199306) && (SYS_getpid != 20)
# error "SYS_getpid"
#endif
{
cpu_registers(processor)->gpr[3] = (int)getpid();
break;
}
case 37/*SYS_kill*/:
#if (NetBSD >= 199306) && (SYS_kill != 37)
# error "SYS_kill"
#endif
{
pid_t pid = cpu_registers(processor)->gpr[3];
int sig = cpu_registers(processor)->gpr[4];
TRACE(trace_tbd, ("SYS_kill - more to this than just a kill\n"));
cpu_halt(processor, cia, was_signalled, sig);
break;
}
case 48/*SYS_sigprocmask*/:
#if (NetBSD >= 199306) && (SYS_sigprocmask != 48)
# error "SYS_sigprocmask"
#endif
{
natural_word how = cpu_registers(processor)->gpr[3];
unsigned_word set = cpu_registers(processor)->gpr[4];
unsigned_word oset = cpu_registers(processor)->gpr[5];
TRACE(trace_system, ("SYS_sigprocmask: how=%d, set=0x%x, oset=0x%x\n",
how, set, oset));
cpu_registers(processor)->gpr[0] = 0;
cpu_registers(processor)->gpr[3] = 0;
cpu_registers(processor)->gpr[4] = set;
break;
}
case 54/*SYS_ioctl*/:
#if (NetBSD >= 199306) && (SYS_ioctl != 54)
# error "SYS_ioctl"
#endif
{
TRACE(trace_system, ("SYS_ioctl: d=%d, request=0x%x, argp=0x%x\n",
cpu_registers(processor)->gpr[3], cpu_registers(processor)->gpr[4], cpu_registers(processor)->gpr[5]));
cpu_registers(processor)->gpr[0] = 0;
cpu_registers(processor)->gpr[3] = 0;
break;
}
case 189/*SYS_fstat*/:
#if (NetBSD >= 199306) && (SYS_fstat != 189)
# error "SYS_fstat"
#endif
{
int fd = cpu_registers(processor)->gpr[3];
unsigned_word stat_buf_addr = cpu_registers(processor)->gpr[4];
struct stat buf;
int nr_moved;
int status;
/* check buffer all there, by reading it */
nr_moved = vm_data_map_read_buffer(cpu_data_map(processor),
&buf,
stat_buf_addr,
sizeof(buf),
raw_transfer);
if (nr_moved != sizeof(buf))
error("system_call()fstat - check on buffer failed\n");
/* do the fstat call */
status = fstat(fd, &buf);
if (status == -1) {
cpu_registers(processor)->gpr[0] = errno;
break;
}
cpu_registers(processor)->gpr[0] = 0;
cpu_registers(processor)->gpr[3] = 0;
H2T(buf.st_dev);
H2T(buf.st_ino);
H2T(buf.st_mode);
H2T(buf.st_nlink);
H2T(buf.st_uid);
H2T(buf.st_gid);
H2T(buf.st_rdev);
H2T(buf.st_size);
H2T(buf.st_atime);
/* H2T(buf.st_spare1); */
H2T(buf.st_mtime);
/* H2T(buf.st_spare2); */
H2T(buf.st_ctime);
/* H2T(buf.st_spare3); */
H2T(buf.st_blksize);
H2T(buf.st_blocks);
#if (NetBSD >= 199306)
H2T(buf.st_flags);
H2T(buf.st_gen);
#endif
nr_moved = vm_data_map_write_buffer(cpu_data_map(processor),
&buf,
stat_buf_addr,
sizeof(buf),
raw_transfer,
0/*violate_ro*/);
break;
}
case 202/*SYS___sysctl*/:
#if (NetBSD >= 199306) && (SYS___sysctl != 202)
# error "SYS__sysctl"
#endif
{
/* call the arguments by their real name */
unsigned_word name = cpu_registers(processor)->gpr[3];
natural_word namelen = cpu_registers(processor)->gpr[4];
unsigned_word oldp = cpu_registers(processor)->gpr[5];
unsigned_word oldlenp = cpu_registers(processor)->gpr[6];
natural_word oldlen;
natural_word mib;
natural_word int_val;
/* pluck out the management information base id */
if (namelen < 1
|| sizeof(mib) != vm_data_map_read_buffer(cpu_data_map(processor),
&mib,
name,
sizeof(mib),
cooked_transfer))
error("system_call()SYS___sysctl bad name[0]\n");
name += sizeof(mib);
/* see what to do with it ... */
switch (mib) {
case 6/*CTL_HW*/:
#if (NetBSD >= 199306) && (CTL_HW != 6)
# error "CTL_HW"
#endif
if (namelen < 2
|| sizeof(mib) != vm_data_map_read_buffer(cpu_data_map(processor),
&mib,
name,
sizeof(mib),
cooked_transfer))
error("system_call()SYS___sysctl - CTL_HW - bad name[1]\n");
name += sizeof(mib);
switch (mib) {
case 7/*HW_PAGESIZE*/:
#if (NetBSD >= 199306) && (HW_PAGESIZE != 7)
# error "HW_PAGESIZE"
#endif
if (sizeof(oldlen) != vm_data_map_read_buffer(cpu_data_map(processor),
&oldlen,
oldlenp,
sizeof(oldlen),
cooked_transfer))
error("system_call()sysctl - CTL_HW.HW_PAGESIZE - oldlen read\n");
if (sizeof(natural_word) > oldlen)
error("system_call()sysctl - CTL_HW.HW_PAGESIZE - to small\n");
int_val = 8192;
oldlen = sizeof(int_val);
if (sizeof(int_val) != vm_data_map_write_buffer(cpu_data_map(processor),
&int_val,
oldp,
sizeof(int_val),
cooked_transfer,
0/*violate_ro*/))
error("system_call()sysctl - CTL_HW.HW_PAGESIZE - int_val\n");
if (sizeof(oldlen) != vm_data_map_write_buffer(cpu_data_map(processor),
&oldlen,
oldlenp,
sizeof(oldlen),
cooked_transfer,
0/*violate_ro*/))
error("system_call()sysctl - CTL_HW.HW_PAGESIZE - oldlen write\n");
break;
default:
error("sysctl() CTL_HW.%d unknown\n", mib);
break;
}
break;
default:
error("sysctl() name[0]=%s unknown\n", (int)mib);
break;
}
cpu_registers(processor)->gpr[0] = 0;
cpu_registers(processor)->gpr[3] = 0;
break;
}
default:
error("system_call() unimplemented system call %d, cia=0x%x, arg[0]=0x%x, lr=0x%x\n",
cpu_registers(processor)->gpr[0], cia, cpu_registers(processor)->gpr[3], LR);
break;
}
}
#endif /* _SYSTEM_C_ */
Reference in New Issue View Git Blame Copy Permalink