Fixed misuse of scalar reference variable.
This commit is contained in:
parent
eca464b679
commit
c9b4f601cb
|
@ -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;
|
||||||
|
|
Loading…
Reference in New Issue