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
|
diff --git a/NEWS.md b/NEWS.md
index 217279ab3..df2de0491 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -90,6 +90,10 @@ Notable changes in Lepton EDA 1.9.18 (upcoming)
export functions in case they are called multiple times in
Scheme scripts, which also eliminated several build warnings.
+- Fixed wrong argument types in several FFI definitions which
+ trigger `make distcheck` failures when used with recent versions
+ of `gcc`/`g++`.
+
### Changes in `libleptongui`:
- The library does no longer depend on Guile snarfing and Scheme
diff --git a/liblepton/scheme/lepton/ffi.scm b/liblepton/scheme/lepton/ffi.scm
index 03c73f58c..c41055b7c 100644
--- a/liblepton/scheme/lepton/ffi.scm
+++ b/liblepton/scheme/lepton/ffi.scm
@@ -459,7 +459,7 @@
(define-lff set_render_placeholders void '())
(define-lff colors_count size_t '())
-(define-lff default_color_id int '())
+(define-lff default_color_id size_t '())
(define-lff lepton_colormap_color_by_id '* (list '* size_t))
(define-lff lepton_colormap_disable_color void (list '* size_t))
(define-lff lepton_colormap_set_color void (list '* size_t uint8 uint8 uint8 uint8))
@@ -514,13 +514,13 @@
(define-lff eda_config_get_double double '(* * * *))
(define-lff eda_config_set_double void (list '* '* '* double))
(define-lff eda_config_get_string_list '* '(* * * * *))
-(define-lff eda_config_set_string_list void (list '* '* '* '* unsigned-int))
+(define-lff eda_config_set_string_list void (list '* '* '* '* size_t))
(define-lff eda_config_get_boolean_list '* '(* * * * *))
-(define-lff eda_config_set_boolean_list void (list '* '* '* '* unsigned-int))
+(define-lff eda_config_set_boolean_list void (list '* '* '* '* size_t))
(define-lff eda_config_get_int_list '* '(* * * * *))
-(define-lff eda_config_set_int_list void (list '* '* '* '* unsigned-int))
+(define-lff eda_config_set_int_list void (list '* '* '* '* size_t))
(define-lff eda_config_get_double_list '* '(* * * * *))
-(define-lff eda_config_set_double_list void (list '* '* '* '* unsigned-int))
+(define-lff eda_config_set_double_list void (list '* '* '* '* size_t))
(define-lff eda_config_is_changed int '(*))
(define-lff eda_config_get_parent '* '(*))
(define-lff eda_config_set_parent void '(* *))
|
