absyntax_utils/search_type_code.c
changeset 233 3d23a68183d3
parent 217 f5dfadf5de54
child 235 ed66dc50f31a
equal deleted inserted replaced
232:29ab33687333 233:3d23a68183d3
 13982                     }
 13982                     }
 13983                     
 13983                     
 13984                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 13984                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 13985                     {
 13985                     {
 13986                 
 13986                 
 13987                         symbol_c * return_type_symbol;
 13987                         symbol_c * return_type_symbol = last_type_symbol;
 13988                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 13989                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 13990                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 13991                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 13992                         else
       
 13993                             return_type_symbol = last_type_symbol;
       
 13994                         return return_type_symbol;
 13988                         return return_type_symbol;
 13995                         
 13989                         
 13996                     }
 13990                     }
 13997                     
 13991                     
 13998                     
 13992                     
 14140                     }
 14134                     }
 14141                     
 14135                     
 14142                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14136                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14143                     {
 14137                     {
 14144                 
 14138                 
 14145                         symbol_c * return_type_symbol;
 14139                         symbol_c * return_type_symbol = last_type_symbol;
 14146                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 14147                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 14148                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 14149                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 14150                         else
       
 14151                             return_type_symbol = last_type_symbol;
       
 14152                         return return_type_symbol;
 14140                         return return_type_symbol;
 14153                         
 14141                         
 14154                     }
 14142                     }
 14155                     
 14143                     
 14156                     
 14144                     
 14236                     }
 14224                     }
 14237                     
 14225                     
 14238                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14226                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14239                     {
 14227                     {
 14240                 
 14228                 
 14241                         symbol_c * return_type_symbol;
 14229                         symbol_c * return_type_symbol = last_type_symbol;
 14242                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 14243                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 14244                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 14245                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 14246                         else
       
 14247                             return_type_symbol = last_type_symbol;
       
 14248                         return return_type_symbol;
 14230                         return return_type_symbol;
 14249                         
 14231                         
 14250                     }
 14232                     }
 14251                     
 14233                     
 14252                     
 14234                     
 14441                     }
 14423                     }
 14442                     
 14424                     
 14443                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14425                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14444                     {
 14426                     {
 14445                 
 14427                 
 14446                         symbol_c * return_type_symbol;
 14428                         symbol_c * return_type_symbol = last_type_symbol;
 14447                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 14448                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 14449                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 14450                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 14451                         else
       
 14452                             return_type_symbol = last_type_symbol;
       
 14453                         return return_type_symbol;
 14429                         return return_type_symbol;
 14454                         
 14430                         
 14455                     }
 14431                     }
 14456                     
 14432                     
 14457                     
 14433                     
 14537                     }
 14513                     }
 14538                     
 14514                     
 14539                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14515                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14540                     {
 14516                     {
 14541                 
 14517                 
 14542                         symbol_c * return_type_symbol;
 14518                         symbol_c * return_type_symbol = last_type_symbol;
 14543                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 14544                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 14545                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 14546                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 14547                         else
       
 14548                             return_type_symbol = last_type_symbol;
       
 14549                         return return_type_symbol;
 14519                         return return_type_symbol;
 14550                         
 14520                         
 14551                     }
 14521                     }
 14552                     
 14522                     
 14553                     
 14523                     
 14602                     }
 14572                     }
 14603                     
 14573                     
 14604                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14574                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 14605                     {
 14575                     {
 14606                 
 14576                 
 14607                         symbol_c * return_type_symbol;
 14577                         symbol_c * return_type_symbol = last_type_symbol;
 14608                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 14609                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 14610                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 14611                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 14612                         else
       
 14613                             return_type_symbol = last_type_symbol;
       
 14614                         return return_type_symbol;
 14578                         return return_type_symbol;
 14615                         
 14579                         
 14616                     }
 14580                     }
 14617                     
 14581                     
 14618                     
 14582                     
 14650             }
 14614             }
 14651             
 14615             
 14652             
 14616             
 14653             {
 14617             {
 14654         
 14618         
 14655                 symbol_c * return_type_symbol;
 14619                 symbol_c * return_type_symbol = last_type_symbol;
 14656                 if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 14657                     return_type_symbol = &search_constant_type_c::lint_type_name;
       
 14658                 else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 14659                     return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 14660                 else
       
 14661                     return_type_symbol = last_type_symbol;
       
 14662                 return return_type_symbol;
 14620                 return return_type_symbol;
 14663                 
 14621                 
 14664             }
 14622             }
 14665             
 14623             
 14666             
 14624             
 14945                     }
 14903                     }
 14946                     
 14904                     
 14947                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 14905                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 14948                     {
 14906                     {
 14949                 
 14907                 
 14950                         symbol_c * return_type_symbol;
 14908                         symbol_c * return_type_symbol = last_type_symbol;
 14951                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 14952                             return_type_symbol = &search_constant_type_c::lword_type_name;
       
 14953                         else
       
 14954                             return_type_symbol = last_type_symbol;
       
 14955                         return return_type_symbol;
 14909                         return return_type_symbol;
 14956                         
 14910                         
 14957                     }
 14911                     }
 14958                     
 14912                     
 14959                     
 14913                     
 15008                     }
 14962                     }
 15009                     
 14963                     
 15010                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 14964                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 15011                     {
 14965                     {
 15012                 
 14966                 
 15013                         symbol_c * return_type_symbol;
 14967                         symbol_c * return_type_symbol = last_type_symbol;
 15014                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 15015                             return_type_symbol = &search_constant_type_c::lword_type_name;
       
 15016                         else
       
 15017                             return_type_symbol = last_type_symbol;
       
 15018                         return return_type_symbol;
 14968                         return return_type_symbol;
 15019                         
 14969                         
 15020                     }
 14970                     }
 15021                     
 14971                     
 15022                     
 14972                     
 15071                     }
 15021                     }
 15072                     
 15022                     
 15073                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 15023                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 15074                     {
 15024                     {
 15075                 
 15025                 
 15076                         symbol_c * return_type_symbol;
 15026                         symbol_c * return_type_symbol = last_type_symbol;
 15077                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 15078                             return_type_symbol = &search_constant_type_c::lword_type_name;
       
 15079                         else
       
 15080                             return_type_symbol = last_type_symbol;
       
 15081                         return return_type_symbol;
 15027                         return return_type_symbol;
 15082                         
 15028                         
 15083                     }
 15029                     }
 15084                     
 15030                     
 15085                     
 15031                     
 15187                             }
 15133                             }
 15188                             
 15134                             
 15189                             
 15135                             
 15190                             {
 15136                             {
 15191                         
 15137                         
 15192                                 symbol_c * return_type_symbol;
 15138                                 symbol_c * return_type_symbol = last_type_symbol;
 15193                                 if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 15194                                     return_type_symbol = &search_constant_type_c::lint_type_name;
       
 15195                                 else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 15196                                     return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 15197                                 else
       
 15198                                     return_type_symbol = last_type_symbol;
       
 15199                                 return return_type_symbol;
 15139                                 return return_type_symbol;
 15200                                 
 15140                                 
 15201                             }
 15141                             }
 15202                             
 15142                             
 15203                             
 15143                             
 15258                     }
 15198                     }
 15259                     
 15199                     
 15260                     
 15200                     
 15261                     {
 15201                     {
 15262                 
 15202                 
 15263                         symbol_c * return_type_symbol;
 15203                         symbol_c * return_type_symbol = last_type_symbol;
 15264                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 15265                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 15266                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 15267                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 15268                         else
       
 15269                             return_type_symbol = last_type_symbol;
       
 15270                         return return_type_symbol;
 15204                         return return_type_symbol;
 15271                         
 15205                         
 15272                     }
 15206                     }
 15273                     
 15207                     
 15274                     
 15208                     
 15323                     }
 15257                     }
 15324                     
 15258                     
 15325                     
 15259                     
 15326                     {
 15260                     {
 15327                 
 15261                 
 15328                         symbol_c * return_type_symbol;
 15262                         symbol_c * return_type_symbol = last_type_symbol;
 15329                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 15330                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 15331                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 15332                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 15333                         else
       
 15334                             return_type_symbol = last_type_symbol;
       
 15335                         return return_type_symbol;
 15263                         return return_type_symbol;
 15336                         
 15264                         
 15337                     }
 15265                     }
 15338                     
 15266                     
 15339                     
 15267                     
 15487                             }
 15415                             }
 15488                             
 15416                             
 15489                             
 15417                             
 15490                             {
 15418                             {
 15491                         
 15419                         
 15492                                 symbol_c * return_type_symbol;
 15420                                 symbol_c * return_type_symbol = last_type_symbol;
 15493                                 if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 15494                                     return_type_symbol = &search_constant_type_c::lint_type_name;
       
 15495                                 else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 15496                                     return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 15497                                 else
       
 15498                                     return_type_symbol = last_type_symbol;
       
 15499                                 return return_type_symbol;
 15421                                 return return_type_symbol;
 15500                                 
 15422                                 
 15501                             }
 15423                             }
 15502                             
 15424                             
 15503                             
 15425                             
 26606                     }
 26528                     }
 26607                     
 26529                     
 26608                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 26530                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 26609                     {
 26531                     {
 26610                 
 26532                 
 26611                         symbol_c * return_type_symbol;
 26533                         symbol_c * return_type_symbol = last_type_symbol;
 26612                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 26613                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 26614                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 26615                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 26616                         else
       
 26617                             return_type_symbol = last_type_symbol;
       
 26618                         return return_type_symbol;
 26534                         return return_type_symbol;
 26619                         
 26535                         
 26620                     }
 26536                     }
 26621                     
 26537                     
 26622                     
 26538                     
 26754                     }
 26670                     }
 26755                     
 26671                     
 26756                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 26672                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 26757                     {
 26673                     {
 26758                 
 26674                 
 26759                         symbol_c * return_type_symbol;
 26675                         symbol_c * return_type_symbol = last_type_symbol;
 26760                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 26761                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 26762                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 26763                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 26764                         else
       
 26765                             return_type_symbol = last_type_symbol;
       
 26766                         return return_type_symbol;
 26676                         return return_type_symbol;
 26767                         
 26677                         
 26768                     }
 26678                     }
 26769                     
 26679                     
 26770                     
 26680                     
 26840                     }
 26750                     }
 26841                     
 26751                     
 26842                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 26752                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 26843                     {
 26753                     {
 26844                 
 26754                 
 26845                         symbol_c * return_type_symbol;
 26755                         symbol_c * return_type_symbol = last_type_symbol;
 26846                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 26847                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 26848                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 26849                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 26850                         else
       
 26851                             return_type_symbol = last_type_symbol;
       
 26852                         return return_type_symbol;
 26756                         return return_type_symbol;
 26853                         
 26757                         
 26854                     }
 26758                     }
 26855                     
 26759                     
 26856                     
 26760                     
 27035                     }
 26939                     }
 27036                     
 26940                     
 27037                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 26941                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 27038                     {
 26942                     {
 27039                 
 26943                 
 27040                         symbol_c * return_type_symbol;
 26944                         symbol_c * return_type_symbol = last_type_symbol;
 27041                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27042                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27043                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27044                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27045                         else
       
 27046                             return_type_symbol = last_type_symbol;
       
 27047                         return return_type_symbol;
 26945                         return return_type_symbol;
 27048                         
 26946                         
 27049                     }
 26947                     }
 27050                     
 26948                     
 27051                     
 26949                     
 27121                     }
 27019                     }
 27122                     
 27020                     
 27123                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 27021                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 27124                     {
 27022                     {
 27125                 
 27023                 
 27126                         symbol_c * return_type_symbol;
 27024                         symbol_c * return_type_symbol = last_type_symbol;
 27127                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27128                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27129                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27130                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27131                         else
       
 27132                             return_type_symbol = last_type_symbol;
       
 27133                         return return_type_symbol;
 27025                         return return_type_symbol;
 27134                         
 27026                         
 27135                     }
 27027                     }
 27136                     
 27028                     
 27137                     
 27029                     
 27176                     }
 27068                     }
 27177                     
 27069                     
 27178                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 27070                     if(IN2_type_symbol == NULL || search_expression_type->is_num_type(IN2_type_symbol))
 27179                     {
 27071                     {
 27180                 
 27072                 
 27181                         symbol_c * return_type_symbol;
 27073                         symbol_c * return_type_symbol = last_type_symbol;
 27182                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27183                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27184                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27185                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27186                         else
       
 27187                             return_type_symbol = last_type_symbol;
       
 27188                         return return_type_symbol;
 27074                         return return_type_symbol;
 27189                         
 27075                         
 27190                     }
 27076                     }
 27191                     
 27077                     
 27192                     
 27078                     
 27214             last_type_symbol = param_data_type;
 27100             last_type_symbol = param_data_type;
 27215             
 27101             
 27216             
 27102             
 27217             {
 27103             {
 27218         
 27104         
 27219                 symbol_c * return_type_symbol;
 27105                 symbol_c * return_type_symbol = last_type_symbol;
 27220                 if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27221                     return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27222                 else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27223                     return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27224                 else
       
 27225                     return_type_symbol = last_type_symbol;
       
 27226                 return return_type_symbol;
 27106                 return return_type_symbol;
 27227                 
 27107                 
 27228             }
 27108             }
 27229             
 27109             
 27230             
 27110             
 27459                     }
 27339                     }
 27460                     
 27340                     
 27461                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 27341                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 27462                     {
 27342                     {
 27463                 
 27343                 
 27464                         symbol_c * return_type_symbol;
 27344                         symbol_c * return_type_symbol = last_type_symbol;
 27465                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27466                             return_type_symbol = &search_constant_type_c::lword_type_name;
       
 27467                         else
       
 27468                             return_type_symbol = last_type_symbol;
       
 27469                         return return_type_symbol;
 27345                         return return_type_symbol;
 27470                         
 27346                         
 27471                     }
 27347                     }
 27472                     
 27348                     
 27473                     
 27349                     
 27512                     }
 27388                     }
 27513                     
 27389                     
 27514                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 27390                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 27515                     {
 27391                     {
 27516                 
 27392                 
 27517                         symbol_c * return_type_symbol;
 27393                         symbol_c * return_type_symbol = last_type_symbol;
 27518                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27519                             return_type_symbol = &search_constant_type_c::lword_type_name;
       
 27520                         else
       
 27521                             return_type_symbol = last_type_symbol;
       
 27522                         return return_type_symbol;
 27394                         return return_type_symbol;
 27523                         
 27395                         
 27524                     }
 27396                     }
 27525                     
 27397                     
 27526                     
 27398                     
 27565                     }
 27437                     }
 27566                     
 27438                     
 27567                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 27439                     if(IN2_type_symbol == NULL || search_expression_type->is_binary_type(IN2_type_symbol))
 27568                     {
 27440                     {
 27569                 
 27441                 
 27570                         symbol_c * return_type_symbol;
 27442                         symbol_c * return_type_symbol = last_type_symbol;
 27571                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27572                             return_type_symbol = &search_constant_type_c::lword_type_name;
       
 27573                         else
       
 27574                             return_type_symbol = last_type_symbol;
       
 27575                         return return_type_symbol;
 27443                         return return_type_symbol;
 27576                         
 27444                         
 27577                     }
 27445                     }
 27578                     
 27446                     
 27579                     
 27447                     
 27661                             }
 27529                             }
 27662                             
 27530                             
 27663                             
 27531                             
 27664                             {
 27532                             {
 27665                         
 27533                         
 27666                                 symbol_c * return_type_symbol;
 27534                                 symbol_c * return_type_symbol = last_type_symbol;
 27667                                 if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27668                                     return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27669                                 else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27670                                     return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27671                                 else
       
 27672                                     return_type_symbol = last_type_symbol;
       
 27673                                 return return_type_symbol;
 27535                                 return return_type_symbol;
 27674                                 
 27536                                 
 27675                             }
 27537                             }
 27676                             
 27538                             
 27677                             
 27539                             
 27722                     }
 27584                     }
 27723                     
 27585                     
 27724                     
 27586                     
 27725                     {
 27587                     {
 27726                 
 27588                 
 27727                         symbol_c * return_type_symbol;
 27589                         symbol_c * return_type_symbol = last_type_symbol;
 27728                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27729                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27730                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27731                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27732                         else
       
 27733                             return_type_symbol = last_type_symbol;
       
 27734                         return return_type_symbol;
 27590                         return return_type_symbol;
 27735                         
 27591                         
 27736                     }
 27592                     }
 27737                     
 27593                     
 27738                     
 27594                     
 27777                     }
 27633                     }
 27778                     
 27634                     
 27779                     
 27635                     
 27780                     {
 27636                     {
 27781                 
 27637                 
 27782                         symbol_c * return_type_symbol;
 27638                         symbol_c * return_type_symbol = last_type_symbol;
 27783                         if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27784                             return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27785                         else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27786                             return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27787                         else
       
 27788                             return_type_symbol = last_type_symbol;
       
 27789                         return return_type_symbol;
 27639                         return return_type_symbol;
 27790                         
 27640                         
 27791                     }
 27641                     }
 27792                     
 27642                     
 27793                     
 27643                     
 27921                             }
 27771                             }
 27922                             
 27772                             
 27923                             
 27773                             
 27924                             {
 27774                             {
 27925                         
 27775                         
 27926                                 symbol_c * return_type_symbol;
 27776                                 symbol_c * return_type_symbol = last_type_symbol;
 27927                                 if (search_expression_type->is_literal_integer_type(last_type_symbol))
       
 27928                                     return_type_symbol = &search_constant_type_c::lint_type_name;
       
 27929                                 else if (search_expression_type->is_literal_real_type(last_type_symbol))
       
 27930                                     return_type_symbol = &search_constant_type_c::lreal_type_name;
       
 27931                                 else
       
 27932                                     return_type_symbol = last_type_symbol;
       
 27933                                 return return_type_symbol;
 27777                                 return return_type_symbol;
 27934                                 
 27778                                 
 27935                             }
 27779                             }
 27936                             
 27780                             
 27937                             
 27781