[svn:parrot] r35032 - trunk/compilers/pirc/src

[kjs]

Author: kjs
Date: Tue Jan  6 05:40:30 2009
New Revision: 35032

Modified:
   trunk/compilers/pirc/src/pircompunit.c
   trunk/compilers/pirc/src/pircompunit.h

Log:
[pirc] fix some warnings on linux; missing prototype and a type cast.

Modified: trunk/compilers/pirc/src/pircompunit.c
==============================================================================
--- trunk/compilers/pirc/src/pircompunit.c      (original)
+++ trunk/compilers/pirc/src/pircompunit.c      Tue Jan  6 05:40:30 2009
@@ -1308,7 +1308,7 @@
 PARROT_CANNOT_RETURN_NULL
 constdecl *
 new_named_const(lexer_state * const lexer, value_type type, char const * const 
name, ...) {
-    constdecl *c = pir_mem_allocate(lexer, sizeof (constdecl));
+    constdecl *c = (constdecl *)pir_mem_allocate(lexer, sizeof (constdecl));
     va_list arg_ptr;
     va_start(arg_ptr, name);
 

Modified: trunk/compilers/pirc/src/pircompunit.h
==============================================================================
--- trunk/compilers/pirc/src/pircompunit.h      (original)
+++ trunk/compilers/pirc/src/pircompunit.h      Tue Jan  6 05:40:30 2009
@@ -412,6 +412,7 @@
 expression *expr_from_key(struct lexer_state * const lexer, key * const k);
 expression *expr_from_string(struct lexer_state * const lexer, char const * 
const sval);
 expression *expr_from_int(struct lexer_state * const lexer, int ival);
+expression *expr_from_num(struct lexer_state * const lexer, double nval);
 
 /* functions for argument node creation and storing */
 argument *new_argument(struct lexer_state * const lexer, expression * const 
expr);