paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed some unused code and associated variable

Browse Source 
from parse_packed_array_def

git-svn-id: trunk@6605 -
This commit is contained in:
Jonas Maebe 2007-02-22 16:56:21 +00:00
parent e2e1b7b857
commit 06208b5c5d
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ptconst.pas
View File

@ -698,7 +698,6 @@ implementation
procedure parse_packed_array_def(list: tasmlist; def: tarraydef);
var
i : aint;
loadmask: aword;
curval, nextval: aword;
curbitoffset: smallint;
packedbitsize,
@ -710,11 +709,6 @@ implementation
consume(_LKLAMMER);
packedbitsize:=def.elepackedbitsize;
loadbitsize:=packedbitsloadsize(packedbitsize)*8;
{ 1 shl 32/64 = 1 on i386/x86_64 }
if (loadbitsize*8 <> sizeof(aword)) then
loadmask:=aword(1) shl loadbitsize
else
loadmask:=aword(-1);
curval:=0;
curbitoffset:=0;
i:=def.lowrange;