mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 23:09:18 +02:00
- removed wrong databitsize assignment (which had no effect)
git-svn-id: trunk@4510 -
This commit is contained in:
parent
340e2257f3
commit
c9c56996cc
@ -944,7 +944,6 @@ implementation
|
|||||||
if is_ordinal(vardef) then
|
if is_ordinal(vardef) then
|
||||||
begin
|
begin
|
||||||
sym.fieldoffset:=databitsize;
|
sym.fieldoffset:=databitsize;
|
||||||
databitsize:=high(aint);
|
|
||||||
l:=sym.getpackedbitsize;
|
l:=sym.getpackedbitsize;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user