kernel-doc (9ddb236f13594b34a12dacf69a5adca7a1aef35e) | kernel-doc (5eb6b4b3e21612be735fe0305c27bfe2e7ab3224) |
---|---|
1#!/usr/bin/env perl 2# SPDX-License-Identifier: GPL-2.0 3 4use warnings; 5use strict; 6 7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## --- 1580 unchanged lines hidden (view full) --- 1589# takes a function prototype and the name of the current file being 1590# processed and spits out all the details stored in the global 1591# arrays/hashes. 1592sub dump_function($$) { 1593 my $prototype = shift; 1594 my $file = shift; 1595 my $noret = 0; 1596 | 1#!/usr/bin/env perl 2# SPDX-License-Identifier: GPL-2.0 3 4use warnings; 5use strict; 6 7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ## 8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ## --- 1580 unchanged lines hidden (view full) --- 1589# takes a function prototype and the name of the current file being 1590# processed and spits out all the details stored in the global 1591# arrays/hashes. 1592sub dump_function($$) { 1593 my $prototype = shift; 1594 my $file = shift; 1595 my $noret = 0; 1596 |
1597 print_lineno($.); 1598 |
|
1597 $prototype =~ s/^static +//; 1598 $prototype =~ s/^extern +//; 1599 $prototype =~ s/^asmlinkage +//; 1600 $prototype =~ s/^inline +//; 1601 $prototype =~ s/^__inline__ +//; 1602 $prototype =~ s/^__inline +//; 1603 $prototype =~ s/^__always_inline +//; 1604 $prototype =~ s/^noinline +//; --- 682 unchanged lines hidden --- | 1599 $prototype =~ s/^static +//; 1600 $prototype =~ s/^extern +//; 1601 $prototype =~ s/^asmlinkage +//; 1602 $prototype =~ s/^inline +//; 1603 $prototype =~ s/^__inline__ +//; 1604 $prototype =~ s/^__inline +//; 1605 $prototype =~ s/^__always_inline +//; 1606 $prototype =~ s/^noinline +//; --- 682 unchanged lines hidden --- |