From 101f0221b557866db79beae024b1418820b24998 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig=20=28Debian/GNU=29?= Date: Mon, 23 Oct 2017 13:07:26 +0200 Subject: New upstream version 17.8 --- gl.c | 92 ++++++++++++++++++++++++++++++++++---------------------------------- 1 file changed, 46 insertions(+), 46 deletions(-) (limited to 'gl.c') diff --git a/gl.c b/gl.c index 5b41114..1ada607 100644 --- a/gl.c +++ b/gl.c @@ -4455,9 +4455,9 @@ static void define_functions(void) { #if HAVE_SCHEME static s7_pointer s_boolean, s_integer, s_real, s_any; -static s7_pointer pl_pit, pl_piiit, pl_piit, pl_t, pl_ttri, pl_ttit, pl_ttr, pl_ttir, pl_prrrt, pl_prrrrtttrrt, pl_ttb, pl_tti, pl_ttiti, pl_ttrriir, pl_ttititiiti, pl_ttititi, pl_ttrri, pl_ttrrri, pl_tb, pl_bt, pl_iiiiitiiit, pl_iiiiiiiit, pl_iiiiiiiiiiit, pl_iiiiiiit, pl_iiiiiiiiiit, pl_iiiiiit, pl_iiiiiiiiit, pl_i, pl_tiiit, pl_tiirrrrt, pl_tiiiit, pl_tiiiiiiit, pl_tiiiiiiiit, pl_tirriit, pl_tirriirriit, pl_tirrir, pl_tir, pl_tiit, pl_tit, pl_tiiiiiiiiit, pl_tiiiiiiiiiit, pl_tiiib, pl_ti, pl_tiiiiiit, pl_tiir, pl_tiiiiit, pl_tibiit, pl_tiib, pl_bit, pl_bi, pl_trrrrt, pl_tr; +static s7_pointer pl_tiirrrrt, pl_tiiiiiiit, pl_tiiiiiiiit, pl_tirriirriit, pl_tiiiiiiiiit, pl_tiiiiiiiiiit, pl_tiiiiiit, pl_ti, pl_tir, pl_tit, pl_tiit, pl_tiir, pl_tiib, pl_tiiit, pl_tiiib, pl_tiiiit, pl_tirrir, pl_tibiit, pl_tirriit, pl_tiiiiit, pl_iiiiiit, pl_iiiiitiiit, pl_iiiiiiiit, pl_iiiiiiiiiiit, pl_iiiiiiit, pl_iiiiiiiiiit, pl_iiiiiiiiit, pl_prrrt, pl_prrrrtttrrt, pl_t, pl_i, pl_tb, pl_bt, pl_pit, pl_piit, pl_piiit, pl_bi, pl_tr, pl_bit, pl_trrrrt, pl_ttr, pl_ttb, pl_tti, pl_ttri, pl_ttit, pl_ttir, pl_ttiti, pl_ttrri, pl_ttrrri, pl_ttrriir, pl_ttititi, pl_ttititiiti; #if USE_MOTIF -static s7_pointer pl_tttti, pl_ttttb, pl_pttit, pl_pt; +static s7_pointer pl_pt, pl_pttit, pl_tttti, pl_ttttb; #endif s_boolean = s7_make_symbol(s7, "boolean?"); @@ -4465,64 +4465,64 @@ static s7_pointer pl_tttti, pl_ttttb, pl_pttit, pl_pt; s_real = s7_make_symbol(s7, "real?"); s_any = s7_t(s7); - pl_pit = s7_make_circular_signature(s7, 2, 3, s_any, s_integer, s_any); - pl_piiit = s7_make_circular_signature(s7, 4, 5, s_any, s_integer, s_integer, s_integer, s_any); - pl_piit = s7_make_circular_signature(s7, 3, 4, s_any, s_integer, s_integer, s_any); - pl_t = s7_make_circular_signature(s7, 0, 1, s_any); - pl_ttri = s7_make_circular_signature(s7, 3, 4, s_any, s_any, s_real, s_integer); - pl_ttit = s7_make_circular_signature(s7, 3, 4, s_any, s_any, s_integer, s_any); - pl_ttr = s7_make_circular_signature(s7, 2, 3, s_any, s_any, s_real); - pl_ttir = s7_make_circular_signature(s7, 3, 4, s_any, s_any, s_integer, s_real); - pl_prrrt = s7_make_circular_signature(s7, 4, 5, s_any, s_real, s_real, s_real, s_any); - pl_prrrrtttrrt = s7_make_circular_signature(s7, 10, 11, s_any, s_real, s_real, s_real, s_real, s_any, s_any, s_any, s_real, s_real, s_any); - pl_ttb = s7_make_circular_signature(s7, 2, 3, s_any, s_any, s_boolean); - pl_tti = s7_make_circular_signature(s7, 2, 3, s_any, s_any, s_integer); - pl_ttiti = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_integer, s_any, s_integer); - pl_ttrriir = s7_make_circular_signature(s7, 6, 7, s_any, s_any, s_real, s_real, s_integer, s_integer, s_real); - pl_ttititiiti = s7_make_circular_signature(s7, 9, 10, s_any, s_any, s_integer, s_any, s_integer, s_any, s_integer, s_integer, s_any, s_integer); - pl_ttititi = s7_make_circular_signature(s7, 6, 7, s_any, s_any, s_integer, s_any, s_integer, s_any, s_integer); - pl_ttrri = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_real, s_real, s_integer); - pl_ttrrri = s7_make_circular_signature(s7, 5, 6, s_any, s_any, s_real, s_real, s_real, s_integer); - pl_tb = s7_make_circular_signature(s7, 1, 2, s_any, s_boolean); - pl_bt = s7_make_circular_signature(s7, 1, 2, s_boolean, s_any); - pl_iiiiitiiit = s7_make_circular_signature(s7, 9, 10, s_integer, s_integer, s_integer, s_integer, s_integer, s_any, s_integer, s_integer, s_integer, s_any); - pl_iiiiiiiit = s7_make_circular_signature(s7, 8, 9, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_iiiiiiiiiiit = s7_make_circular_signature(s7, 11, 12, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_iiiiiiit = s7_make_circular_signature(s7, 7, 8, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_iiiiiiiiiit = s7_make_circular_signature(s7, 10, 11, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_iiiiiit = s7_make_circular_signature(s7, 6, 7, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_iiiiiiiiit = s7_make_circular_signature(s7, 9, 10, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_i = s7_make_circular_signature(s7, 0, 1, s_integer); - pl_tiiit = s7_make_circular_signature(s7, 4, 5, s_any, s_integer, s_integer, s_integer, s_any); pl_tiirrrrt = s7_make_circular_signature(s7, 7, 8, s_any, s_integer, s_integer, s_real, s_real, s_real, s_real, s_any); - pl_tiiiit = s7_make_circular_signature(s7, 5, 6, s_any, s_integer, s_integer, s_integer, s_integer, s_any); pl_tiiiiiiit = s7_make_circular_signature(s7, 8, 9, s_any, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); pl_tiiiiiiiit = s7_make_circular_signature(s7, 9, 10, s_any, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_tirriit = s7_make_circular_signature(s7, 6, 7, s_any, s_integer, s_real, s_real, s_integer, s_integer, s_any); pl_tirriirriit = s7_make_circular_signature(s7, 10, 11, s_any, s_integer, s_real, s_real, s_integer, s_integer, s_real, s_real, s_integer, s_integer, s_any); - pl_tirrir = s7_make_circular_signature(s7, 5, 6, s_any, s_integer, s_real, s_real, s_integer, s_real); - pl_tir = s7_make_circular_signature(s7, 2, 3, s_any, s_integer, s_real); - pl_tiit = s7_make_circular_signature(s7, 3, 4, s_any, s_integer, s_integer, s_any); - pl_tit = s7_make_circular_signature(s7, 2, 3, s_any, s_integer, s_any); pl_tiiiiiiiiit = s7_make_circular_signature(s7, 10, 11, s_any, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); pl_tiiiiiiiiiit = s7_make_circular_signature(s7, 11, 12, s_any, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_tiiib = s7_make_circular_signature(s7, 4, 5, s_any, s_integer, s_integer, s_integer, s_boolean); - pl_ti = s7_make_circular_signature(s7, 1, 2, s_any, s_integer); pl_tiiiiiit = s7_make_circular_signature(s7, 7, 8, s_any, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_ti = s7_make_circular_signature(s7, 1, 2, s_any, s_integer); + pl_tir = s7_make_circular_signature(s7, 2, 3, s_any, s_integer, s_real); + pl_tit = s7_make_circular_signature(s7, 2, 3, s_any, s_integer, s_any); + pl_tiit = s7_make_circular_signature(s7, 3, 4, s_any, s_integer, s_integer, s_any); pl_tiir = s7_make_circular_signature(s7, 3, 4, s_any, s_integer, s_integer, s_real); - pl_tiiiiit = s7_make_circular_signature(s7, 6, 7, s_any, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); - pl_tibiit = s7_make_circular_signature(s7, 5, 6, s_any, s_integer, s_boolean, s_integer, s_integer, s_any); pl_tiib = s7_make_circular_signature(s7, 3, 4, s_any, s_integer, s_integer, s_boolean); - pl_bit = s7_make_circular_signature(s7, 2, 3, s_boolean, s_integer, s_any); + pl_tiiit = s7_make_circular_signature(s7, 4, 5, s_any, s_integer, s_integer, s_integer, s_any); + pl_tiiib = s7_make_circular_signature(s7, 4, 5, s_any, s_integer, s_integer, s_integer, s_boolean); + pl_tiiiit = s7_make_circular_signature(s7, 5, 6, s_any, s_integer, s_integer, s_integer, s_integer, s_any); + pl_tirrir = s7_make_circular_signature(s7, 5, 6, s_any, s_integer, s_real, s_real, s_integer, s_real); + pl_tibiit = s7_make_circular_signature(s7, 5, 6, s_any, s_integer, s_boolean, s_integer, s_integer, s_any); + pl_tirriit = s7_make_circular_signature(s7, 6, 7, s_any, s_integer, s_real, s_real, s_integer, s_integer, s_any); + pl_tiiiiit = s7_make_circular_signature(s7, 6, 7, s_any, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_iiiiiit = s7_make_circular_signature(s7, 6, 7, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_iiiiitiiit = s7_make_circular_signature(s7, 9, 10, s_integer, s_integer, s_integer, s_integer, s_integer, s_any, s_integer, s_integer, s_integer, s_any); + pl_iiiiiiiit = s7_make_circular_signature(s7, 8, 9, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_iiiiiiiiiiit = s7_make_circular_signature(s7, 11, 12, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_iiiiiiit = s7_make_circular_signature(s7, 7, 8, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_iiiiiiiiiit = s7_make_circular_signature(s7, 10, 11, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_iiiiiiiiit = s7_make_circular_signature(s7, 9, 10, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_integer, s_any); + pl_prrrt = s7_make_circular_signature(s7, 4, 5, s_any, s_real, s_real, s_real, s_any); + pl_prrrrtttrrt = s7_make_circular_signature(s7, 10, 11, s_any, s_real, s_real, s_real, s_real, s_any, s_any, s_any, s_real, s_real, s_any); + pl_t = s7_make_circular_signature(s7, 0, 1, s_any); + pl_i = s7_make_circular_signature(s7, 0, 1, s_integer); + pl_tb = s7_make_circular_signature(s7, 1, 2, s_any, s_boolean); + pl_bt = s7_make_circular_signature(s7, 1, 2, s_boolean, s_any); + pl_pit = s7_make_circular_signature(s7, 2, 3, s_any, s_integer, s_any); + pl_piit = s7_make_circular_signature(s7, 3, 4, s_any, s_integer, s_integer, s_any); + pl_piiit = s7_make_circular_signature(s7, 4, 5, s_any, s_integer, s_integer, s_integer, s_any); pl_bi = s7_make_circular_signature(s7, 1, 2, s_boolean, s_integer); - pl_trrrrt = s7_make_circular_signature(s7, 5, 6, s_any, s_real, s_real, s_real, s_real, s_any); pl_tr = s7_make_circular_signature(s7, 1, 2, s_any, s_real); + pl_bit = s7_make_circular_signature(s7, 2, 3, s_boolean, s_integer, s_any); + pl_trrrrt = s7_make_circular_signature(s7, 5, 6, s_any, s_real, s_real, s_real, s_real, s_any); + pl_ttr = s7_make_circular_signature(s7, 2, 3, s_any, s_any, s_real); + pl_ttb = s7_make_circular_signature(s7, 2, 3, s_any, s_any, s_boolean); + pl_tti = s7_make_circular_signature(s7, 2, 3, s_any, s_any, s_integer); + pl_ttri = s7_make_circular_signature(s7, 3, 4, s_any, s_any, s_real, s_integer); + pl_ttit = s7_make_circular_signature(s7, 3, 4, s_any, s_any, s_integer, s_any); + pl_ttir = s7_make_circular_signature(s7, 3, 4, s_any, s_any, s_integer, s_real); + pl_ttiti = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_integer, s_any, s_integer); + pl_ttrri = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_real, s_real, s_integer); + pl_ttrrri = s7_make_circular_signature(s7, 5, 6, s_any, s_any, s_real, s_real, s_real, s_integer); + pl_ttrriir = s7_make_circular_signature(s7, 6, 7, s_any, s_any, s_real, s_real, s_integer, s_integer, s_real); + pl_ttititi = s7_make_circular_signature(s7, 6, 7, s_any, s_any, s_integer, s_any, s_integer, s_any, s_integer); + pl_ttititiiti = s7_make_circular_signature(s7, 9, 10, s_any, s_any, s_integer, s_any, s_integer, s_any, s_integer, s_integer, s_any, s_integer); #if USE_MOTIF + pl_pt = s7_make_circular_signature(s7, 1, 2, s_any, s_any); + pl_pttit = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_any, s_integer, s_any); pl_tttti = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_any, s_any, s_integer); pl_ttttb = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_any, s_any, s_boolean); - pl_pttit = s7_make_circular_signature(s7, 4, 5, s_any, s_any, s_any, s_integer, s_any); - pl_pt = s7_make_circular_signature(s7, 1, 2, s_any, s_any); #endif #endif @@ -5736,7 +5736,7 @@ void Init_libgl(void) define_integers(); define_functions(); Xen_provide_feature("gl"); - Xen_define("gl-version", C_string_to_Xen_string("08-Sep-17")); + Xen_define("gl-version", C_string_to_Xen_string("09-Oct-17")); gl_already_inited = true; } } -- cgit v1.2.3