first cut of C extensions

1 files changed, 13 insertions, 0 deletions

diff --git a/src/resolve.cc b/src/resolve.cc
index 5f8bfaa4..90a35b60 100644
--- a/src/resolve.cc
+++ b/src/resolve.cc
@@ -780,6 +780,16 @@ void Compiler::resolveFunction( Function *func )
 	block->resolve( this );
 }
 
+void Compiler::resolveInHost( Function *func )
+{
+	if ( func->typeRef != 0 ) 
+		func->typeRef->resolveType( this );
+
+	for ( ParameterList::Iter param = *func->paramList; param.lte(); param++ )
+		param->typeRef->resolveType( this );
+}
+
+
 void Compiler::resolvePreEof( TokenRegion *region )
 {
 	CodeBlock *block = region->preEofBlock;
@@ -810,6 +820,9 @@ void Compiler::resolveParseTree()
 	for ( FunctionList::Iter f = functionList; f.lte(); f++ )
 		resolveFunction( f );
 
+	for ( FunctionList::Iter f = inHostList; f.lte(); f++ )
+		resolveInHost( f );
+
 	/* Compile the reduction code. */
 	for ( DefList::Iter prod = prodList; prod.lte(); prod++ ) {
 		if ( prod->redBlock != 0 )