* H+ fixes

compiler/pdecl.pas

@@ -154,7 +154,15 @@ unit pdecl;
                            { value_str is disposed with p so I need a copy }
                            getmem(sp,p^.length+1);
                            move(p^.value_str^,sp^[1],p^.length);
-                           sp^[0]:=chr(p^.length);
+                           {$ifndef TP}
+                             {$ifopt H+}
+                               setlength(sp^,p^.length);
+                             {$else}
+                               sp^[0]:=chr(p^.length);
+                             {$endif}
+                           {$else}
+                             sp^[0]:=chr(p^.length);
+                           {$endif}
                            symtablestack^.insert(new(pconstsym,init(name,conststring,longint(sp),nil)));
                         end;
                       realconstn :
@@ -2089,7 +2097,10 @@ unit pdecl;
 end.
 {
   $Log$
-  Revision 1.83  1998-11-16 11:28:59  pierre
+  Revision 1.84  1998-11-17 10:40:15  peter
+    * H+ fixes
+
+  Revision 1.83  1998/11/16 11:28:59  pierre
     * stackcheck removed for i386_win32
     * exportlist does not crash at least !!
       (was need for tests dir !)z

compiler/ptconst.pas

@@ -431,7 +431,15 @@ unit ptconst;
                        len:=255
                       else
                        len:=p^.length;
-                      s[0]:=chr(len);
+                      {$ifndef TP}
+                        {$ifopt H+}
+                          setlength(s,len);
+                        {$else}
+                          s[0]:=chr(len);
+                        {$endif}
+                      {$else}
+                        s[0]:=chr(len);
+                      {$endif}
                       move(p^.value_str^,s[1],len);
                     end
                    else
@@ -623,7 +631,10 @@ unit ptconst;
 end.
 {
   $Log$
-  Revision 1.27  1998-11-16 12:12:23  peter
+  Revision 1.28  1998-11-17 10:40:16  peter
+    * H+ fixes
+
+  Revision 1.27  1998/11/16 12:12:23  peter
     - generate_pascii which is obsolete
 
   Revision 1.26  1998/11/10 17:53:06  peter