45 lines
763 B
Perl
Executable File
45 lines
763 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
# Generate usys.S, the stubs for syscalls.
|
|
|
|
print "# generated by usys.pl - do not edit\n";
|
|
|
|
print "#include \"kernel/include/sysnum.h\"\n";
|
|
|
|
sub entry {
|
|
my $name = shift;
|
|
print ".global $name\n";
|
|
print "${name}:\n";
|
|
print " li a7, SYS_${name}\n";
|
|
print " ecall\n";
|
|
print " ret\n";
|
|
}
|
|
|
|
entry("fork");
|
|
entry("exit");
|
|
entry("wait");
|
|
entry("pipe");
|
|
entry("read");
|
|
entry("write");
|
|
entry("close");
|
|
entry("kill");
|
|
entry("exec");
|
|
entry("open");
|
|
entry("fstat");
|
|
entry("mkdir");
|
|
entry("chdir");
|
|
entry("dup");
|
|
entry("getpid");
|
|
entry("sbrk");
|
|
entry("sleep");
|
|
entry("uptime");
|
|
entry("test_proc");
|
|
entry("dev");
|
|
entry("readdir");
|
|
entry("getcwd");
|
|
entry("remove");
|
|
entry("trace");
|
|
entry("sysinfo");
|
|
entry("rename");
|
|
entry("execve");
|