Browse Source

* pwidechar support in array of const

peter 21 years ago
parent
commit
63532ef166
1 changed files with 6 additions and 1 deletions
  1. 6 1
      compiler/ncgld.pas

+ 6 - 1
compiler/ncgld.pas

@@ -829,6 +829,8 @@ implementation
                      begin
                      begin
                        if is_pchar(lt) then
                        if is_pchar(lt) then
                          vtype:=vtPChar
                          vtype:=vtPChar
+                       else if is_pwidechar(lt) then
+                         vtype:=vtPWideChar
                        else
                        else
                          vtype:=vtPointer;
                          vtype:=vtPointer;
                      end;
                      end;
@@ -959,7 +961,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.122  2004-08-15 13:30:18  florian
+  Revision 1.123  2004-09-13 20:33:41  peter
+    * pwidechar support in array of const
+
+  Revision 1.122  2004/08/15 13:30:18  florian
     * fixed alignment of variant records
     * fixed alignment of variant records
     * more alignment problems fixed
     * more alignment problems fixed