Fixed misuse of scalar reference variable.

This commit is contained in:
Hans Leidekker 2004-01-20 23:37:35 +00:00 committed by Alexandre Julliard
parent eca464b679
commit c9b4f601cb
1 changed files with 8 additions and 8 deletions

View File

@ -264,14 +264,14 @@ sub _refresh {
my $bits = $3; my $bits = $3;
} }
my $base_size = &$$find_size($base_type_name); my $base_size = &$$find_size($base_type_name);
my $align = &$$find_align($base_type_name); $$align = &$$find_align($base_type_name);
if (defined($align)) { if (defined($$align)) {
$align = $pack if $align > $pack; $$align = $pack if $$align > $pack;
$max_field_align = $align if $align > $max_field_align; $max_field_align = $$align if $$align > $max_field_align;
if ($offset % $align != 0) { if ($offset % $$align != 0) {
$offset = (int($offset / $align) + 1) * $align; $offset = (int($offset / $$align) + 1) * $$align;
} }
} }
@ -289,14 +289,14 @@ sub _refresh {
$offset_bits = 0; $offset_bits = 0;
} }
$$$field_aligns[$n] = $align; $$$field_aligns[$n] = $$align;
$$$field_base_sizes[$n] = $base_size; $$$field_base_sizes[$n] = $base_size;
$$$field_offsets[$n] = $offset; $$$field_offsets[$n] = $offset;
$$$field_sizes[$n] = $type_size; $$$field_sizes[$n] = $type_size;
$offset += $type_size; $offset += $type_size;
} else { } else {
$$$field_aligns[$n] = $align; $$$field_aligns[$n] = $$align;
$$$field_base_sizes[$n] = $base_size; $$$field_base_sizes[$n] = $base_size;
$$$field_offsets[$n] = $offset; $$$field_offsets[$n] = $offset;
$$$field_sizes[$n] = $type_size; $$$field_sizes[$n] = $type_size;