Browse Source

* Fixed minor bug in Tenumdef.stabstring

daniel 21 years ago
parent
commit
efc644e349
1 changed files with 6 additions and 3 deletions
  1. 6 3
      compiler/symdef.pas

+ 6 - 3
compiler/symdef.pas

@@ -1696,8 +1696,8 @@ implementation
           inc(stl,length(s));
           inc(stl,length(s));
           p:=p.nextenum;
           p:=p.nextenum;
         end;
         end;
-      st[stl]:=';';
-      st[stl+1]:=#0;
+      st[stl-1]:=';';
+      st[stl]:=#0;
       reallocmem(st,stl+1);
       reallocmem(st,stl+1);
       stabstring:=st;
       stabstring:=st;
     end;
     end;
@@ -6118,7 +6118,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.220  2004-02-19 17:07:42  florian
+  Revision 1.221  2004-02-22 18:49:03  daniel
+    * Fixed minor bug in Tenumdef.stabstring
+
+  Revision 1.220  2004/02/19 17:07:42  florian
     * fixed arg. area calculation
     * fixed arg. area calculation
 
 
   Revision 1.219  2004/02/17 15:57:49  peter
   Revision 1.219  2004/02/17 15:57:49  peter