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

tosunits: remove some unused locals

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

3
packages/tosunits/src/gem.pas
View File

@ -336,21 +336,18 @@ end;
procedure v_opnwk(const WorkIn: workin_Array; out handle: smallint; out WorkOut: workout_Array); procedure v_opnwk(const WorkIn: workin_Array; out handle: smallint; out WorkOut: workout_Array);
var pb: TVDIPB;
begin begin
vdi.v_opnwk(@workin[0], @handle, @workout[0]); vdi.v_opnwk(@workin[0], @handle, @workout[0]);
end; end;
procedure v_opnvwk(const WorkIn: workin_Array; var handle: smallint; out WorkOut: workout_Array); procedure v_opnvwk(const WorkIn: workin_Array; var handle: smallint; out WorkOut: workout_Array);
var pb: TVDIPB;
begin begin
vdi.v_opnvwk(@workin[0], @handle, @workout[0]); vdi.v_opnvwk(@workin[0], @handle, @workout[0]);
end; end;
procedure vq_extnd(handle, owflag: smallint; out WorkOut: workout_Array); procedure vq_extnd(handle, owflag: smallint; out WorkOut: workout_Array);
var pb: TVDIPB;
begin begin
vdi.vq_extnd(handle, owflag, @workout[0]); vdi.vq_extnd(handle, owflag, @workout[0]);
end; end;