379 lines
7.2 KiB
Perl
379 lines
7.2 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
# -----------------------------------------------------------------------
|
||
|
|
#
|
||
|
|
# Copyright 2007-2008 rPath, Inc. - All Rights Reserved
|
||
|
|
#
|
||
|
|
# This file is part of the Linux kernel, and is made available under
|
||
|
|
# the terms of the GNU General Public License version 2 or (at your
|
||
|
|
# option) any later version; incorporated herein by reference.
|
||
|
|
#
|
||
|
|
# -----------------------------------------------------------------------
|
||
|
|
#
|
||
|
|
|
||
|
|
#
|
||
|
|
# Usage: timeconst.pl HZ > timeconst.h
|
||
|
|
#
|
||
|
|
|
||
|
|
# Precomputed values for systems without Math::BigInt
|
||
|
|
# Generated by:
|
||
|
|
# timeconst.pl --can 24 32 48 64 100 122 128 200 250 256 300 512 1000 1024 1200
|
||
|
|
%canned_values = (
|
||
|
|
24 => [
|
||
|
|
'0xa6aaaaab','0x2aaaaaa',26,
|
||
|
|
125,3,
|
||
|
|
'0xc49ba5e4','0x1fbe76c8b4',37,
|
||
|
|
3,125,
|
||
|
|
'0xa2c2aaab','0xaaaa',16,
|
||
|
|
125000,3,
|
||
|
|
'0xc9539b89','0x7fffbce4217d',47,
|
||
|
|
3,125000,
|
||
|
|
], 32 => [
|
||
|
|
'0xfa000000','0x6000000',27,
|
||
|
|
125,4,
|
||
|
|
'0x83126e98','0xfdf3b645a',36,
|
||
|
|
4,125,
|
||
|
|
'0xf4240000','0x0',17,
|
||
|
|
31250,1,
|
||
|
|
'0x8637bd06','0x3fff79c842fa',46,
|
||
|
|
1,31250,
|
||
|
|
], 48 => [
|
||
|
|
'0xa6aaaaab','0x6aaaaaa',27,
|
||
|
|
125,6,
|
||
|
|
'0xc49ba5e4','0xfdf3b645a',36,
|
||
|
|
6,125,
|
||
|
|
'0xa2c2aaab','0x15555',17,
|
||
|
|
62500,3,
|
||
|
|
'0xc9539b89','0x3fffbce4217d',46,
|
||
|
|
3,62500,
|
||
|
|
], 64 => [
|
||
|
|
'0xfa000000','0xe000000',28,
|
||
|
|
125,8,
|
||
|
|
'0x83126e98','0x7ef9db22d',35,
|
||
|
|
8,125,
|
||
|
|
'0xf4240000','0x0',18,
|
||
|
|
15625,1,
|
||
|
|
'0x8637bd06','0x1fff79c842fa',45,
|
||
|
|
1,15625,
|
||
|
|
], 100 => [
|
||
|
|
'0xa0000000','0x0',28,
|
||
|
|
10,1,
|
||
|
|
'0xcccccccd','0x733333333',35,
|
||
|
|
1,10,
|
||
|
|
'0x9c400000','0x0',18,
|
||
|
|
10000,1,
|
||
|
|
'0xd1b71759','0x1fff2e48e8a7',45,
|
||
|
|
1,10000,
|
||
|
|
], 122 => [
|
||
|
|
'0x8325c53f','0xfbcda3a',28,
|
||
|
|
500,61,
|
||
|
|
'0xf9db22d1','0x7fbe76c8b',35,
|
||
|
|
61,500,
|
||
|
|
'0x8012e2a0','0x3ef36',18,
|
||
|
|
500000,61,
|
||
|
|
'0xffda4053','0x1ffffbce4217',45,
|
||
|
|
61,500000,
|
||
|
|
], 128 => [
|
||
|
|
'0xfa000000','0x1e000000',29,
|
||
|
|
125,16,
|
||
|
|
'0x83126e98','0x3f7ced916',34,
|
||
|
|
16,125,
|
||
|
|
'0xf4240000','0x40000',19,
|
||
|
|
15625,2,
|
||
|
|
'0x8637bd06','0xfffbce4217d',44,
|
||
|
|
2,15625,
|
||
|
|
], 200 => [
|
||
|
|
'0xa0000000','0x0',29,
|
||
|
|
5,1,
|
||
|
|
'0xcccccccd','0x333333333',34,
|
||
|
|
1,5,
|
||
|
|
'0x9c400000','0x0',19,
|
||
|
|
5000,1,
|
||
|
|
'0xd1b71759','0xfff2e48e8a7',44,
|
||
|
|
1,5000,
|
||
|
|
], 250 => [
|
||
|
|
'0x80000000','0x0',29,
|
||
|
|
4,1,
|
||
|
|
'0x80000000','0x180000000',33,
|
||
|
|
1,4,
|
||
|
|
'0xfa000000','0x0',20,
|
||
|
|
4000,1,
|
||
|
|
'0x83126e98','0x7ff7ced9168',43,
|
||
|
|
1,4000,
|
||
|
|
], 256 => [
|
||
|
|
'0xfa000000','0x3e000000',30,
|
||
|
|
125,32,
|
||
|
|
'0x83126e98','0x1fbe76c8b',33,
|
||
|
|
32,125,
|
||
|
|
'0xf4240000','0xc0000',20,
|
||
|
|
15625,4,
|
||
|
|
'0x8637bd06','0x7ffde7210be',43,
|
||
|
|
4,15625,
|
||
|
|
], 300 => [
|
||
|
|
'0xd5555556','0x2aaaaaaa',30,
|
||
|
|
10,3,
|
||
|
|
'0x9999999a','0x1cccccccc',33,
|
||
|
|
3,10,
|
||
|
|
'0xd0555556','0xaaaaa',20,
|
||
|
|
10000,3,
|
||
|
|
'0x9d495183','0x7ffcb923a29',43,
|
||
|
|
3,10000,
|
||
|
|
], 512 => [
|
||
|
|
'0xfa000000','0x7e000000',31,
|
||
|
|
125,64,
|
||
|
|
'0x83126e98','0xfdf3b645',32,
|
||
|
|
64,125,
|
||
|
|
'0xf4240000','0x1c0000',21,
|
||
|
|
15625,8,
|
||
|
|
'0x8637bd06','0x3ffef39085f',42,
|
||
|
|
8,15625,
|
||
|
|
], 1000 => [
|
||
|
|
'0x80000000','0x0',31,
|
||
|
|
1,1,
|
||
|
|
'0x80000000','0x0',31,
|
||
|
|
1,1,
|
||
|
|
'0xfa000000','0x0',22,
|
||
|
|
1000,1,
|
||
|
|
'0x83126e98','0x1ff7ced9168',41,
|
||
|
|
1,1000,
|
||
|
|
], 1024 => [
|
||
|
|
'0xfa000000','0xfe000000',32,
|
||
|
|
125,128,
|
||
|
|
'0x83126e98','0x7ef9db22',31,
|
||
|
|
128,125,
|
||
|
|
'0xf4240000','0x3c0000',22,
|
||
|
|
15625,16,
|
||
|
|
'0x8637bd06','0x1fff79c842f',41,
|
||
|
|
16,15625,
|
||
|
|
], 1200 => [
|
||
|
|
'0xd5555556','0xd5555555',32,
|
||
|
|
5,6,
|
||
|
|
'0x9999999a','0x66666666',31,
|
||
|
|
6,5,
|
||
|
|
'0xd0555556','0x2aaaaa',22,
|
||
|
|
2500,3,
|
||
|
|
'0x9d495183','0x1ffcb923a29',41,
|
||
|
|
3,2500,
|
||
|
|
]
|
||
|
|
);
|
||
|
|
|
||
|
|
$has_bigint = eval 'use Math::BigInt qw(bgcd); 1;';
|
||
|
|
|
||
|
|
sub bint($)
|
||
|
|
{
|
||
|
|
my($x) = @_;
|
||
|
|
return Math::BigInt->new($x);
|
||
|
|
}
|
||
|
|
|
||
|
|
#
|
||
|
|
# Constants for division by reciprocal multiplication.
|
||
|
|
# (bits, numerator, denominator)
|
||
|
|
#
|
||
|
|
sub fmul($$$)
|
||
|
|
{
|
||
|
|
my ($b,$n,$d) = @_;
|
||
|
|
|
||
|
|
$n = bint($n);
|
||
|
|
$d = bint($d);
|
||
|
|
|
||
|
|
return scalar (($n << $b)+$d-bint(1))/$d;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fadj($$$)
|
||
|
|
{
|
||
|
|
my($b,$n,$d) = @_;
|
||
|
|
|
||
|
|
$n = bint($n);
|
||
|
|
$d = bint($d);
|
||
|
|
|
||
|
|
$d = $d/bgcd($n, $d);
|
||
|
|
return scalar (($d-bint(1)) << $b)/$d;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fmuls($$$) {
|
||
|
|
my($b,$n,$d) = @_;
|
||
|
|
my($s,$m);
|
||
|
|
my($thres) = bint(1) << ($b-1);
|
||
|
|
|
||
|
|
$n = bint($n);
|
||
|
|
$d = bint($d);
|
||
|
|
|
||
|
|
for ($s = 0; 1; $s++) {
|
||
|
|
$m = fmul($s,$n,$d);
|
||
|
|
return $s if ($m >= $thres);
|
||
|
|
}
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Generate a hex value if the result fits in 64 bits;
|
||
|
|
# otherwise skip.
|
||
|
|
sub bignum_hex($) {
|
||
|
|
my($x) = @_;
|
||
|
|
my $s = $x->as_hex();
|
||
|
|
|
||
|
|
return (length($s) > 18) ? undef : $s;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Provides mul, adj, and shr factors for a specific
|
||
|
|
# (bit, time, hz) combination
|
||
|
|
sub muladj($$$) {
|
||
|
|
my($b, $t, $hz) = @_;
|
||
|
|
my $s = fmuls($b, $t, $hz);
|
||
|
|
my $m = fmul($s, $t, $hz);
|
||
|
|
my $a = fadj($s, $t, $hz);
|
||
|
|
return (bignum_hex($m), bignum_hex($a), $s);
|
||
|
|
}
|
||
|
|
|
||
|
|
# Provides numerator, denominator values
|
||
|
|
sub numden($$) {
|
||
|
|
my($n, $d) = @_;
|
||
|
|
my $g = bgcd($n, $d);
|
||
|
|
return ($n/$g, $d/$g);
|
||
|
|
}
|
||
|
|
|
||
|
|
# All values for a specific (time, hz) combo
|
||
|
|
sub conversions($$) {
|
||
|
|
my ($t, $hz) = @_;
|
||
|
|
my @val = ();
|
||
|
|
|
||
|
|
# HZ_TO_xx
|
||
|
|
push(@val, muladj(32, $t, $hz));
|
||
|
|
push(@val, numden($t, $hz));
|
||
|
|
|
||
|
|
# xx_TO_HZ
|
||
|
|
push(@val, muladj(32, $hz, $t));
|
||
|
|
push(@val, numden($hz, $t));
|
||
|
|
|
||
|
|
return @val;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub compute_values($) {
|
||
|
|
my($hz) = @_;
|
||
|
|
my @val = ();
|
||
|
|
my $s, $m, $a, $g;
|
||
|
|
|
||
|
|
if (!$has_bigint) {
|
||
|
|
die "$0: HZ == $hz not canned and ".
|
||
|
|
"Math::BigInt not available\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
# MSEC conversions
|
||
|
|
push(@val, conversions(1000, $hz));
|
||
|
|
|
||
|
|
# USEC conversions
|
||
|
|
push(@val, conversions(1000000, $hz));
|
||
|
|
|
||
|
|
return @val;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub outputval($$)
|
||
|
|
{
|
||
|
|
my($name, $val) = @_;
|
||
|
|
my $csuf;
|
||
|
|
|
||
|
|
if (defined($val)) {
|
||
|
|
if ($name !~ /SHR/) {
|
||
|
|
$val = "U64_C($val)";
|
||
|
|
}
|
||
|
|
printf "#define %-23s %s\n", $name.$csuf, $val.$csuf;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sub output($@)
|
||
|
|
{
|
||
|
|
my($hz, @val) = @_;
|
||
|
|
my $pfx, $bit, $suf, $s, $m, $a;
|
||
|
|
|
||
|
|
print "/* Automatically generated by kernel/timeconst.pl */\n";
|
||
|
|
print "/* Conversion constants for HZ == $hz */\n";
|
||
|
|
print "\n";
|
||
|
|
print "#ifndef KERNEL_TIMECONST_H\n";
|
||
|
|
print "#define KERNEL_TIMECONST_H\n";
|
||
|
|
print "\n";
|
||
|
|
|
||
|
|
print "#include <linux/param.h>\n";
|
||
|
|
print "#include <linux/types.h>\n";
|
||
|
|
|
||
|
|
print "\n";
|
||
|
|
print "#if HZ != $hz\n";
|
||
|
|
print "#error \"kernel/timeconst.h has the wrong HZ value!\"\n";
|
||
|
|
print "#endif\n";
|
||
|
|
print "\n";
|
||
|
|
|
||
|
|
foreach $pfx ('HZ_TO_MSEC','MSEC_TO_HZ',
|
||
|
|
'HZ_TO_USEC','USEC_TO_HZ') {
|
||
|
|
foreach $bit (32) {
|
||
|
|
foreach $suf ('MUL', 'ADJ', 'SHR') {
|
||
|
|
outputval("${pfx}_$suf$bit", shift(@val));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
foreach $suf ('NUM', 'DEN') {
|
||
|
|
outputval("${pfx}_$suf", shift(@val));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\n";
|
||
|
|
print "#endif /* KERNEL_TIMECONST_H */\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
# Pretty-print Perl values
|
||
|
|
sub perlvals(@) {
|
||
|
|
my $v;
|
||
|
|
my @l = ();
|
||
|
|
|
||
|
|
foreach $v (@_) {
|
||
|
|
if (!defined($v)) {
|
||
|
|
push(@l, 'undef');
|
||
|
|
} elsif ($v =~ /^0x/) {
|
||
|
|
push(@l, "\'".$v."\'");
|
||
|
|
} else {
|
||
|
|
push(@l, $v.'');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return join(',', @l);
|
||
|
|
}
|
||
|
|
|
||
|
|
($hz) = @ARGV;
|
||
|
|
|
||
|
|
# Use this to generate the %canned_values structure
|
||
|
|
if ($hz eq '--can') {
|
||
|
|
shift(@ARGV);
|
||
|
|
@hzlist = sort {$a <=> $b} (@ARGV);
|
||
|
|
|
||
|
|
print "# Precomputed values for systems without Math::BigInt\n";
|
||
|
|
print "# Generated by:\n";
|
||
|
|
print "# timeconst.pl --can ", join(' ', @hzlist), "\n";
|
||
|
|
print "\%canned_values = (\n";
|
||
|
|
my $pf = "\t";
|
||
|
|
foreach $hz (@hzlist) {
|
||
|
|
my @values = compute_values($hz);
|
||
|
|
print "$pf$hz => [\n";
|
||
|
|
while (scalar(@values)) {
|
||
|
|
my $bit;
|
||
|
|
foreach $bit (32) {
|
||
|
|
my $m = shift(@values);
|
||
|
|
my $a = shift(@values);
|
||
|
|
my $s = shift(@values);
|
||
|
|
print "\t\t", perlvals($m,$a,$s), ",\n";
|
||
|
|
}
|
||
|
|
my $n = shift(@values);
|
||
|
|
my $d = shift(@values);
|
||
|
|
print "\t\t", perlvals($n,$d), ",\n";
|
||
|
|
}
|
||
|
|
print "\t]";
|
||
|
|
$pf = ', ';
|
||
|
|
}
|
||
|
|
print "\n);\n";
|
||
|
|
} else {
|
||
|
|
$hz += 0; # Force to number
|
||
|
|
if ($hz < 1) {
|
||
|
|
die "Usage: $0 HZ\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
@val = @{$canned_values{$hz}};
|
||
|
|
if (!defined(@val)) {
|
||
|
|
@val = compute_values($hz);
|
||
|
|
}
|
||
|
|
output($hz, @val);
|
||
|
|
}
|
||
|
|
exit 0;
|