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

Fix compilation of graph unit for msdos OS target

Browse Source 
git-svn-id: trunk@36630 -
This commit is contained in:
pierre 2017-07-03 17:07:42 +00:00
parent 4882b802ae
commit 91995c004c
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/graph/src/inc/gtext.inc
View File

@ -227,7 +227,13 @@ end;
function unpack(buf: pchar; index: smallint; var Stroke: TStrokes): smallint;
var
{$ifdef CPU16}
{ TStrokes is too big for small MSDOS Stacks,
use individual TStroke instead }
spo : TStroke;
{$else}
po: TStrokes;
{$endif}
num_ops: smallint;
opcode, i, opc: word;
counter: smallint;
@ -251,12 +257,20 @@ end;
for i:=0 to num_ops-1 do { /* For each opcode in buffer */ }
Begin
{$ifdef CPU16}
opc := decode(buf[counter], buf[counter+1], Stroke[lindex].x, Stroke[lindex].y); {* Decode the data field *}
inc(counter,2);
Stroke[lindex].opcode := opc;
{$else}
opc := decode(buf[counter], buf[counter+1], po[lindex].x, po[lindex].y); {* Decode the data field *}
inc(counter,2);
po[lindex].opcode := opc; {* Save the opcode *}
{$endif}
Inc(lindex);
end;
{$ifndef CPU16}
Stroke:=po;
{$endif}
unpack := num_ops; {* return OPS count *}
end;