mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:59:45 +02:00
Make sure to set alignment of new temp slot to new value
git-svn-id: trunk@38954 -
This commit is contained in:
parent
ba2c06a239
commit
1a23672e7b
@ -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;
|
||||
tl^.nextfree:=nil;
|
||||
end
|
||||
else
|
||||
|
Loading…
Reference in New Issue
Block a user