Changeset 4711


Ignore:
Timestamp:
11/12/03 21:31:06 (18 years ago)
Author:
piso
Message:

incrementCallCounts()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/LispThread.java

    r4330 r4711  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispThread.java,v 1.20 2003-10-12 18:21:17 piso Exp $
     5 * $Id: LispThread.java,v 1.21 2003-11-12 21:31:06 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    319319    }
    320320
     321    public void incrementCallCounts()
     322    {
     323        for (int i = stack.size(); i-- > 0;) {
     324            StackFrame frame = (StackFrame) stack.get(i);
     325            if (frame != null) {
     326                LispObject functional = frame.getFunctional();
     327                if (functional != null)
     328                    functional.incrementCallCount();
     329            }
     330        }
     331    }
     332
    321333    private static void pprint(LispObject obj, int indentBy,
    322334        CharacterOutputStream stream) throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.