1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
/*
FALCON - The Falcon Programming Language.
FILE: corefunc.cpp
Abstract live function object.
-------------------------------------------------------------------
Author: Giancarlo Niccolai
Begin: Wed, 07 Jan 2009 14:54:36 +0100
-------------------------------------------------------------------
(C) Copyright 2004: the FALCON developers (see list in AUTHORS file)
See LICENSE file for licensing details.
*/
/** \file
Abstract live function object.
*/
#include <falcon/corefunc.h>
#include <falcon/vm.h>
#include <falcon/eng_messages.h>
#include <falcon/itemarray.h>
namespace Falcon
{
CoreFunc::~CoreFunc()
{
delete m_closure;
}
void CoreFunc::readyFrame( VMachine* vm, uint32 paramCount )
{
vm->prepareFrame( this, paramCount );
vm->currentContext()->fself() = this;
}
void CoreFunc::gcMark( uint32 gen )
{
if( mark() != gen )
{
mark( gen );
liveModule()->gcMark( gen );
// mark also closed items
if ( closure() != 0 )
closure()->gcMark( gen );
}
}
}
/* end of corefunc.cpp */
|
