test/data/parse/makefixed.pl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

use warnings;
use strict;

die "Usage: makefixed.pl <value>\n" if (@ARGV != 1);

my $val = shift @ARGV;

printf("0x%.8x\n", $val * (1 << 10));