paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 18:38:56 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -203,7 +203,7 @@ end;
b1:=shortint(byte1); b1:=shortint(byte1);
b2:=shortint(byte2); b2:=shortint(byte2);
{ Decode the CHR OPCODE } { 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 } { Now get the X,Y coordinates }
{ bit 0..7 only which are considered } { bit 0..7 only which are considered }
{ signed values. } { signed values. }