소스 검색

* Modified "not aktpackrecords" as suggested by Jonas.

daniel 25 년 전
부모
커밋
7ebb3f07ae
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      compiler/new/symtable/symtablt.pas

+ 2 - 2
compiler/new/symtable/symtablt.pas

@@ -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.