Thorsten Otto преди 3 години
родител
ревизия
7f33dc18d0
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      packages/tosunits/src/vdi.pas

+ 1 - 1
packages/tosunits/src/vdi.pas

@@ -2941,7 +2941,7 @@ var len: longint;
 begin
 begin
   len:=string_to_vdi(str, @_intin[0]);
   len:=string_to_vdi(str, @_intin[0]);
   _ptsin[0]:=x;
   _ptsin[0]:=x;
-  _ptsin[0]:=y;
+  _ptsin[1]:=y;
   _contrl[0]:=241;
   _contrl[0]:=241;
   _contrl[1]:=1;
   _contrl[1]:=1;
   _contrl[3]:=len;
   _contrl[3]:=len;