Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-cw
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-cw
Commits
809a8798
Commit
809a8798
authored
Sep 25, 2008
by
Francois Gouget
Committed by
Alexandre Julliard
Sep 29, 2008
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
make_opengl: Avoid the deprecated '$#' construct.
This gets make_opengl to work again with Perl 5.10.
parent
a5cff83b
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
8 deletions
+8
-8
make_opengl
dlls/opengl32/make_opengl
+8
-8
No files found.
dlls/opengl32/make_opengl
View file @
809a8798
...
...
@@ -226,7 +226,7 @@ sub GenerateThunk($$$$$)
$ret
=
"$ret */\n"
;
}
$ret
=
$ret
.
ConvertType
(
$func_ref
->
[
1
])
.
" WINAPI wine_$func_ref->[0]( "
;
for
(
my
$i
=
0
;
$i
<
=
$#
{
@
{
$func_ref
->
[
2
]}
};
$i
++
)
{
for
(
my
$i
=
0
;
$i
<
@
{
$func_ref
->
[
2
]
};
$i
++
)
{
## Quick debug code :-)
## print $func_ref->[2]->[$i]->[1] . "\n";
my
$type
=
$func_ref
->
[
2
]
->
[
$i
]
->
[
0
];
...
...
@@ -238,7 +238,7 @@ sub GenerateThunk($$$$$)
}
else
{
$trace_arg
=
"$trace_arg$debug_conv{$type}"
;
}
if
(
$i
!=
$#
{
@
{
$func_ref
->
[
2
]}
})
{
if
(
$i
+
1
<
@
{
$func_ref
->
[
2
]
})
{
$ret
=
"$ret, "
;
$call_arg
=
"$call_arg, "
;
$trace_arg
=
"$trace_arg, "
;
...
...
@@ -247,7 +247,7 @@ sub GenerateThunk($$$$$)
$call_arg
=
"$call_arg "
;
}
}
$ret
.=
'void '
if
(
$#
{
@
{
$func_ref
->
[
2
]}}
<
0
);
$ret
.=
'void '
if
(
!
@
{
$func_ref
->
[
2
]}
);
$ret
=
"$ret) {\n"
;
if
(
$func_ref
->
[
1
]
ne
"void"
)
{
$ret
=
"$ret "
.
ConvertType
(
$func_ref
->
[
1
])
.
" ret_value;\n"
;
...
...
@@ -560,7 +560,7 @@ while (my $line = <REGISTRY>) {
# Now, build the argument reference
my
$arg_ref
=
[
];
for
(
my
$i
=
0
;
$i
<
=
$#
arg_names
;
$i
++
)
{
for
(
my
$i
=
0
;
$i
<
@
arg_names
;
$i
++
)
{
unless
(
defined
(
$arg_types
{
$arg_names
[
$i
]}))
{
print
"@arg_names\n"
;
foreach
(
sort
keys
%
arg_types
)
{
...
...
@@ -600,7 +600,7 @@ open(SPEC, ">$spec_file");
foreach
(
sort
keys
%
norm_functions
)
{
my
$func_name
=
$norm_functions
{
$_
}
->
[
0
];
print
SPEC
"@ stdcall $func_name( "
;
for
(
my
$i
=
0
;
$i
<
=
$#
{
@
{
$norm_functions
{
$_
}
->
[
2
]}
};
$i
++
)
{
for
(
my
$i
=
0
;
$i
<
@
{
$norm_functions
{
$_
}
->
[
2
]
};
$i
++
)
{
my
$type
=
$norm_functions
{
$_
}
->
[
2
]
->
[
$i
]
->
[
0
];
if
(
$type
=~
/\*/
)
{
print
SPEC
"ptr "
;
...
...
@@ -687,16 +687,16 @@ my $pos = 0;
foreach
(
sort
keys
%
ext_functions
)
{
my
$func_ref
=
$ext_functions
{
$_
};
my
$local_var
=
" "
.
ConvertType
(
$func_ref
->
[
1
])
.
" (*$ext_prefix$func_ref->[0])( "
;
for
(
my
$i
=
0
;
$i
<
=
$#
{
@
{
$func_ref
->
[
2
]}
};
$i
++
)
{
for
(
my
$i
=
0
;
$i
<
@
{
$func_ref
->
[
2
]
};
$i
++
)
{
my
$type
=
ConvertType
(
$func_ref
->
[
2
]
->
[
$i
]
->
[
0
]);
$local_var
.=
"$type"
;
if
(
$i
!=
$#
{
@
{
$func_ref
->
[
2
]}
})
{
if
(
$i
+
1
<
@
{
$func_ref
->
[
2
]
})
{
$local_var
.=
", "
;
}
else
{
$local_var
.=
" "
;
}
}
$local_var
.=
'void '
if
(
$#
{
@
{
$func_ref
->
[
2
]}}
<
0
);
$local_var
.=
'void '
if
(
!
@
{
$func_ref
->
[
2
]}
);
$local_var
.=
") = extension_funcs[$pos];\n"
;
$pos
++
;
print
EXT
"\nstatic "
,
GenerateThunk
(
$ext_functions
{
$_
},
0
,
$ext_prefix
,
$gen_thread_safe
,
$local_var
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment