aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Robillard <d@drobilla.net>2015-11-06 23:04:22 -0500
committerDavid Robillard <d@drobilla.net>2015-11-06 23:04:22 -0500
commitf4bccc3d667726fb2c9e70f55a0e83bd8fb65e70 (patch)
tree5a51e4f340a3121772c1b5bdcae99d6d4655df63
parentda4c2dc337252d21d1ceea3f32c61620a5b6e4f4 (diff)
downloadresp-f4bccc3d667726fb2c9e70f55a0e83bd8fb65e70.tar.gz
resp-f4bccc3d667726fb2c9e70f55a0e83bd8fb65e70.tar.bz2
resp-f4bccc3d667726fb2c9e70f55a0e83bd8fb65e70.zip
Fix undeclared function warnings
-rw-r--r--src/pprint.cpp6
-rw-r--r--src/repl.cpp2
-rw-r--r--src/resp.cpp2
-rw-r--r--src/resp.hpp2
4 files changed, 7 insertions, 5 deletions
diff --git a/src/pprint.cpp b/src/pprint.cpp
index cc6d316..56ce0e3 100644
--- a/src/pprint.cpp
+++ b/src/pprint.cpp
@@ -49,9 +49,9 @@ print_annotation(ostream& out, const AST* ast, unsigned indent, CEnv* cenv, bool
}
}
-ostream&
+static ostream&
print_list_one_line(ostream& out, const ATuple* tup, ATuple::const_iterator i,
- unsigned indent, CEnv* cenv, bool types, const ATuple* elemsT)
+ unsigned indent, CEnv* cenv, bool types, const ATuple* elemsT)
{
ATuple::const_iterator ti = elemsT ? elemsT->begin() : tup->end();
for (; i != tup->end(); ) {
@@ -86,7 +86,7 @@ print_list_one_line(ostream& out, const ATuple* tup, ATuple::const_iterator i,
* (elem three)
* (elem four)
*/
-ostream&
+static ostream&
print_list(ostream& out, const ATuple* tup, ATuple::const_iterator i,
unsigned indent, CEnv* cenv, bool types, bool split_pairs)
{
diff --git a/src/repl.cpp b/src/repl.cpp
index e808dd8..d3ad22e 100644
--- a/src/repl.cpp
+++ b/src/repl.cpp
@@ -85,7 +85,7 @@ callPrintCollect(CEnv& cenv, CFunc f, const AST* result, const AST* resultT, boo
Object::pool.collect(Object::pool.roots());
}
-const AST*
+static const AST*
compile(CEnv& cenv, const Code& parsed, Code& defs, bool& hasMain, const char* mainName)
{
// Convert to CPS (currently not used in the compilation process)
diff --git a/src/resp.cpp b/src/resp.cpp
index 704c864..7167227 100644
--- a/src/resp.cpp
+++ b/src/resp.cpp
@@ -61,7 +61,7 @@ is_primitive(const PEnv& penv, const AST* ast)
return penv.primitives.find(sym->sym()) != penv.primitives.end();
}
-int
+static int
print_usage(char* name, bool error)
{
ostream& os = error ? cerr : cout;
diff --git a/src/resp.hpp b/src/resp.hpp
index 90a0efa..9179b16 100644
--- a/src/resp.hpp
+++ b/src/resp.hpp
@@ -79,6 +79,8 @@ typedef void* CFunc; ///< Compiled function (opaque)
* Garbage Collection *
***************************************************************************/
+extern "C" { void* __resp_alloc(unsigned size); }
+
struct Object;
/// Type tag for an AST node (must be even and > 1 since LSb is used as mark)