develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
kjs
Date:
January 6, 2009 05:40
Subject:
[svn:parrot] r35032 - trunk/compilers/pirc/src
Message ID:
20090106134031.B9F15CB9F9@x12.develooper.com
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);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About