Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-winehq
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-winehq
Commits
80131739
Commit
80131739
authored
Feb 06, 2014
by
Alexandre Julliard
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
make_specfiles: Don't propagate -noname flag to non-ordinal functions.
parent
207ae9f5
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
make_specfiles
tools/make_specfiles
+5
-4
No files found.
tools/make_specfiles
View file @
80131739
...
...
@@ -223,15 +223,15 @@ sub update_file($)
# parse a spec file line
sub
parse_line
($$$)
{
my
(
$name
,
$line
,
$
_
)
=
@_
;
my
(
$name
,
$line
,
$
str
)
=
@_
;
if
(
/^\s*(\@|\d+)\s+(stdcall|cdecl|varargs|thiscall|stub|extern)\s+((?:-\S+\s+)*)([A-Za-z0-9_\@\$?]+)(?:\s*(\([^)]*\)))?(?:\s+([A-Za-z0-9_\@\$?.]+))?(\s*\#.*)?/
)
if
(
$str
=~
/^\s*(\@|\d+)\s+(stdcall|cdecl|varargs|thiscall|stub|extern)\s+((?:-\S+\s+)*)([A-Za-z0-9_\@\$?]+)(?:\s*(\([^)]*\)))?(?:\s+([A-Za-z0-9_\@\$?.]+))?(\s*\#.*)?/
)
{
return
(
"ordinal"
=>
$1
,
"callconv"
=>
$2
,
"flags"
=>
$3
,
"name"
=>
$4
,
"args"
=>
$5
||
""
,
"target"
=>
$6
||
$4
,
"comment"
=>
$7
,
"spec"
=>
$name
);
}
return
()
if
/^\s*$/
;
return
()
if
/^\s*\#/
;
return
()
if
$str
=~
/^\s*$/
;
return
()
if
$str
=~
/^\s*\#/
;
printf
STDERR
"$name.spec:$line: error: Unrecognized line $_\n"
;
}
...
...
@@ -300,6 +300,7 @@ sub update_spec_file($)
{
$flags
=
$parent
{
flags
};
$flags
=~
s/-ordinal\s*//
if
$descr
{
ordinal
}
eq
"@"
;
$flags
=~
s/-noname\s*//
if
$descr
{
ordinal
}
eq
"@"
;
if
(
$descr
{
flags
}
=~
/-private/
)
# preserve -private flag
{
$flags
=
"-private "
.
$flags
unless
$flags
=~
/-private/
;
...
...
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