/
GC.prg
81 lines (65 loc) · 2.03 KB
/
GC.prg
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
//
// Copyright (c) XSharp B.V. All Rights Reserved.
// Licensed under the Apache License, Version 2.0.
// See License.txt in the project root for license information.
//
[Obsolete( "'AllowCollectThread()' is not supported" )] ;
FUNCTION AllowCollectThread() AS VOID
RETURN
/// <summary>
/// Call the garbage collector if a watermark is reached.
/// </summary>
/// <returns>
/// </returns>
[Obsolete( "'Collect()' is not supported" )] ;
FUNCTION Collect() AS VOID
RETURN
/// <summary>
/// Count the number of garbage collections performed by the system.
/// </summary>
/// <returns>
/// </returns>
[Obsolete( "'CollectCount()' is not supported" )] ;
FUNCTION CollectCount() AS DWORD
return 0
/// <summary>
/// Call the garbage collector.
/// </summary>
/// <returns>
/// </returns>
[Obsolete( "'CollectForced()' is not supported" )] ;
FUNCTION CollectForced() AS VOID
RETURN
/// <exclude/>
[Obsolete( "'AxitCalled()' is not supported and always returns FALSE" )] ;
FUNCTION AxitCalled(o AS OBJECT) AS LOGIC
RETURN FALSE
/// <summary>
/// Check whether the application is in a garbage collection phase.
/// </summary>
/// <returns>
/// </returns>
[Obsolete( "'InCollect()' is not supported" )] ;
FUNCTION InCollect() AS LOGIC
RETURN FALSE
[Obsolete( "'_RegisterExit()' is not supported and has no effect, use 'AppDomain.CurrentDomain:ProcessExit' in stead..",TRUE)];
FUNCTION _RegisterExit(aFunction AS USUAL) AS VOID
RETURN
/// <summary>
/// Register an object so that it receives an Axit message before being destroyed by the garbage collector.
/// </summary>
/// <param name="oSource"></param>
/// <returns>
/// </returns>
[Obsolete( "'RegisterAxit()' is not supported and has no effect.")];
FUNCTION RegisterAxit(oSource AS OBJECT) AS VOID
RETURN
/// <summary>
/// Terminate the registration of an object that has been registered with RegisterAxit().
/// </summary>
/// <param name="oSource"></param>
/// <returns>
/// </returns>
FUNCTION UnRegisterAxit(oSource AS OBJECT) AS LOGIC
GC.SuppressFinalize( oSource )
RETURN FALSE