cvs commit: parrot assemble.pl

[grunblatt]

cvsuser     02/07/15 10:24:15

  Modified:    .        assemble.pl
  Log:
  I think the problem is I forgot about byteorder, bad me.
  
  Revision  Changes    Path
  1.79      +3 -1      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /cvs/public/parrot/assemble.pl,v
  retrieving revision 1.78
  retrieving revision 1.79
  diff -u -w -r1.78 -r1.79
  --- assemble.pl       15 Jul 2002 05:12:00 -0000      1.78
  +++ assemble.pl       15 Jul 2002 17:24:15 -0000      1.79
  @@ -732,9 +732,11 @@
       
       my %const_table = constant_table($self);
   
  +    my $byteorder = (substr($PConfig{'byteorder'},0,1) == 1) ? 0 : 1;
  +
       my $packfile_header = {
           wordsize    => $wordsize, # unsigned char wordsize
  -        byteorder   => 0x00, # unsigned char byteorder
  +        byteorder   => $byteorder, # unsigned char byteorder
           major       => 0x00, # unsigned char major
           minor       => 0x00, # unsigned char minor