paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:25:58 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/tgobj.pas
View File

@ -231,13 +231,15 @@ unit tgobj;
bestslot:=nil; bestslot:=nil;
tl:=nil; tl:=nil;
bestsize:=0; bestsize:=0;
{$ifdef EXTDEBUG}
if size=0 then if size=0 then
begin begin
{$ifdef EXTDEBUG}
Comment(V_Warning,'Temp of size 0 requested, allocating 4 bytes'); Comment(V_Warning,'Temp of size 0 requested, allocating 4 bytes');
{$endif}
size:=4; size:=4;
end; end;
{$endif}
freetype:=Used2Free[temptype]; freetype:=Used2Free[temptype];
if freetype=tt_none then if freetype=tt_none then
internalerror(200208201); internalerror(200208201);
@ -427,7 +429,7 @@ unit tgobj;
procedure ttgobj.GetTemp(list: taasmoutput; size : longint;temptype:ttemptype;var ref : treference); procedure ttgobj.GetTemp(list: taasmoutput; size : longint;temptype:ttemptype;var ref : treference);
begin begin
reference_reset_base(ref,procinfo.framepointer,alloctemp(list,size,temptype)); reference_reset_base(ref,procinfo.framepointer,alloctemp(list,size,temptype));
end; end;
@ -542,7 +544,10 @@ finalization
end. end.
{ {
$Log$ $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 * lots of new regallocator fixes, both in generic and ppc-specific code
(ppc compiler still can't compile the linux system unit though) (ppc compiler still can't compile the linux system unit though)