diff options
Diffstat (limited to 'perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm')
-rw-r--r-- | perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm b/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm index b9da8a9..1dca05c 100644 --- a/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm +++ b/perllib/Debian/PkgKde/SymbolsHelper/Substs/TypeSubst.pm @@ -297,6 +297,26 @@ sub _expand { return ($arch =~ /^(arm|armeb|armel|armhf|sh4)$/) ? 'f' : 'd'; } +package Debian::PkgKde::SymbolsHelper::Substs::TypeSubst::time_t; + +use strict; +use warnings; +use base 'Debian::PkgKde::SymbolsHelper::Substs::TypeSubst'; + +sub new { + my $class = shift; + my $self = $class->SUPER::new(@_); + $self->{substvar} = "{time_t}"; + $self->{types} = [ qw(x l) ]; # long long / long + return $self; +} + +sub _expand { + my ($self, $arch) = @_; + # see bits/types.h and bits/typesizes.h, long everywhere, except in x32 + return ($arch =~ /^(x32)$/) ? 'x' : 'l'; +} + package Debian::PkgKde::SymbolsHelper::Substs::TypeSubst; use strict; |