New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
CUnion bug #5113
Comments
From @drforrSetting an int32 member of a CUnion (nested in a CStruct) to 0 from C This is a bit bizarre, but the files are below. I'm nesting a CUnion -- bug.pm6 -- constant ZERO = 0; class Inline::Scheme::Guile::AltType is repr('CUnion') { class Inline::Scheme::Guile::ConsCell is repr('CStruct') { class Inline::Scheme::Guile { sub run( Str $expression, method run( Str $expression ) { -- bug.c -- typedef enum { typedef struct { static void _walk_scm( SCM scm, cons_cell* result ) { // '#f' is not null, bool, false and only 1 value. // '#t' is not null, bool, not false, true and only 1 value. void* _run( void* expression ) { // Sigh, special-case void lists. cons_cell* result = malloc( sizeof( cons_cell ) * 2 ); _walk_scm( scm, result ); return result; void run( const char* expression, void (*unmarshal(void*)) ) { while( head->type != ZERO ) { free(cells); -- t/00-core.t -- use v6; use NativeCall; plan 3; use Inline::Scheme::Guile; my $g = Inline::Scheme::Guile.new; is-deeply [ $g.run( q{#f} ) ], [ False ], q{value (#f)}; # This should |
From @ninerThis is probably fixed by MoarVM/MoarVM@d912378 Can you please re-test with current rakudo? |
The RT System itself - Status changed from 'new' to 'open' |
Migrated from rt.perl.org#127460 (status was 'open')
Searchable as RT127460$
The text was updated successfully, but these errors were encountered: