system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-11-01 09:50:52 +00:00
Code Issues Projects Releases Packages Wiki Activity

opengl32: Fix Perl compilation errors in make_opengl script.

Browse source
This commit is contained in:
Ken Thomases 2014-01-15 13:47:04 -06:00 committed by Alexandre Julliard
parent 2b8e900ac4
commit 46c7acadd7
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
dlls/opengl32/make_opengl
View file

@ -609,7 +609,7 @@ sub parse_variable($)
my $pnamebefore = '';
my $pnameafter = '';
while (my ($k, $v) = each($p)){
while (my ($k, $v) = each(%$p)){
if ($k eq 'ptype') {
$ptype = ${$v}[0];
} elsif ($k eq 'name') {
@ -643,7 +643,7 @@ sub parse_file($$)
my $ret = '';
my $params = [];
my @alias = '';
while (my ($k, $v) = each($command)){
while (my ($k, $v) = each(%$command)){
if ($k eq 'param') {
push(@$params, parse_variable($_)) for (@{$v});
} elsif ($k eq 'proto') {
@ -657,7 +657,7 @@ sub parse_file($$)
if ($generate_enums) {
for my $enum ( @{$data->{'enums'}} ) {
if (ref($enum->{'enum'}) eq "HASH") {
while (my ($k, $v) = each($enum->{'enum'})){
while (my ($k, $v) = each(%{$enum->{'enum'}})){
$enums{$k} = $v->{'value'};
}
}
@ -665,7 +665,7 @@ sub parse_file($$)
}
# generate norm functions
while (my ($k, $v) = each($data->{feature})) {
while (my ($k, $v) = each(%{$data->{feature}})) {
if ($norm_categories{$k}) {
for my $req (@{$v->{require}}) {
for(keys %{$req->{command}}) {
@ -676,7 +676,7 @@ sub parse_file($$)
}
# generate extension functions from norm functions, if they are newer than the category
while (my ($k, $v) = each($data->{feature})) {
while (my ($k, $v) = each(%{$data->{feature}})) {
if (!$norm_categories{$k} && $v->{api} =~ /^gl(\||$)/)
{
for my $req (@{$v->{require}}) {
@ -690,7 +690,7 @@ sub parse_file($$)
}
# generate extension functions
while (my ($k, $v) = each(${$data->{extensions}}[0]->{extension})) {
while (my ($k, $v) = each(%{${$data->{extensions}}[0]->{extension}})) {
if ($v->{supported} =~ /^gl(\||$)/) {
for my $req (@{$v->{require}}) {
if (!defined $req->{api} || $req->{api} =~ /^gl(\||$)/) {