# Copyright (C) 2001-2006, The Perl Foundation.
# $Id: /mirror/trunk/examples/benchmarks/shared_ref.pasm 20926 2007-08-30T21:25:32.006552Z chromatic  $

=head1 NAME

examples/benchmarks/shared_ref.pasm - Shared reference between threads

=head1 SYNOPSIS

    % time ./parrot examples/benchmarks/shared_ref.pasm

=head1 DESCRIPTION

Shares references between threads.

=cut

      set I0, 100000
      set I1, 0
lp:
      new P0, 'Integer'
      new P1, 'SharedRef', P0  # or 'Ref'
      set P1, I1
      inc I1
      lt I1, I0, lp
      end

=head1 SEE ALSO

F<examples/benchmarks/shared_ref.pl>.

=cut
