# a simple wrapper to test a .s-file mangler
# reads stdin, writes stdout
# a simple wrapper to test a .s-file mangler
# reads stdin, writes stdout
$TargetPlatform = $ARGV[0]; shift; # nice error checking, Will
require("ghc-asm.prl") || die "require mangler failed!\n";
$TargetPlatform = $ARGV[0]; shift; # nice error checking, Will
require("ghc-asm.prl") || die "require mangler failed!\n";