[40061] trunk/base/src

[toby at macports.org]

Revision: 40061
          http://trac.macports.org/changeset/40061
Author:   toby at macports.org
Date:     2008-09-18 20:26:27 -0700 (Thu, 18 Sep 2008)
Log Message:
-----------
more warning fixes

Modified Paths:
--------------
    trunk/base/src/pextlib1.0/readline.c
    trunk/base/src/registry2.0/entry.c

Modified: trunk/base/src/pextlib1.0/readline.c
===================================================================
--- trunk/base/src/pextlib1.0/readline.c	2008-09-19 03:20:22 UTC (rev 40060)
+++ trunk/base/src/pextlib1.0/readline.c	2008-09-19 03:26:27 UTC (rev 40061)
@@ -162,8 +162,10 @@
 {
 	char* action;
 	Tcl_Obj *tcl_result;
+#if HAVE_LIBREADLINE
 	int argbase;
 	int argcnt;
+#endif
 	
 	/* Get the action */
 	if (objc < 2) {
@@ -276,9 +278,11 @@
 int RLHistoryCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
 {
 	char* action = NULL;
+#if HAVE_LIBREADLINE
 	char* s = NULL;
 	int i = 0;
 	Tcl_Obj *tcl_result;
+#endif
 
 	if (objc < 2) {
 		Tcl_WrongNumArgs(interp, 1, objv, "action");

Modified: trunk/base/src/registry2.0/entry.c
===================================================================
--- trunk/base/src/registry2.0/entry.c	2008-09-19 03:20:22 UTC (rev 40060)
+++ trunk/base/src/registry2.0/entry.c	2008-09-19 03:26:27 UTC (rev 40061)
@@ -66,6 +66,7 @@
     entry->proc = NULL;
 }
 
+/*
 static int obj_to_entry(Tcl_Interp* interp, reg_entry** entry, Tcl_Obj* obj,
         reg_error* errPtr) {
     reg_entry* result = get_entry(interp, Tcl_GetString(obj), errPtr);
@@ -77,7 +78,6 @@
     }
 }
 
-/*
 static int list_obj_to_entry(Tcl_Interp* interp, reg_entry*** entries,
         const Tcl_Obj** objv, int objc, reg_error* errPtr) {
     return recast(interp, (cast_function*)obj_to_entry, NULL, (void***)entries,
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080918/cb4b63c9/attachment.html