pkgkde-symbolshelper: Add type substitution for long double.

3 files changed, 22 insertions, 0 deletions

diff --git a/debian/changelog b/debian/changelog
index 9daf11e..77a4e05 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,5 +1,7 @@
 pkg-kde-tools (0.15.22) UNRELEASED; urgency=medium
 
+  [ Dmitry Shachnev ]
+  * pkgkde-symbolshelper: Add type substitution for long double.
 
  -- Debian Qt/KDE Maintainers <debian-qt-kde@lists.debian.org>  Thu, 23 Jun 2016 22:26:54 +0300
 
diff --git a/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm b/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm
index 805a87a..5e4a36f 100644
--- a/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm
+++ b/perllib/Debian/PkgKde/SymbolsHelper/Substs.pm
@@ -36,6 +36,7 @@ our @TYPE_SUBSTS = (
     "${NS}::TypeSubst::quintptr"->new(),
     "${NS}::TypeSubst::intptr_t"->new(),
     "${NS}::TypeSubst::qreal"->new(),
+    "${NS}::TypeSubst::long_double"->new(),
     "${NS}::TypeSubst::time_t"->new(),
 );
 
diff --git a/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm b/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm
index 1dca05c..1632189 100644
--- a/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm
+++ b/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm
@@ -297,6 +297,25 @@ sub _expand {
     return ($arch =~ /^(arm|armeb|armel|armhf|sh4)$/) ? 'f' : 'd';
 }
 
+package Debian::PkgKde::SymbolsHelper::Substs::TypeSubst::long_double;
+
+use strict;
+use warnings;
+use base 'Debian::PkgKde::SymbolsHelper::Substs::TypeSubst';
+
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new(@_);
+    $self->{substvar} = "{long_double}";
+    $self->{types} = [ qw(e g) ]; # native long double / __float128
+    return $self;
+}
+
+sub _expand {
+    my ($self, $arch) = @_;
+    return ($arch =~ /^(alpha|powerpc|powerpcspe|ppc64|ppc64el|s390x)$/) ? 'g' : 'e';
+}
+
 package Debian::PkgKde::SymbolsHelper::Substs::TypeSubst::time_t;
 
 use strict;