paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 03:51:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Modified "not aktpackrecords" as suggested by Jonas.

Browse Source
This commit is contained in:
daniel 2000-02-28 17:40:15 +00:00
parent fb1a842118
commit 7ebb3f07ae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/new/symtable/symtablt.pas
View File

@ -224,7 +224,7 @@ function Tabstractrecordsymtable.varsymtodata(sym:Psym;
begin
datasize:=(datasize+(packrecordalignment[aktpackrecords]-1))
and (not packrecordalignment[aktpackrecords]-1);
and not (packrecordalignment[aktpackrecords]-1);
varsymtodata:=inherited varsymtodata(sym,len);
end;
@ -395,4 +395,4 @@ begin
speedsearch:=link^.speedsearch(s,speedvalue);
end;
end.
end.