Commit 782e96b9 authored by Alexandre Julliard's avatar Alexandre Julliard

opengl32: Declare input pointers as const in function prototypes.

parent 6a8ded43
...@@ -617,7 +617,7 @@ while (my $line = <REGISTRY>) { ...@@ -617,7 +617,7 @@ while (my $line = <REGISTRY>) {
} elsif ($line =~ /^\t*category/) { } elsif ($line =~ /^\t*category/) {
($category) = ($line =~ /^\t*category\s*([\w-]*)/); ($category) = ($line =~ /^\t*category\s*([\w-]*)/);
} elsif ($line =~ /^\t*param/) { } elsif ($line =~ /^\t*param/) {
my ($name, $base_type, $ext) = ($line =~ /\t*param\s*(\w*)\s*(\w*) (.*)/); my ($name, $base_type, $dir, $ext) = ($line =~ /\t*param\s*(\w*)\s*(\w*) (in|out)\s+(.*)/);
my $ptr = 0; my $ptr = 0;
unless (defined($name)) { unless (defined($name)) {
chomp $line; chomp $line;
...@@ -644,7 +644,8 @@ while (my $line = <REGISTRY>) { ...@@ -644,7 +644,8 @@ while (my $line = <REGISTRY>) {
die "Unsupported return type in function $funcname for type $base_type (line $line)\n"; die "Unsupported return type in function $funcname for type $base_type (line $line)\n";
} }
if ($ptr) { if ($ptr) {
$type = "$type*"; $type .= "*";
$type = "const $type" if $dir eq "in";
} }
$arg_types{$name} = $type; $arg_types{$name} = $type;
......
This source diff could not be displayed because it is too large. You can view the blob instead.
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment