@@ -591,7 +591,7 @@ TYPEselect_inc_print_vars( const Type type, FILE * f, Linked_List dups ) {
591591 fprintf ( f , "\t// types in SELECT \n" );
592592 LISTdo ( SEL_TYPEget_items ( type ), t , Type )
593593 fprintf ( f , "\t// %s\t-- %s\n" ,
594- SEL_ITEMget_enumtype ( t ), FundamentalType ( t ) );
594+ SEL_ITEMget_enumtype ( t ), FundamentalType ( t , 0 ) );
595595 LISTod ;
596596
597597 LISTdo ( data_members , t , Type )
@@ -667,7 +667,7 @@ class.
667667*******************/
668668void
669669TYPEselect_inc_print ( const Type type , FILE * f ) {
670- char n [BUFSIZ ]; /* class name */
670+ char n [BUFSIZ ];
671671 char tdnm [BUFSIZ ]; /* TypeDescriptor name */
672672 String attrnm ;
673673 Linked_List dups ;
@@ -748,7 +748,7 @@ TYPEselect_inc_print( const Type type, FILE * f ) {
748748 /** if there are duplicate underlying types **/
749749 fprintf ( f , "\n\t// part 7\n" );
750750 fprintf ( f , "\tconst TypeDescriptor *"
751- "SetUnderlyingType ( const TypeDescriptor * td );\n" , n );
751+ "SetUnderlyingType ( const TypeDescriptor * td );\n" );
752752 } else {
753753 fprintf ( f , "\n\t// part 7 ... NONE\tonly for complex selects...\n" );
754754 }
@@ -1900,7 +1900,7 @@ TYPEselect_lib_print( const Type type, FILE * f, Schema schema ) {
19001900 LISTdo ( SEL_TYPEget_items ( type ), t , Type )
19011901 z = FirstToUpper ( TYPEget_name ( t ) );
19021902 fprintf ( f , "Logical %s::Is%s() const\n{\n" , n , z );
1903- fprintf ( f , " if( !exists() )\n" , n );
1903+ fprintf ( f , " if( !exists() )\n" );
19041904 fprintf ( f , " return LUnknown;\n" );
19051905 fprintf ( f , " if( CurrentUnderlyingType () == %s )\n" , TYPEtd_name ( t ) );
19061906 fprintf ( f , " return LTrue;\n" );
0 commit comments