Heck! Leo is getting :)

 D:\Perl\5.6.1\bin\MSWin32-x86-multi-thread\perl.exe pmc2c.pl env.pmc
Scanning D:/build/parrot/classes/env.pmc...

ologo -Od -MD -Zi -DDEBUGGING -DWIN32 -D_CONSOLE -DNO_STRICT      -I../inclu
de -Foenv.obj -c env.c
env.c
env.pmc(29) : warning C4047: 'return' : 'struct parrot_string_t *' differs
in levels of indirection from 'int '
env.pmc(31) : warning C4047: 'return' : 'struct parrot_string_t *' differs
in levels of indirection from 'int '
env.pmc(34) : warning C4047: 'return' : 'struct parrot_string_t *' differs
in levels of indirection from 'int '

The patch below corrects the typo.

Index: env.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/env.pmc,v
retrieving revision 1.5
diff -r1.5 env.pmc
29c29
< return string_from_c_string(interpreter, val, 0);
---
> return string_from_cstring(interpreter, val, 0);
31c31
< return string_from_c_string(interpreter, "", 0);
---
> return string_from_cstring(interpreter, "", 0);
34c34
< return string_from_c_string(interpreter, "", 0);
---
> return string_from_cstring(interpreter, "", 0);

Reply via email to