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

* fixed opcode decoding after r10418 ("shortint and $80" now becomes

Browse Source 
a byte instead of remaining a shortint) + fixed (harmless) range error

git-svn-id: trunk@10726 -
This commit is contained in:
Jonas Maebe 2008-04-19 21:54:48 +00:00
parent 10a286532f
commit 18b66ad036
1 changed files with 1 additions and 1 deletions

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

@ -203,7 +203,7 @@ end;
b1:=shortint(byte1);
b2:=shortint(byte2);
{ Decode the CHR OPCODE }
Decode:=smallint(((b1 and $80) shr 6)+((b2 and $80) shr 7));
Decode:=byte((shortint(b1 and $80) shr 6)+(shortint(b2 and $80) shr 7));
{ Now get the X,Y coordinates }
{ bit 0..7 only which are considered }
{ signed values. }