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