kernel-doc (7022b15e2a9f878fd5184586064c63352c3dd225) kernel-doc (7b97887eab6c35d23f2e4680bd5e285415068f35)
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2008 Randy Dunlap ##

--- 1542 unchanged lines hidden (view full) ---

1551 unshift(@args, pop @first_arg);
1552 $type = join " ", @first_arg;
1553
1554 foreach $param (@args) {
1555 if ($param =~ m/^(\*+)\s*(.*)/) {
1556 push_parameter($2, "$type $1", $file);
1557 }
1558 elsif ($param =~ m/(.*?):(\d+)/) {
1#!/usr/bin/perl -w
2
3use strict;
4
5## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
6## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##
7## Copyright (C) 2001 Simon Huggins ##
8## Copyright (C) 2005-2008 Randy Dunlap ##

--- 1542 unchanged lines hidden (view full) ---

1551 unshift(@args, pop @first_arg);
1552 $type = join " ", @first_arg;
1553
1554 foreach $param (@args) {
1555 if ($param =~ m/^(\*+)\s*(.*)/) {
1556 push_parameter($2, "$type $1", $file);
1557 }
1558 elsif ($param =~ m/(.*?):(\d+)/) {
1559 push_parameter($1, "$type:$2", $file)
1559 if ($type ne "") { # skip unnamed bit-fields
1560 push_parameter($1, "$type:$2", $file)
1561 }
1560 }
1561 else {
1562 push_parameter($param, $type, $file);
1563 }
1564 }
1565 }
1566 }
1567}

--- 495 unchanged lines hidden --- 		1562 }
1563 else {
1564 push_parameter($param, $type, $file);
1565 }
1566 }
1567 }
1568 }
1569}

--- 495 unchanged lines hidden ---