paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 22:16:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: less warnings

Browse Source 
git-svn-id: trunk@41184 -
This commit is contained in:
mattias 2013-05-14 09:30:45 +00:00
parent 6b007f92db
commit 5878ba9053
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/ttinterp.pas
View File

@ -733,7 +733,7 @@ const
L1 := pEC^.code^[pEC^.IP]; inc(pEC^.IP);
L0 := pEC^.code^[pEC^.IP]; inc(pEC^.IP);
if L1 >= 128 then
result := -32768 + ((L1 and 127) shl 8) + L0
result := Short(-32768) + (Short(L1 and 127) shl 8) + L0
else
result := (L1 shl 8) + L0;
end;