* resource ansistrings now use aint for len and ref. count as well

compiler/cresstr.pas

@@ -155,8 +155,8 @@ procedure TResourceStrings.CreateResourceStringList;
             objectlibrary.getdatalabel(l1);
             resourcestringlist.concat(tai_const.create_sym(l1));
             consts.concat(tai_align.Create(const_align(sizeof(aint))));
-            consts.concat(tai_const.create_32bit(-1));
-            consts.concat(tai_const.create_32bit(len));
+            consts.concat(tai_const.create_aint(-1));
+            consts.concat(tai_const.create_aint(len));
             consts.concat(tai_label.create(l1));
             getmem(s,len+1);
             move(Value^,s^,len);
@@ -172,8 +172,8 @@ procedure TResourceStrings.CreateResourceStringList;
        L:=Length(Name);
        resourcestringlist.concat(tai_const.create_sym(l1));
        consts.concat(tai_align.Create(const_align(sizeof(aint))));
-       consts.concat(tai_const.create_32bit(-1));
-       consts.concat(tai_const.create_32bit(l));
+       consts.concat(tai_const.create_aint(-1));
+       consts.concat(tai_const.create_aint(l));
        consts.concat(tai_label.create(l1));
        getmem(s,l+1);
        move(Name[1],s^,l);
@@ -293,7 +293,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.26  2004-07-12 17:58:19  peter
+  Revision 1.27  2004-11-01 20:22:04  florian
+    * resource ansistrings now use aint for len and ref. count as well
+
+  Revision 1.26  2004/07/12 17:58:19  peter
     * remove maxlen field from ansistring/widestrings
 
   Revision 1.25  2004/06/20 08:55:29  florian