@@ -28,6 +28,7 @@ void EXPRop1_out( struct Op_Subexpression * eo, char * opcode, int paren );
2828void EXPRop2__out ( struct Op_Subexpression * eo , char * opcode , int paren , int pad , int previous_op );
2929void EXPR__out ( Expression expr , int paren , int previous_op );
3030void EXPRbounds_out ( TypeBody tb );
31+ int EXPRlength ( Expression e );
3132void FUNC_out ( Function fn , int level );
3233void PROC_out ( Procedure p , int level );
3334void REFout ( Dictionary refdict , Linked_List reflist , char * type , int level );
@@ -38,6 +39,7 @@ void SCOPEentities_out( Scope s, int level );
3839void SCOPElocals_out ( Scope s , int level );
3940void SCOPEtypes_out ( Scope s , int level );
4041void STMT_out ( Statement s , int level );
42+ void STMTlist_out ( Linked_List stmts , int level );
4143void TYPE_out ( Type t , int level );
4244void TYPE_head_out ( Type t , int level );
4345void TYPE_body_out ( Type t , int level );
@@ -569,7 +571,7 @@ SCOPEalgs_out( Scope s, int level ) {
569571 SCOPEprocs_out ( s , level );
570572}
571573
572- static
574+ static int
573575min ( int a , int b , int c ) {
574576 if ( a < b ) {
575577 return ( ( a < c ) ? a : c );
@@ -1015,6 +1017,7 @@ STMT_out( Statement s, int level ) {
10151017 }
10161018}
10171019
1020+ void
10181021STMTlist_out ( Linked_List stmts , int level ) {
10191022 LISTdo ( stmts , stmt , Statement )
10201023 STMT_out ( stmt , level );
@@ -1956,8 +1959,8 @@ EXPRlength( Expression e ) {
19561959/* Interfacing Definitions */
19571960
19581961#define BIGBUFSIZ 100000
1959- static old_curpos ;
1960- static old_lineno ;
1962+ static int old_curpos ;
1963+ static int old_lineno ;
19611964static bool string_func_in_use = false;
19621965static bool file_func_in_use = false;
19631966
0 commit comments