Browse Source

* fixed rtti for chars

florian 25 years ago
parent
commit
ea7ed6fd3b
1 changed files with 7 additions and 4 deletions
  1. 7 4
      compiler/symdef.pas

+ 7 - 4
compiler/symdef.pas

@@ -1819,12 +1819,12 @@ implementation
             end;
           uchar:
             begin
-              rttilist^.concat(new(pai_const,init_8bit(tkWChar)));
+              rttilist^.concat(new(pai_const,init_8bit(tkChar)));
               dointeger;
             end;
           uwidechar:
             begin
-              rttilist^.concat(new(pai_const,init_8bit(tkChar)));
+              rttilist^.concat(new(pai_const,init_8bit(tkWChar)));
               dointeger;
             end;
           else
@@ -5545,7 +5545,10 @@ Const local_symtable_index : longint = $8001;
 end.
 {
   $Log$
-  Revision 1.12  2000-11-19 16:23:35  florian
+  Revision 1.13  2000-11-26 18:09:40  florian
+    * fixed rtti for chars
+
+  Revision 1.12  2000/11/19 16:23:35  florian
   *** empty log message ***
 
   Revision 1.11  2000/11/12 23:24:12  florian
@@ -5582,4 +5585,4 @@ end.
   Revision 1.1  2000/10/31 22:02:52  peter
     * symtable splitted, no real code changes
 
-}
+}