← Back to branch summary

~ubuntu-branches/ubuntu/trusty/gnat-gps/trusty

« back to all changes in this revision

Viewing changes to kernel/src_info/ali_parser.adb

  • Committer: Package Import Robot
  • Author(s): Ludovic Brenta
  • Date: 2012-04-09 15:32:28 UTC
  • Revision ID: package-import@ubuntu.com-20120409153228-hug83kmnmawfsmf2
Tags: 5.0-8
http://bugs.debian.org/666958
* debian/patches/bug-653470.patch: remove.
* debian/rules (config.ads): set the Default_Charset variable.
  Compile all C source files with the same compiler as the Ada source
  files, i.e. gnatgcc instead of $(CC).
* debian/patches/bug-666958.patch: new.  Closes: #666958.

Show diffs side-by-side

added added

removed removed

Lines of Context:
kernel/src_info/ali_parser.adb
885
885
            begin
886
886
               if Case_Insensitive_Identifiers (Handler) then
887
887
                  Primitive := Get_Or_Create
888
 
                    (Name   => Get_Symbols (Handler.Db).Find (Capitalize (Name)),
 
888
                    (Name   => Get_Symbols (Handler.Db).Find
 
889
                       (Locale_To_UTF8 (Capitalize (Name))),
889
890
                     File   => Get_Predefined_File
890
891
                                 (Get_Database (LI), Handler),
891
892
                     Line   => Predefined_Line,
892
893
                     Column => Predefined_Column);
893
894
               else
894
895
                  Primitive := Get_Or_Create
895
 
                    (Name   => Get_Symbols (Handler.Db).Find (Name),
 
896
                    (Name   => Get_Symbols (Handler.Db).Find
 
897
                       (Locale_To_UTF8 (Name)),
896
898
                     File   => Get_Predefined_File
897
899
                                 (Get_Database (LI), Handler),
898
900
                     Line   => Predefined_Line,
1054
1056
               then
1055
1057
                  return Get_Or_Create
1056
1058
                    (Name => Get_Symbols (Handler.Db).Find
1057
 
                       (Get_Name_String (Xref_Entity.Table (Entity).Entity)),
 
1059
                       (Locale_To_UTF8
 
1060
                          (Get_Name_String
 
1061
                             (Xref_Entity.Table (Entity).Entity))),
1058
1062
                     File => Sfiles (File_Num).File,
1059
1063
                     Line => Integer (Line),
1060
1064
                     Column => Visible_Column_Type
1088
1092
                  then
1089
1093
                     return Get_Or_Create
1090
1094
                       (Name => Get_Symbols (Handler.Db).Find
1091
 
                          (Get_Name_String (Xref_Entity.Table (Entity).Entity)),
 
1095
                          (Locale_To_UTF8
 
1096
                             (Get_Name_String
 
1097
                                (Xref_Entity.Table (Entity).Entity))),
1092
1098
                        File =>
1093
1099
                          Sfiles (Xref_Section.Table (Sect).File_Num).File,
1094
1100
                        Line => Integer (Xref_Entity.Table (Entity).Line),
1193
1199
         begin
1194
1200
            if Case_Insensitive_Identifiers (Handler) then
1195
1201
               Parent := Get_Or_Create
1196
 
                 (Name   => Get_Symbols (Handler.Db).Find (Capitalize (Name)),
 
1202
                 (Name   => Get_Symbols (Handler.Db).Find
 
1203
                    (Locale_To_UTF8 (Capitalize (Name))),
1197
1204
                  File   => Get_Predefined_File (Get_Database (LI), Handler),
1198
1205
                  Line   => Predefined_Line,
1199
1206
                  Column => Predefined_Column);
1200
1207
            else
1201
1208
               Parent := Get_Or_Create
1202
 
                 (Name   => Get_Symbols (Handler.Db).Find (Name),
 
1209
                 (Name   => Get_Symbols (Handler.Db).Find
 
1210
                    (Locale_To_UTF8 (Name)),
1203
1211
                  File   => Get_Predefined_File (Get_Database (LI), Handler),
1204
1212
                  Line   => Predefined_Line,
1205
1213
                  Column => Predefined_Column);