git-svn-id: trunk@38954 -
@@ -395,13 +395,13 @@ implementation
{ Create new block and resize the old block }
tl^.fini:=fini;
tl^.size:=size;
- tl^.alignment:=alignment;
tl^.nextfree:=nil;
{ Resize the old block }
dec(bestslot^.size,size);
end;
tl^.temptype:=temptype;
tl^.def:=def;
+ tl^.alignment:=alignment;
end
else