diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-04-19 21:54:48 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-04-19 21:54:48 +0000 |
| commit | e5f3b446f47091c075b7b7aba9147e702ad0b42f (patch) | |
| tree | 9e38edc0e6ad90f81ecc166894865e860d7b6cc6 /packages/graph/src | |
| parent | 1e552984594b3cadc7c19a40d8ac07880d6b349c (diff) | |
| download | fpc-e5f3b446f47091c075b7b7aba9147e702ad0b42f.tar.gz | |
* fixed opcode decoding after r10418 ("shortint and $80" now becomes
a byte instead of remaining a shortint) + fixed (harmless) range error
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@10726 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/graph/src')
| -rw-r--r-- | packages/graph/src/inc/gtext.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/graph/src/inc/gtext.inc b/packages/graph/src/inc/gtext.inc index 7a6fce0aac..6241e1ad8d 100644 --- a/packages/graph/src/inc/gtext.inc +++ b/packages/graph/src/inc/gtext.inc @@ -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. } |