summaryrefslogtreecommitdiff
path: root/test/raidfile/make-darwin-intercepts.pl
diff options
context:
space:
mode:
Diffstat (limited to 'test/raidfile/make-darwin-intercepts.pl')
-rwxr-xr-xtest/raidfile/make-darwin-intercepts.pl46
1 files changed, 0 insertions, 46 deletions
diff --git a/test/raidfile/make-darwin-intercepts.pl b/test/raidfile/make-darwin-intercepts.pl
deleted file mode 100755
index 2f19e090..00000000
--- a/test/raidfile/make-darwin-intercepts.pl
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/bin/perl
-use strict;
-
-my $out = $ARGV[0];
-die "No out directory specified" unless $out ne '';
-
-my @calls = split /[\r\n]+/,<<__E;
-lseek SYSCALL_TEST(lseek, 3)
-open SYSCALL_TEST(open, 3)
-close SYSCALL_TEST(close, 1)
-write SYSCALL_TEST(write, 3)
-read SYSCALL_TEST(read, 3)
-readv SYSCALL_TEST(readv, 3)
-__E
-
-for(@calls)
-{
- my ($name,$line) = split / /,$_,2;
-
- open FL,">$out/intercept-$name.s" or die "Can't open out file";
- print FL <<'__S';
-#include "../../../test/raidfile/Darwin-SYS.h"
-
-#define SYSCALL_TEST(name, nargs) \
- .globl cerror @\
-LEAF(_TEST_##name) @\
- kernel_trap_args_##nargs @\
- li r0,SYS_##name @\
- sc @\
- b 1f @\
- b 2f @\
-1: BRANCH_EXTERN(cerror) @\
-.text \
-2: nop
-
-__S
- print FL $line,"\n\tblr\n\n";
-
- close FL;
-
- if(system("gcc -c $out/intercept-$name.s -o $out/intercept-$name.o") != 0)
- {
- die "Assembly failed\n";
- }
-}
-