@@ -274,23 +274,23 @@ void RESOLVEcleanup( void ) {
274274*/
275275Type TYPE_retrieve_aggregate ( Type t_select , Type t_agg ) {
276276 if ( TYPEis_select ( t_select ) ) {
277- // parse the underlying types
277+ /* parse the underlying types */
278278 LISTdo_links ( t_select -> u .type -> body -> list , link )
279- // the current underlying type
279+ /* the current underlying type */
280280 Type t = ( Type ) link -> data ;
281281 if ( TYPEis_select ( t ) ) {
282282 t_agg = TYPE_retrieve_aggregate ( t , t_agg );
283283 } else if ( TYPEis_aggregate ( t ) ) {
284284 if ( t_agg ) {
285285 if ( t_agg != t -> u .type -> body -> base ) {
286- // 2 underlying types do not have to the same base
286+ /* 2 underlying types do not have to the same base */
287287 return 0 ;
288288 }
289289 } else {
290290 t_agg = t -> u .type -> body -> base ;
291291 }
292292 } else {
293- // the underlying type is neither a select nor an aggregate
293+ /* the underlying type is neither a select nor an aggregate */
294294 return 0 ;
295295 }
296296
@@ -434,13 +434,13 @@ void EXP_resolve( Expression expr, Scope scope, Type typecheck ) {
434434 if ( !x ) {
435435 Scope enumscope = scope ;
436436 while ( 1 ) {
437- // look up locally, then go through the superscopes
437+ /* look up locally, then go through the superscopes */
438438 x = DICTlookup ( enumscope -> enum_table , expr -> symbol .name );
439439 if ( x ) {
440440 break ;
441441 }
442442 if ( enumscope -> type == OBJ_SCHEMA ) {
443- // if we get here, this means that we've looked through all scopes
443+ /* if we get here, this means that we've looked through all scopes */
444444 x = 0 ;
445445 break ;
446446 }
@@ -548,7 +548,7 @@ void EXP_resolve( Expression expr, Scope scope, Type typecheck ) {
548548 if ( TYPEis_aggregate ( expr -> return_type ) ) {
549549 t = expr -> u .query -> aggregate -> return_type -> u .type -> body -> base ;
550550 } else if ( TYPEis_select ( expr -> return_type ) ) {
551- // retrieve the common aggregate type
551+ /* retrieve the common aggregate type */
552552 t = TYPE_retrieve_aggregate ( expr -> return_type , 0 );
553553 if ( !t ) {
554554 ERRORreport_with_symbol ( ERROR_query_requires_aggregate , & expr -> u .query -> aggregate -> symbol );
@@ -851,7 +851,7 @@ void CASE_ITresolve( Case_Item item, Scope scope, Statement statement ) {
851851}
852852
853853void STMTresolve ( Statement statement , Scope scope ) {
854- // scope is always the function/procedure/rule from SCOPEresolve_expressions_statements();
854+ /* scope is always the function/procedure/rule from SCOPEresolve_expressions_statements(); */
855855 Scope proc ;
856856
857857 if ( !statement ) {
@@ -932,7 +932,7 @@ void STMTresolve( Statement statement, Scope scope ) {
932932 break ;
933933 case STMT_SKIP :
934934 case STMT_ESCAPE :
935- /* do nothing */ // WARNING should we really *not* do anything for these?
935+ /* do nothing */ /* WARNING should we really *not* do anything for these? */
936936 ;
937937 }
938938}
0 commit comments