paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 09:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* always allocate 4 bytes when 0 bytes are asked

Browse Source
This commit is contained in:
peter 2003-04-22 09:46:17 +00:00
parent 342f5c3bed
commit 26b4fdbfa7
1 changed files with 9 additions and 4 deletions

13
compiler/tgobj.pas
View File

@ -231,13 +231,15 @@ unit tgobj;
bestslot:=nil;
tl:=nil;
bestsize:=0;
{$ifdef EXTDEBUG}
if size=0 then
begin
{$ifdef EXTDEBUG}
Comment(V_Warning,'Temp of size 0 requested, allocating 4 bytes');
{$endif}
size:=4;
end;
{$endif}
freetype:=Used2Free[temptype];
if freetype=tt_none then
internalerror(200208201);
@ -427,7 +429,7 @@ unit tgobj;
procedure ttgobj.GetTemp(list: taasmoutput; size : longint;temptype:ttemptype;var ref : treference);
begin
reference_reset_base(ref,procinfo.framepointer,alloctemp(list,size,temptype));
end;
@ -542,7 +544,10 @@ finalization
end.
{
$Log$
Revision 1.27 2003-03-11 21:46:24 jonas
Revision 1.28 2003-04-22 09:46:17 peter
* always allocate 4 bytes when 0 bytes are asked
Revision 1.27 2003/03/11 21:46:24 jonas
* lots of new regallocator fixes, both in generic and ppc-specific code
(ppc compiler still can't compile the linux system unit though)