Return to vaxpo1.spt CVS log

Up to [Research Unix] / researchv10no / cmd / spitbol

Annotation of researchv10no/cmd/spitbol/vaxpo1.spt, revision 1.1.1.1

1.1       root        1: -title VAXPO1: VAX Peephole Optimizer 1 - Eliminate Redundant TSTLs
                      2: -in80
                      3: *
                      4: *      VAXPO1 removes redundant TSTL instructions of an operand
                      5: *      modified by the previous instruction.
                      6: *
                      7:        &anchor = 1
                      8:        &stlimit = 10000000
                      9: *
                     10: *      Set up patterns to rip apart statements.
                     11: *
                     12:        tab     = substr( &alphabet,10,1 )
                     13:        sep     = tab ' '
                     14:        letters = 'abcdefghijklmnopqrstuvwxyz23'
                     15:        label   = break( ':' ) ':' | ''
                     16:        eos     = span( sep ) | '#' | rpos( 0 )
                     17:        fmtop   = label span( sep ) 
                     18: +                      span( letters ) . op  span( sep )
                     19: +                      ( break( sep '#' ) | rem ) . dst  eos
                     20:        tstpat  = span( sep ) 'tstl' span( sep ) *dst 
                     21: +                      (eos rem) . cmnt
                     22: *
                     23: *      Read in opcodes of instructions that set the condition codes
                     24: *
                     25:        optbl   = table()
                     26: oploop line    = input
                     27:        line    ? '+'                           :s(oploopx)
                     28:        line    ? break( sep ) . op span( sep ) rem . n
                     29:        optbl[op] = +n                          :(oploop)
                     30: oploopx
                     31: *
                     32: *      Set up i/o associations.
                     33: *
                     34:        infile  = input
                     35:        input( .in,0,infile )
                     36:        terminal = 'Input file: ' infile
                     37:        terminal =
                     38:        outfile = input
                     39:        output( .out,1,outfile )
                     40:        terminal = 'Output file ' outfile
                     41:        terminal =
                     42:        logfile = input
                     43:        output( .output,2,logfile )
                     44:        terminal = 'Log file: ' logfile
                     45: *
                     46: *      Check next line for possibly preceding a redunant TSTL.
                     47: *
                     48: optloop        line    = in                            :f(eof)
                     49:        leq( substr( line,1,1 ),'#' )           :s(write)
                     50: optl1  line    ? fmtop                         :f(write)
                     51:        differ( n = optbl[op] )                 :f(write)
                     52:        dst     ? *eq( n,2 ) break( ',' ) len( 1 ) =
                     53:        dst     ? *eq( n,3 ) break( ',' ) len( 1 ) =
                     54:        out     = line
                     55: *
                     56: *      Dst contains destination operand from previous instruction.
                     57: *      So, check now for a TSTL of that operand.
                     58: *
                     59:        line    = in                            :f(eof)
                     60:        line    ? tstpat                        :f(optl1)
                     61:        output  = tab out
                     62:        opt     = opt + 1
                     63:        output  = '#--->' tab line
                     64:        line    = in cmnt
                     65:        output  = tab line
                     66:        output  =
                     67: *
                     68: write  out     = line                          :(optloop)
                     69: *
                     70: eof    output  = opt ' redundant TSTL instructions removed'
                     71: end
                     72: addl2  2
                     73: ashl   3
                     74: bicl2  2
                     75: bisl2  2
                     76: decl   1
                     77: incl   1
                     78: movl   2
                     79: subl2  2
                     80: xorl2  2
                     81: +
                     82: spitv35.src
                     83: spitv35.serr
                     84: opttsts

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