paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 02:07:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

tosunits: fix a bug in vsl_width

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-08 14:54:36 +01:00 committed by Charlie Balogh
parent d06ab24389
commit 704a5a5081
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/tosunits/src/vdi.pas
View File

@ -1673,7 +1673,7 @@ end;
function vsl_width(handle, width: smallint): smallint;
begin
_ptsin[0]:=width;
_ptsin[0]:=0;
_ptsin[1]:=0;
_contrl[0]:=16;
_contrl[1]:=1;