* uppercase manglednames

compiler/hcgdata.pas

@@ -755,8 +755,8 @@ implementation
 
     function  gintfgetvtbllabelname(_class: pobjectdef; intfindex: integer): string;
       begin
-        gintfgetvtbllabelname:='_$$_'+_class^.objname^+'_$$_'+
-          _class^.implementedinterfaces^.interfaces(intfindex)^.objname^+'_$$_VTBL';
+        gintfgetvtbllabelname:='_$$_'+upper(_class^.objname^)+'_$$_'+
+          upper(_class^.implementedinterfaces^.interfaces(intfindex)^.objname^)+'_$$_VTBL';
       end;
 
     procedure gintfcreatevtbl(_class: pobjectdef; intfindex: integer; rawdata,rawcode: paasmoutput);
@@ -773,7 +773,7 @@ implementation
         count:=implintf^.implproccount(intfindex);
         for i:=1 to count do
           begin
-            tmps:=implintf^.implprocs(intfindex,i)^.mangledname+'_$$_'+curintf^.objname^;
+            tmps:=implintf^.implprocs(intfindex,i)^.mangledname+'_$$_'+upper(curintf^.objname^);
             { create wrapper code }
             cgintfwrapper(rawcode,implintf^.implprocs(intfindex,i),tmps,implintf^.ioffsets(intfindex)^);
             { create reference }
@@ -1046,7 +1046,7 @@ implementation
        if c^.owner^.name=nil then
          s1:=''
        else
-         s1:=c^.owner^.name^;
+         s1:=upper(c^.owner^.name^);
        if c^.objname=nil then
          s2:=''
        else
@@ -1073,7 +1073,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.11  2000-11-04 17:31:00  florian
+  Revision 1.12  2000-11-06 23:13:53  peter
+    * uppercase manglednames
+
+  Revision 1.11  2000/11/04 17:31:00  florian
     * fixed some problems of previous commit
 
   Revision 1.10  2000/11/04 14:25:19  florian

compiler/symdef.pas

@@ -4414,7 +4414,7 @@ Const local_symtable_index : longint = $8001;
         if owner^.name=nil then
           s1:=''
         else
-          s1:=owner^.name^;
+          s1:=upper(owner^.name^);
         if objname=nil then
           s2:=''
         else
@@ -4430,7 +4430,7 @@ Const local_symtable_index : longint = $8001;
        if owner^.name=nil then
          s1:=''
        else
-         s1:=owner^.name^;
+         s1:=upper(owner^.name^);
        if objname=nil then
          s2:=''
        else
@@ -5521,7 +5521,10 @@ Const local_symtable_index : longint = $8001;
 end.
 {
   $Log$
-  Revision 1.7  2000-11-06 23:11:38  florian
+  Revision 1.8  2000-11-06 23:13:53  peter
+    * uppercase manglednames
+
+  Revision 1.7  2000/11/06 23:11:38  florian
     * writeln debugger uninstalled ;)
 
   Revision 1.6  2000/11/06 23:05:52  florian

compiler/symsym.pas

@@ -884,7 +884,7 @@ implementation
      if assigned(owner) then
       begin
         if (owner^.symtabletype = objectsymtable) then
-         obj := owner^.name^+'__'+name;
+         obj := upper(owner^.name^)+'__'+name;
         { this code was correct only as long as the local symboltable
           of the parent had the same name as the function
           but this is no true anymore !! PM
@@ -1393,13 +1393,13 @@ implementation
          case owner^.symtabletype of
            staticsymtable :
              if (cs_create_smart in aktmoduleswitches) then
-               prefix:='_'+owner^.name^+'$$$_'
+               prefix:='_'+upper(owner^.name^)+'$$$_'
              else
                prefix:='_';
            unitsymtable,
            globalsymtable :
              prefix:=
-              'U_'+owner^.name^+'_';
+              'U_'+upper(owner^.name^)+'_';
            else
              Message(sym_e_invalid_call_tvarsymmangledname);
          end;
@@ -1708,7 +1708,7 @@ implementation
           (sp_static in symoptions) then
          begin
             if (cs_gdb_gsym in aktglobalswitches) then st := 'G'+st else st := 'S'+st;
-            stabstring := strpnew('"'+owner^.name^+'__'+name+':'+st+
+            stabstring := strpnew('"'+upper(owner^.name^)+'__'+name+':'+st+
                      '",'+
                      tostr(N_LCSYM)+',0,'+tostr(fileinfo.line)+','+mangledname);
          end
@@ -2464,7 +2464,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.2  2000-11-01 23:04:38  peter
+  Revision 1.3  2000-11-06 23:13:53  peter
+    * uppercase manglednames
+
+  Revision 1.2  2000/11/01 23:04:38  peter
     * tprocdef.fullprocname added for better casesensitve writing of
       procedures