WP34s Builds

[Thomas Klemm]

In order to get some debug-information in tools/wp34s_asm.pl you can set:

Code:

 151 my $debug = 3;

Or then set the environment variable WP34S_ASM to PRESERVE_PP_DBG:

Code:

1848   print "// Running WP 34S preprocessor from: $pp_location\n";
1849   debug_msg(this_function((caller(0))[3]), "Running: '$cmd'")
1850     if ($debug > 2) or (exists $ENV{WP34S_ASM} and ($ENV{WP34S_ASM} =~ /PRESERVE_PP_DBG/i));
1851
1852   @lines = `$cmd`;
1853   $err_msg = $?;
1854   if( $err_msg ) {
1855     warn_msg(this_function((caller(0))[3]), "WP 34S preprocessor failed. Temp file: '$tmp_file'");
1856     die_msg(this_function((caller(0))[3]), "Perhaps you can try running it in isolation using: \$ $cmd");
1857   }
1858   unlink $tmp_file unless exists $ENV{WP34S_ASM} and ($ENV{WP34S_ASM} =~ /PRESERVE_PP_TMP/i);

But I must admit that I'm not familiar with the build-environment of this project.
Are you sure that your Perl installation is fine?

Completely unrelated:

Quote: # Override the step digits as required.
# XXX Hah! Who knew?! In Perl, 'log' is actually log2, not log10, like everywhere else!!
my $sd = ceil(log($max_flash_words)/log(10));

From perldoc -f log:

Code:

       log EXPR
       log     Returns the natural logarithm (base e) of EXPR.  If EXPR is omitted, returns log of $_.  To get the log of another base, use basic algebra: The base-N log of a number is equal to the natural log of that
               number divided by the natural log of N.  For example:

                   sub log10 {
                       my $n = shift;
                       return log($n)/log(10);
                   }

               See also "exp" for the inverse operation.