Changeset 13595 in josm for trunk/tools/japicc/modules/Internals/Mangling.pm
- Timestamp:
- 2018-04-02T23:20:00+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/japicc/modules/Internals/Mangling.pm
r11682 r13595 2 2 # A module to unmangle symbols 3 3 # 4 # Copyright (C) 2016 Andrey Ponomarenko's ABI Laboratory 4 # Copyright (C) 2016-2018 Andrey Ponomarenko's ABI Laboratory 5 5 # 6 6 # Written by Andrey Ponomarenko 7 7 # 8 # This program is free software: you can redistribute it and/or modify 9 # it under the terms of the GNU General Public License or the GNU Lesser 10 # General Public License as published by the Free Software Foundation. 8 # This library is free software; you can redistribute it and/or 9 # modify it under the terms of the GNU Lesser General Public 10 # License as published by the Free Software Foundation; either 11 # version 2.1 of the License, or (at your option) any later version. 11 12 # 12 # This programis distributed in the hope that it will be useful,13 # This library is distributed in the hope that it will be useful, 13 14 # but WITHOUT ANY WARRANTY; without even the implied warranty of 14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 # GNUGeneral Public License for more details.15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 # Lesser General Public License for more details. 16 17 # 17 # You should have received a copy of the GNU General Public License 18 # and the GNU Lesser General Public License along with this program. 19 # If not, see <http://www.gnu.org/licenses/>. 18 # You should have received a copy of the GNU Lesser General Public 19 # License along with this library; if not, write to the Free Software 20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 21 # MA 02110-1301 USA. 20 22 ########################################################################### 21 23 use strict; … … 66 68 $CurParam = "short"; 67 69 } 68 elsif($Symbol eq "S") {69 $CurParam = "short";70 }71 70 elsif($Symbol eq "I") { 72 71 $CurParam = "int"; … … 80 79 elsif($Symbol eq "D") { 81 80 $CurParam = "double"; 81 } 82 elsif($Symbol eq "Z") { 83 $CurParam = "boolean"; 82 84 } 83 85 else {
Note:
See TracChangeset
for help on using the changeset viewer.