ghc/driver/test_mangler

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