Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
freebsd
GitHub Repository: freebsd/freebsd-ports-gnome
 Path: blob/main/lang/ccl/files/patch-lisp-kernel_gc.h
16125 views
1
--- lisp-kernel/gc.h.orig	2020-04-19 21:32:56 UTC

2
+++ lisp-kernel/gc.h

3
@@ -62,8 +62,8 @@

4
 extern LispObj GCarealow, GCareadynamiclow;

5
 extern natural GCndnodes_in_area, GCndynamic_dnodes_in_area;

6
 extern bitvector GCmarkbits, GCdynamic_markbits,managed_static_refbits,global_refidx,dynamic_refidx,managed_static_refidx;

7
-LispObj *global_reloctab, *GCrelocptr;

8
-LispObj GCfirstunmarked;

9
+extern LispObj *global_reloctab, *GCrelocptr;

10
+extern LispObj GCfirstunmarked;

11
 

12
 extern natural lisp_heap_gc_threshold;

13
 extern natural lisp_heap_notify_threshold;

14
@@ -83,7 +83,7 @@ void gc(TCR *, signed_natural);

15
 int change_hons_area_size(TCR *, signed_natural);

16
 void delete_protected_area(protected_area_ptr);

17
 Boolean egc_control(Boolean, BytePtr);

18
-Boolean free_segments_zero_filled_by_OS;

19
+extern Boolean free_segments_zero_filled_by_OS;

20
 Boolean new_heap_segment(ExceptionInformation *, natural, Boolean , TCR *, Boolean *);

21
 void platform_new_heap_segment(ExceptionInformation *, TCR*, BytePtr, BytePtr);

22
 /* an type representing 1/4 of a natural word */

23
@@ -153,19 +153,19 @@ void report_paging_info_delta(FILE*, paging_info *, pa

24
 #define GC_TRAP_FUNCTION_FREEZE 129

25
 #define GC_TRAP_FUNCTION_THAW 130

26
 

27
-Boolean GCDebug, GCverbose, just_purified_p;

28
-bitvector GCmarkbits, GCdynamic_markbits;

29
-LispObj GCarealow, GCareadynamiclow;

30
-natural GCndnodes_in_area, GCndynamic_dnodes_in_area;

31
-LispObj GCweakvll,GCdwsweakvll;

32
-LispObj GCephemeral_low;

33
-natural GCn_ephemeral_dnodes;

34
-natural GCstack_limit;

35
+extern Boolean GCDebug, GCverbose, just_purified_p;

36
+extern bitvector GCmarkbits, GCdynamic_markbits;

37
+extern LispObj GCarealow, GCareadynamiclow;

38
+extern natural GCndnodes_in_area, GCndynamic_dnodes_in_area;

39
+extern LispObj GCweakvll,GCdwsweakvll;

40
+extern LispObj GCephemeral_low;

41
+extern natural GCn_ephemeral_dnodes;

42
+extern natural GCstack_limit;

43
 

44
 #if WORD_SIZE == 64

45
-unsigned short *_one_bits;

46
+extern unsigned short *_one_bits;

47
 #else

48
-const unsigned char _one_bits[256];

49
+extern const unsigned char _one_bits[256];

50
 #endif

51
 

52
 #define one_bits(x) _one_bits[x]

53
@@ -195,11 +195,11 @@ void gc(TCR *, signed_natural);

54
 /* backend-interface */

55
 

56
 typedef void (*weak_mark_fun) (LispObj);

57
-weak_mark_fun mark_weak_htabv, dws_mark_weak_htabv;

58
+extern weak_mark_fun mark_weak_htabv, dws_mark_weak_htabv;

59
 

60
 typedef void (*weak_process_fun)(void);

61
 

62
-weak_process_fun markhtabvs;

63
+extern weak_process_fun markhtabvs;

64
 

65
 

66
 #define hash_table_vector_header_count (sizeof(hash_table_vector_header)/sizeof(LispObj))

67


68