浏览代码

* Fixed minor bug in Tenumdef.stabstring

daniel 21 年之前
父节点
当前提交
efc644e349
共有 1 个文件被更改,包括 6 次插入3 次删除
  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