Changeset 494


Ignore:
Timestamp:
Jul 3, 2010, 7:29:53 PM (15 years ago)
Author:
David Azarewicz
Message:

Change to sort routine

File:
1 edited

Legend:

Unmodified
Added
Removed
  • OCO/trunk/tools/wat2map.cmd

    r490 r494  
    195195End; /* End While through symbol section, end of input file. */
    196196
    197 
    198197/* Sort the data */
    199 do i=2 to LineTbl.0
    200    t=LineTbl.i
    201    do j=i-1 to 1 by -1 while t<LineTbl.j
    202       k=j+1
    203       LineTbl.k=LineTbl.j
    204    end
    205    j=j+1
    206    LineTbl.j=t
    207 end
     198do i=2 to LineTbl.0;
     199   t=LineTbl.i;
     200   do j=i-1 to 1 by -1 while t<LineTbl.j;
     201      k=j+1;
     202      LineTbl.k=LineTbl.j;
     203   end;
     204   j=j+1;
     205   LineTbl.j=t;
     206end;
    208207
    209208/* output the data */
Note: See TracChangeset for help on using the changeset viewer.