Changeset 5209


Ignore:
Timestamp:
12/19/03 20:26:26 (18 years ago)
Author:
piso
Message:

getCallCount(), setCallCount(), incrementCallCount()

File:
1 edited

Legend:

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

    r5203 r5209  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: GenericFunction.java,v 1.5 2003-12-19 18:43:52 piso Exp $
     5 * $Id: GenericFunction.java,v 1.6 2003-12-19 20:26:26 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    103103    }
    104104
     105    // Profiling.
     106    private int callCount;
     107
     108    public final int getCallCount()
     109    {
     110        return callCount;
     111    }
     112
     113    public void setCallCount(int n)
     114    {
     115        callCount = n;
     116    }
     117
     118    public final void incrementCallCount()
     119    {
     120        ++callCount;
     121    }
     122
    105123    private static final Primitive1 GENERIC_FUNCTION_DISCRIMINATING_FUNCTION =
    106124        new Primitive1("generic-function-discriminating-function", PACKAGE_SYS, false)
Note: See TracChangeset for help on using the changeset viewer.