Explorar o código

* enumeration type names are now written in lowercase (rtti)

florian %!s(int64=26) %!d(string=hai) anos
pai
achega
848c61018b
Modificáronse 1 ficheiros con 5 adicións e 2 borrados
  1. 5 2
      compiler/symdef.inc

+ 5 - 2
compiler/symdef.inc

@@ -888,7 +888,7 @@
          while assigned(hp) do
          while assigned(hp) do
            begin
            begin
               rttilist^.concat(new(pai_const,init_8bit(length(hp^.name))));
               rttilist^.concat(new(pai_const,init_8bit(length(hp^.name))));
-              rttilist^.concat(new(pai_string,init(hp^.name)));
+              rttilist^.concat(new(pai_string,init(globals.lower(hp^.name))));
               hp:=hp^.nextenum;
               hp:=hp^.nextenum;
            end;
            end;
          rttilist^.concat(new(pai_const,init_8bit(0)));
          rttilist^.concat(new(pai_const,init_8bit(0)));
@@ -3460,7 +3460,10 @@ Const local_symtable_index : longint = $8001;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.110  1999-05-06 09:05:28  peter
+  Revision 1.111  1999-05-07 11:06:37  florian
+    * enumeration type names are now written in lowercase (rtti)
+
+  Revision 1.110  1999/05/06 09:05:28  peter
     * generic write_float and str_float
     * generic write_float and str_float
     * fixed constant float conversions
     * fixed constant float conversions