Return to add_cycles.pl CVS log

Up to [HATARI the Atari ST Emulator] / hatari / src / uae-cpu

Annotation of hatari/src/uae-cpu/add_cycles.pl, revision 1.1.1.1

1.1       root        1: #!/usr/bin/perl -w
                      2: #
                      3: # Simple script used to parse cpuemu.c and to generate
                      4: # a new cpuemu.c where each opcode sets CurrentInstrCycles
                      5: # to the value that would be returned at the end of this
                      6: # opcode's processing.
                      7: #
                      8: # This allows to know how many cycles an instructions will take
                      9: # while handling its memory accesses (this is needed for
                     10: # accurate border removal emulation).
                     11: #
                     12: # This script is not perfect (doesn't give correct cycles
                     13: # values for variable cycles intr. like rol, lsl, movem, ...)
                     14: # but it is enough for border removal as instruction are
                     15: # often move or clr with fixed cycles count.
                     16: #
                     17: # 2007/03/07   [NP]    OK
                     18: 
                     19: 
                     20: 
                     21: $in_func = 0;
                     22: 
                     23: while ( <> )
                     24:   {
                     25:     $line = $_;
                     26: 
                     27:     # not in a function, we print back to stdout
                     28:     if ( $in_func == 0 )
                     29:       {
                     30:         print $line;
                     31:         $in_func = 1 if $line =~ /^{/;
                     32:       }
                     33: 
                     34:     # we're entering in a function ; we buffer everything
                     35:     # until we reach the 'return' line, then we print
                     36:     # the CurrentInstrCycles based on the numeric value in
                     37:     # the 'return' line, finally we print the buffered lines.
                     38:     else
                     39:       {
                     40:        push @buf , $line;              # create a buffer for the function's body
                     41: 
                     42:        if ( $line =~ /return \(?(\d+)/ )
                     43:          {
                     44:            print "CurrentInstrCycles = $1;\n";
                     45:            print @buf;
                     46:            @buf = ();
                     47:            $in_func = 0;
                     48:          }
                     49:       }
                     50:   }
                     51: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.