cvs commit: parrot make_op_header.pl

[simon]

cvsuser     01/09/14 08:29:41

  Modified:    .        make_op_header.pl
  Log:
  Wildly experimental patch to make Parrot compile on FreeBSD. (And
  probably segfault everywhere else.)
  
  Revision  Changes    Path
  1.5       +1 -0      parrot/make_op_header.pl
  
  Index: make_op_header.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/make_op_header.pl,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -w -r1.4 -r1.5
  --- make_op_header.pl 2001/09/12 09:54:46     1.4
  +++ make_op_header.pl 2001/09/14 15:29:41     1.5
  @@ -6,6 +6,7 @@
       next if /^\s*#/ or /^\s*$/;
       chomp;
       ($name, undef) = split /\s+/, $_;
  +    print "#define $name Parrot_op_$name\n";
       print "IV *$name(IV *, struct Perl_Interp *);\n";
   }