Rob,
The Inline_Stack_Vars needs to be at the top of your function along with the
other declarations. That's because the macro expands into variable
declarations. I will document this better in the next release.
Cheers, Brian
On 20/01/02 13:54 +1100, Sisyphus wrote:
> Hi,
> The code:
> #!perl -w
> use Inline C => <<'END_OF_C_CODE';
> void dumb ( int x, int y) {
>
> SV* c;
> SV* d;
>
> c = x * y;
> d = x + y;
>
> printf("%d\n", c);
> printf("%d\n", d);
>
> Inline_Stack_Vars;
> Inline_Stack_Reset;
> Inline_Stack_Push(c);
> Inline_Stack_Push(d);
> Inline_Stack_Done;
> /* Inline_Stack_Return(2); */
>
> }
>
> END_OF_C_CODE
>
> dumb(4, 28);
>
> ###################################
>
> Can someone show me how to write that in such a way that it will build ?
>
> All I'm trying to do is take 2 integers, and push their sum and their
> product onto the stack. That achieved, I would then like the function to
> return the values that are on the stack........ but first things first, I
> can't even get them onto the stack !
>
> If I comment out all of the 'Inline_Stack_' commands it builds ok and runs
> as expected. But the way it is, 'out.make' reports the errors listed below.
>
> I suspect that if I could get around the problem regarding 'levels of
> indirection', then I would have my answer - but I haven't been able to
> achieve this yet.
>
> Cheers,
> Rob
> ----------------------------------------------------
> warning C4047: '=' : 'struct sv *' differs in levels of indirection from
> 'int '
> warning C4047: '=' : 'struct sv *' differs in levels of indirection from
> 'int '
> error C2143: syntax error : missing ';' before 'type'
> error C2143: syntax error : missing ';' before 'type'
> error C2275: 'I32' : illegal use of this type as an expression
> D:\Perl\lib\CORE\handy.h(125) : see declaration of 'I32'
> error C2146: syntax error : missing ';' before identifier 'ax'
> error C2065: 'ax' : undeclared identifier
> error C2065: 'mark' : undeclared identifier
> error C2113: pointer can only be subtracted from another pointer
> error C2275: 'I32' : illegal use of this type as an expression
> D:\Perl\lib\CORE\handy.h(125) : see declaration of 'I32'
> error C2146: syntax error : missing ';' before identifier 'items'
> error C2065: 'items' : undeclared identifier
> error C2065: 'sp' : undeclared identifier
> warning C4047: '<' : 'struct sv ** ' differs in levels of indirection from
> 'const int '
> warning C4047: 'function' : 'struct sv ** ' differs in levels of indirection
> from 'int '
> warning C4024: 'Perl_stack_grow' : different types for formal and actual
> parameter 2
> warning C4047: 'function' : 'struct sv ** ' differs in levels of indirection
> from 'int '
> warning C4024: 'Perl_stack_grow' : different types for formal and actual
> parameter 3
> warning C4047: '=' : 'int ' differs in levels of indirection from 'struct sv
> ** '
> error C2100: illegal indirection
> warning C4047: '=' : 'int ' differs in levels of indirection from 'struct sv
> *'
> error C2106: '=' : left operand must be l-value
> warning C4047: '<' : 'struct sv ** ' differs in levels of indirection from
> 'const int '
> warning C4047: 'function' : 'struct sv ** ' differs in levels of indirection
> from 'int '
> warning C4024: 'Perl_stack_grow' : different types for formal and actual
> parameter 2
> warning C4047: 'function' : 'struct sv ** ' differs in levels of indirection
> from 'int '
> warning C4024: 'Perl_stack_grow' : different types for formal and actual
> parameter 3
> warning C4047: '=' : 'int ' differs in levels of indirection from 'struct sv
> ** '
> error C2100: illegal indirection
> warning C4047: '=' : 'int ' differs in levels of indirection from 'struct sv
> *'
> error C2106: '=' : left operand must be l-value
> warning C4047: '=' : 'struct sv ** ' differs in levels of indirection from
> 'int '
> NMAKE : fatal error U1077: 'cl' : return code '0x2'
> Stop.
