Changeset 12109


Ignore:
Timestamp:
08/23/09 08:31:19 (12 years ago)
Author:
ehuelsmann
Message:

Remove references to the long-deleted Native class.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Time.java

    r11714 r12109  
    4040public final class Time extends Lisp
    4141{
    42   private static final long getCurrentThreadUserTime()
    43   {
    44     try
    45       {
    46         Class c = Class.forName("org.armedbear.lisp.Native");
    47         Method m = c.getMethod("getCurrentThreadUserTime", (Class[]) null);
    48         Object result = m.invoke((Object) null, (Object[]) null);
    49         if (result instanceof Long)
    50           return ((Long)result).longValue();
    51       }
    52     catch (Throwable t) {}
    53     return -1;
    54   }
    55 
    56   private static final long getCurrentThreadSystemTime()
    57   {
    58     try
    59       {
    60         Class c = Class.forName("org.armedbear.lisp.Native");
    61         Method m = c.getMethod("getCurrentThreadSystemTime", (Class[]) null);
    62         Object result = m.invoke((Object) null, (Object[]) null);
    63         if (result instanceof Long)
    64           return ((Long)result).longValue();
    65       }
    66     catch (Throwable t) {}
    67     return -1;
    68   }
    6942
    7043  // ### %time
     
    7649      {
    7750        Cons.setCount(0);
    78         long userStart = -1;
    79         long systemStart = -1;
    80         try
    81           {
    82             userStart = getCurrentThreadUserTime();
    83             systemStart = getCurrentThreadSystemTime();
    84           }
    85         catch (Throwable t) {}
    8651        long realStart = System.currentTimeMillis();
    8752        try
     
    9257          {
    9358            long realElapsed = System.currentTimeMillis() - realStart;
    94             final long userStop;
    95             final long systemStop;
    96             if (userStart > 0)
    97               {
    98                 userStop = getCurrentThreadUserTime();
    99                 systemStop = getCurrentThreadSystemTime();
    100               }
    101             else
    102               {
    103                 userStop = -1;
    104                 systemStop = -1;
    105               }
    10659            long count = Cons.getCount();
    10760            Stream out =
     
    11265            sb.append(" seconds real time");
    11366            sb.append(System.getProperty("line.separator"));
    114             if (userStart > 0)
    115               {
    116                 sb.append(String.valueOf((float)(userStop - userStart) / 100));
    117                 sb.append(" seconds user run time");
    118                 sb.append(System.getProperty("line.separator"));
    119                 sb.append(String.valueOf((float)(systemStop - systemStart) / 100));
    120                 sb.append(" seconds system run time");
    121                 sb.append(System.getProperty("line.separator"));
    122               }
    12367            sb.append(count);
    12468            sb.append(" cons cell");
     
    15094      public LispObject execute() throws ConditionThrowable
    15195      {
    152         if (Utilities.isPlatformUnix)
    153           {
    154             long userTime = -1;
    155             long systemTime = -1;
    156             try
    157               {
    158                 userTime = getCurrentThreadUserTime();
    159                 systemTime = getCurrentThreadSystemTime();
    160               }
    161             catch (Throwable t) {}
    162             if (userTime >= 0 && systemTime >= 0)
    163               return number((userTime + systemTime) * 10);
    164           }
    16596        return number(System.currentTimeMillis());
    16697      }
Note: See TracChangeset for help on using the changeset viewer.