浏览代码

* don't lowercase enumnames

peter 22 年之前
父节点
当前提交
6b3c925f64
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/symdef.pas

+ 5 - 2
compiler/symdef.pas

@@ -1731,7 +1731,7 @@ implementation
          while assigned(hp) do
            begin
               rttiList.concat(Tai_const.Create_8bit(length(hp.name)));
-              rttiList.concat(Tai_string.Create(lower(hp.name)));
+              rttiList.concat(Tai_string.Create(hp.name));
               hp:=hp.nextenum;
            end;
          rttiList.concat(Tai_const.Create_8bit(0));
@@ -6152,7 +6152,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.195  2003-12-24 01:47:22  florian
+  Revision 1.196  2003-12-24 20:51:11  peter
+    * don't lowercase enumnames
+
+  Revision 1.195  2003/12/24 01:47:22  florian
     * first fixes to compile the x86-64 system unit
 
   Revision 1.194  2003/12/21 19:42:43  florian