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
|
From 997de91062d1f152d0c3b322a1e3694243e4a403 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C4=81nis=20D=C5=BEeri=C5=86=C5=A1?=
<smuglispweenie@gmail.com>
Date: Sat, 23 May 2020 16:19:26 +0300
Subject: [PATCH 2/4] Remove unused variables
100.0% lisp-kernel/
diff --git a/lisp-kernel/gc.h b/lisp-kernel/gc.h
index acc9e184..58a4f227 100644
--- a/lisp-kernel/gc.h
+++ b/lisp-kernel/gc.h
@@ -83,7 +83,6 @@ void gc(TCR *, signed_natural);
int change_hons_area_size(TCR *, signed_natural);
void delete_protected_area(protected_area_ptr);
Boolean egc_control(Boolean, BytePtr);
-Boolean free_segments_zero_filled_by_OS;
Boolean new_heap_segment(ExceptionInformation *, natural, Boolean , TCR *, Boolean *);
void platform_new_heap_segment(ExceptionInformation *, TCR*, BytePtr, BytePtr);
/* an type representing 1/4 of a natural word */
diff --git a/lisp-kernel/threads.h b/lisp-kernel/threads.h
index 4a79fa21..06da1227 100644
--- a/lisp-kernel/threads.h
+++ b/lisp-kernel/threads.h
@@ -187,7 +187,6 @@ void tsd_set(LispObj, void *);
void *tsd_get(LispObj);
TCR *new_tcr(natural, natural);
void thread_init_tcr(TCR *tcr, void *stack_base, natural stack_size);
-TCR *initial_thread_tcr;
#define DEFAULT_THREAD_STACK_SIZE ((size_t) -1)
#define MINIMAL_THREAD_STACK_SIZE ((size_t) 0)
--
2.27.0
|