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 vq_extnd

Browse Source
This commit is contained in:
Thorsten Otto 2022-02-07 14:12:02 +01:00 committed by Charlie Balogh
parent 0e4e4b89ab
commit 13ed9a2277
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2167,9 +2167,9 @@ begin
pb.intin := @_intin;
pb.ptsin := @_ptsin;
// work_out[0..44] = intout[0..44];
pb.intout := @workout;
pb.intout := PVDIIntOut(workout);
// work_out[45..56] = ptsout[0..11];
pb.ptsout := @workout[45];
pb.ptsout := PVDIPtsOut(@workout[45]);
_intin[0]:=owflag;