blob: 96cf31ca68fb1ce8b042c247f2f085a9ab5a72b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#! /usr/bin/perl
# a simple wrapper to test a .s-file mangler
# reads stdin, writes stdout
push(@INC,"/net/dazdak/BUILDS/gransim-4.04/i386-unknown-linux/ghc/driver");
$TargetPlatform = $ARGV[0]; shift; # nice error checking, Will
require("ghc-asm.prl") || die "require mangler failed!\n";
$SpX86Mangling = 1;
$StolenX86Regs = 4;
open(INP, "> /tmp/mangle1.$$") || die "Can't open tmp file 1\n";
while (<>) {
print INP $_;
}
close(INP) || die "Can't close tmp file 1";
&mangle_asm("/tmp/mangle1.$$", "/tmp/mangle2.$$");
open(INP, "< /tmp/mangle2.$$") || die "Can't open tmp file 2\n";
while (<INP>) {
print STDOUT $_;
}
close(INP) || die "Can't close tmp file 2";
unlink("/tmp/mangle1.$$", "/tmp/mangle2.$$");
exit(0);
|
