On Thu, Jan 26, 2017 at 12:15 AM, <[email protected]> wrote:
> Hi all,
>
> I have uploaded a new tarball. It fixes the small installation errors that
> were so far reported. It also improves bglmemrun that should now be able
> to detect automatically which library it should preload.
>
> We are getting closer...
The upcoming Fedora 26 is now using an upcoming glibc release, which
claims its version is 2.24.90. The latest bigloo tarball fails to
build like so:
Clib/cresolv.c: In function 'nstype':
Clib/cresolv.c:86:45: error: 'ns_t_zxfr' undeclared (first use in this
function); did you mean 'ns_t_axfr'?
if( !strcmp( n, "ns_t_zxfr" ) ) { return ns_t_zxfr; }
^~~~~~~~~
The elements of enum__ns_type have changed quite a bit. I'll attach a
patch that supplies all of the new names, and drops the now invalid
ns_t_zxfr name, but that is of course wrong for glibc 2.24 and
earlier. I don't know how you're supposed to tell which names are
available. Perhaps a configure test is necessary.
I'm also attaching a patch to fix all -Wformat warnings. Actually, it
doesn't fix one:
objs/avahi.c:2548:1: warning: missing sentinel in function call [-Wformat=]
avahi_entry_group_add_service(BgL_arg1594z00_172, AVAHI_IF_UNSPEC,
AVAHI_PROTO_UNSPEC, 0L, BgL_tmpz00_3382, BgL_auxz00_3384,
BgL_auxz00_3386, BgL_auxz00_3388, BgL_auxz00_3390,
BgL_arg1602z00_175); } }
Indeed, avahi_entry_group_add_service() takes a NULL sentinel as its
last argument.
Finally, gstreamer 0.10 is deprecated in Fedora. There is talk of
removing it entirely. See this thread:
https://lists.fedoraproject.org/archives/list/[email protected]/thread/HHPHRNYQJC73ZRDHEO7E7JPR47UQABAV/
Is anybody working on support for gstreamer 1.x in bigloo?
Regards,
--
Jerry James
http://www.jamezone.org/
--- runtime/Clib/cresolv.c.orig 2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/cresolv.c 2017-02-03 13:41:29.234793224 -0700
@@ -75,7 +75,37 @@ nstype( obj_t name ) {
if( !strcmp( n, "ns_t_dname" ) ) { return ns_t_dname; }
if( !strcmp( n, "ns_t_sink" ) ) { return ns_t_sink; }
if( !strcmp( n, "ns_t_opt" ) ) { return ns_t_opt; }
- // if( !strcmp( n, "ns_t_apl" ) ) { return ns_t_apl; }
+ if( !strcmp( n, "ns_t_apl" ) ) { return ns_t_apl; }
+ if( !strcmp( n, "ns_t_ds" ) ) { return ns_t_ds; }
+ if( !strcmp( n, "ns_t_sshfp" ) ) { return ns_t_sshfp; }
+ if( !strcmp( n, "ns_t_ipseckey" ) ) { return ns_t_ipseckey; }
+ if( !strcmp( n, "ns_t_rrsig" ) ) { return ns_t_rrsig; }
+ if( !strcmp( n, "ns_t_nsec" ) ) { return ns_t_nsec; }
+ if( !strcmp( n, "ns_t_dnskey" ) ) { return ns_t_dnskey; }
+ if( !strcmp( n, "ns_t_dhcid" ) ) { return ns_t_dhcid; }
+ if( !strcmp( n, "ns_t_nsec3" ) ) { return ns_t_nsec3; }
+ if( !strcmp( n, "ns_t_nsec3param" ) ) { return ns_t_nsec3param; }
+ if( !strcmp( n, "ns_t_tlsa" ) ) { return ns_t_tlsa; }
+ if( !strcmp( n, "ns_t_smimea" ) ) { return ns_t_smimea; }
+ if( !strcmp( n, "ns_t_hip" ) ) { return ns_t_hip; }
+ if( !strcmp( n, "ns_t_ninfo" ) ) { return ns_t_ninfo; }
+ if( !strcmp( n, "ns_t_rkey" ) ) { return ns_t_rkey; }
+ if( !strcmp( n, "ns_t_talink" ) ) { return ns_t_talink; }
+ if( !strcmp( n, "ns_t_cds" ) ) { return ns_t_cds; }
+ if( !strcmp( n, "ns_t_cdnskey" ) ) { return ns_t_cdnskey; }
+ if( !strcmp( n, "ns_t_openpgpkey" ) ) { return ns_t_openpgpkey; }
+ if( !strcmp( n, "ns_t_csync" ) ) { return ns_t_csync; }
+ if( !strcmp( n, "ns_t_spf" ) ) { return ns_t_spf; }
+ if( !strcmp( n, "ns_t_uinfo" ) ) { return ns_t_uinfo; }
+ if( !strcmp( n, "ns_t_uid" ) ) { return ns_t_uid; }
+ if( !strcmp( n, "ns_t_gid" ) ) { return ns_t_gid; }
+ if( !strcmp( n, "ns_t_unspec" ) ) { return ns_t_unspec; }
+ if( !strcmp( n, "ns_t_nid" ) ) { return ns_t_nid; }
+ if( !strcmp( n, "ns_t_l32" ) ) { return ns_t_l32; }
+ if( !strcmp( n, "ns_t_l64" ) ) { return ns_t_l64; }
+ if( !strcmp( n, "ns_t_lp" ) ) { return ns_t_lp; }
+ if( !strcmp( n, "ns_t_eui48" ) ) { return ns_t_eui48; }
+ if( !strcmp( n, "ns_t_eui64" ) ) { return ns_t_eui64; }
if( !strcmp( n, "ns_t_tkey" ) ) { return ns_t_tkey; }
if( !strcmp( n, "ns_t_tsig" ) ) { return ns_t_tsig; }
if( !strcmp( n, "ns_t_ixfr" ) ) { return ns_t_ixfr; }
@@ -83,7 +113,11 @@ nstype( obj_t name ) {
if( !strcmp( n, "ns_t_mailb" ) ) { return ns_t_mailb; }
if( !strcmp( n, "ns_t_maila" ) ) { return ns_t_maila; }
if( !strcmp( n, "ns_t_any" ) ) { return ns_t_any; }
- if( !strcmp( n, "ns_t_zxfr" ) ) { return ns_t_zxfr; }
+ if( !strcmp( n, "ns_t_uri" ) ) { return ns_t_uri; }
+ if( !strcmp( n, "ns_t_caa" ) ) { return ns_t_caa; }
+ if( !strcmp( n, "ns_t_avc" ) ) { return ns_t_avc; }
+ if( !strcmp( n, "ns_t_ta" ) ) { return ns_t_ta; }
+ if( !strcmp( n, "ns_t_dlv" ) ) { return ns_t_dlv; }
C_SYSTEM_FAILURE( BGL_ERROR, "resolv", "bad query type", name );
}
--- api/alsa/src/Clib/bglalsa.c.orig 2017-01-26 00:13:38.000000000 -0700
+++ api/alsa/src/Clib/bglalsa.c 2017-02-03 14:21:06.748722838 -0700
@@ -384,7 +384,7 @@ loop:
__FILE__, __LINE__, snd_strerror( written ) );
written = 0;
} else if( written == -EPIPE ) {
- fprintf( stderr, "%s:%d snd_pcm_writei( ..., %d) %s (-EPIPE)\n",
+ fprintf( stderr, "%s:%d snd_pcm_writei( ..., %ld) %s (-EPIPE)\n",
__FILE__, __LINE__,
sz,
snd_strerror( written ) );
@@ -404,7 +404,7 @@ loop:
goto loop;
}
} else {
- fprintf( stderr, "%s:%d snd_pcm_writei (%d<0) -> %s\n",
+ fprintf( stderr, "%s:%d snd_pcm_writei (%ld<0) -> %s\n",
__FILE__, __LINE__, written, snd_strerror( written ) );
if( snd_pcm_state( pcm ) == SND_PCM_STATE_SUSPENDED ) {
--- api/avahi/src/Clib/bglavahi.c.orig 2017-01-26 00:13:38.000000000 -0700
+++ api/avahi/src/Clib/bglavahi.c 2017-02-03 14:23:56.964216331 -0700
@@ -479,7 +479,7 @@ bgl_avahi_string_list_to_list( AvahiStri
/*---------------------------------------------------------------------*/
AvahiStringList *
bgl_avahi_list_to_string_list( obj_t p ) {
- AvahiStringList *l = avahi_string_list_new( 0L );
+ AvahiStringList *l = avahi_string_list_new( "", NULL );
while( PAIRP( p ) ) {
l = avahi_string_list_add( l, BSTRING_TO_STRING( CAR( p ) ) );
--- api/ssl/src/C/bglssl.c.orig 2017-01-26 00:13:39.000000000 -0700
+++ api/ssl/src/C/bglssl.c 2017-02-03 14:19:11.030067182 -0700
@@ -3191,7 +3191,7 @@ bgl_ssl_cipher_init( ssl_cipher cipher,
NULL, NULL, NULL, 0 );
if( !EVP_CIPHER_CTX_set_key_length( ctx, key_len )) {
- fprintf( stderr, "node-crypto : Invalid key length %d\n", klen );
+ fprintf( stderr, "node-crypto : Invalid key length %ld\n", klen );
BGL_EVP_CIPHER_CTX_reset( ctx );
BGL_EVP_CIPHER_CTX_free( ctx );
return 0;
@@ -3240,7 +3240,7 @@ bgl_ssl_cipher_initiv( ssl_cipher cipher
if( EVP_CIPHER_iv_length( cipher->BgL_z42cipherz42 ) != ivlen &&
!(EVP_CIPHER_mode( cipher->BgL_z42cipherz42) == EVP_CIPH_ECB_MODE &&
ivlen == 0) ) {
- fprintf( stderr, "node-crypto : Invalid IV length %d\n", ivlen );
+ fprintf( stderr, "node-crypto : Invalid IV length %ld\n", ivlen );
return 0;
} else {
EVP_CIPHER_CTX *ctx = BGL_EVP_CIPHER_CTX_new();
@@ -3250,7 +3250,7 @@ bgl_ssl_cipher_initiv( ssl_cipher cipher
EVP_CipherInit_ex( ctx, cipher->BgL_z42cipherz42, NULL, NULL, NULL, enc );
if( !EVP_CIPHER_CTX_set_key_length( ctx, klen ) ) {
- fprintf( stderr, "node-crypto : Invalid key length %d\n", klen );
+ fprintf( stderr, "node-crypto : Invalid key length %ld\n", klen );
BGL_EVP_CIPHER_CTX_reset( ctx );
BGL_EVP_CIPHER_CTX_free( ctx );
return 0;
--- comptime/Cc/exec.c.orig 2017-01-26 00:14:33.000000000 -0700
+++ comptime/Cc/exec.c 2017-02-03 14:16:32.702538315 -0700
@@ -332,7 +332,7 @@ extern "C"
BSTRING_TO_STRING(BGl_za2shellza2z00zzengine_paramz00);
BgL_arg1033z00_37 =
execl(BgL_tmpz00_118, BgL_auxz00_120, BgL_auxz00_122,
- BgL_auxz00_124, ((long) 0));
+ BgL_auxz00_124, (void *) 0);
}
bgl_display_obj(BINT(BgL_arg1033z00_37), BgL_port1017z00_36);
}
--- runtime/Clib/cinit_obj.c.orig 2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/cinit_obj.c 2017-02-03 14:15:24.973739855 -0700
@@ -238,7 +238,7 @@ obj_t
__debug( char *lbl, obj_t o ) {
fprintf( stderr, "%s:%d %s o=%p\n", __FILE__, __LINE__, lbl, o );
if( BGL_HVECTORP( o ) ) {
- fprintf( stderr, " hvector=%d\n",BGL_HVECTOR_LENGTH( o ) );
+ fprintf( stderr, " hvector=%lu\n",BGL_HVECTOR_LENGTH( o ) );
} else if( REALP( o ) ) {
fprintf( stderr, " real\n" );
} else if( PAIRP( o ) ) {
@@ -251,7 +251,7 @@ __debug( char *lbl, obj_t o ) {
} else if( REALP( o ) ) {
fprintf( stderr, " real=%f\n",REAL_TO_DOUBLE( o ) );
} else if( POINTERP( o ) ) {
- fprintf( stderr, " PTRP=%d TYPE=%d\n", POINTERP( o ), TYPE( o ) );
+ fprintf( stderr, " PTRP=%d TYPE=%ld\n", POINTERP( o ), TYPE( o ) );
}
return o;
}
--- runtime/Clib/crgc.c.orig 2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/crgc.c 2017-02-03 13:26:17.112488612 -0700
@@ -896,7 +896,7 @@ int rgc_debug_port( obj_t port, char *ms
long bufpos = INPUT_PORT( port ).bufpos;
int eof = INPUT_PORT( port ).eof;
- fprintf( stderr, "RGC_DEBUG(%s) port=%p:%s mstart=%d mstop=%d forward=%d bpos=%d bsiz=%d %s\n", msg,
+ fprintf( stderr, "RGC_DEBUG(%s) port=%p:%s mstart=%ld mstop=%ld forward=%ld bpos=%ld bsiz=%ld %s\n", msg,
port, BSTRING_TO_STRING( INPUT_PORT_NAME( port ) ),
matchstart, matchstop, forward, bufpos, bufsiz,
eof ? "eof" : "" );
--- runtime/Clib/cwriter.c.orig 2017-01-26 00:13:39.000000000 -0700
+++ runtime/Clib/cwriter.c 2017-02-03 13:23:26.696990954 -0700
@@ -612,7 +612,7 @@ bgl_write_socket( obj_t o, obj_t op ) {
48 + (STRINGP( SOCKET( o ).hostname ) ?
STRING_LENGTH( SOCKET( o ).hostname ) :
sizeof( "localhost" )),
- "#<socket:%s.%d.%x>",
+ "#<socket:%s.%d.%lx>",
STRINGP( SOCKET( o ).hostname ) ?
BSTRING_TO_STRING( SOCKET( o ).hostname ) :
"localhost",
