paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-02 11:05:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed outtext(''), c was a byte, this leads to an underflow and

Browse Source 
garbage was written
This commit is contained in:
florian 1999-09-12 08:02:22 +00:00
parent 73b01893ce
commit 947db5dbe3
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/graph/text.inc
View File

@ -360,8 +360,7 @@
ch: char;
b1,b2 : shortint;
b3 : byte;
c : byte;
i,j,k : longint;
i,j,k,c : longint;
oldvalues : linesettingstype;
nextpos : word;
xpos,ypos,offs: longint;
@ -389,6 +388,8 @@
begin
c:=length(textstring);
{ We must a length strength which is ZERO based }
{ if c is a byte and length is zero, this is }
{ dangerous, fixed }
Dec(c);
if CurrentTextInfo.direction=HorizDir then
{ Horizontal direction }
@ -689,7 +690,11 @@
{
$Log$
Revision 1.5 1999-07-26 09:38:43 florian
Revision 1.6 1999-09-12 08:02:22 florian
* fixed outtext(''), c was a byte, this leads to an underflow and
garbage was written
Revision 1.5 1999/07/26 09:38:43 florian
* bar: y2 can be less y1, fixed
* settextstyle: charsize can be 0, must be changed into 1