cvs commit: parrot memory.c

[cvsuser]

$ENV = {
         'HOSTTYPE' => 'FreeBSD',
         'LOGNAME' => 'cvsuser',
         'MAIL' => '/var/mail/root',
         'OSTYPE' => 'FreeBSD',
         'BLOCKSIZE' => 'K',
         'EDITOR' => 'vi',
         'FTP_PASSIVE_MODE' => 'YES',
         'CVS_PID' => 63295,
         'SHLVL' => 2,
         'HOME' => '/root',
         'REMOTEHOST' => '216.246.96.99',
         'OLDPWD' => '/usr/ports/misc/amanda24-server/work/amanda-2.4.2p2',
         'PWD' => '/usr/ports/misc/amanda24-server/work/amanda-2.4.2p2/client-src',
         'PATH' => 
'/sbin:/bin:/usr/sbin:/usr/bin:/usr/games:/usr/local/sbin:/usr/local/bin:/usr/X11R6/bin:/root/bin',
         'GROUP' => 'wheel',
         'VENDOR' => 'intel',
         'PAGER' => 'more',
         'CVSROOT' => '/home/perlcvs',
         'TMPDIR' => '/tmp',
         'SHELL' => '/bin/csh',
         'TERM' => 'xterm',
         'MACHTYPE' => 'i386',
         'HOST' => 'netlabs.develooper.com',
         'HOSTNAME' => 'netlabs.develooper.com',
         'USER' => 'cvsuser',
         'inetd_dummy' => 
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx',
         '_' => '/usr/sbin/inetd'
       };
cvsuser     01/09/14 07:20:13

  Modified:    .        memory.c
  Log:
  Was misaligning returned memory. Fixed.
  
  Revision  Changes    Path
  1.7       +1 -1      parrot/memory.c
  
  Index: memory.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/memory.c,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -w -r1.6 -r1.7
  --- memory.c  2001/09/14 14:08:00     1.6
  +++ memory.c  2001/09/14 14:20:13     1.7
  @@ -27,7 +27,7 @@
       
     mem = malloc(max_to_alloc);
     if (((IV)mem & mask) < (IV)mem) {
  -    mem = (void *)((IV)mem & mask + mask + 1);
  +    mem = (void *)(((IV)mem & mask) + ~mask + 1);
     } 
     return mem;
   }