mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

embed.pl: Save some hash references in variables

Browse Source 
This shortens later references
This commit is contained in:
Karl Williamson 2025-12-16 12:06:15 -07:00 committed by Karl Williamson
parent 4e751d51ff
commit e3f7e781f3
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
regen/embed.pl
View File

@ -4027,8 +4027,11 @@ sub generate_proto_h {
next if defined $string->{M} && $i->[0] eq 'S'
&& $i->[1] eq 'E';
my $lower = $string->{$i->[0]} or next;
my $upper = $string->{$i->[1]} or next;
my $lower_obj= $string->{$i->[0]} or next;
my $upper_obj= $string->{$i->[1]} or next;
my $lower = "$lower_obj->{deref}$lower_obj->{argname}";
my $upper= "$upper_obj->{deref}$upper_obj->{argname}";
my $equal = $upper_obj->{equal};
# This reduces to either;
# assert(lower < upper);
@ -4036,11 +4039,7 @@ sub generate_proto_h {
# assert(lower <= upper);
#
# There might also be some derefences, like **lower
push @asserts, "assert("
. "$lower->{deref}$lower->{argname}"
. " <$upper->{equal} "
. "$upper->{deref}$upper->{argname}"
. ")";
push @asserts, "assert($lower <$equal $upper)";
}
}