paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 06:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup

Browse Source
This commit is contained in:
Jonas Maebe 2004-02-03 17:55:50 +00:00
parent 7ca069476f
commit 6eec8798cd
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncgbas.pas
View File

@ -355,16 +355,8 @@ interface
else if may_be_in_reg then else if may_be_in_reg then
begin begin
cgsize := def_cgsize(tempinfo^.restype.def); cgsize := def_cgsize(tempinfo^.restype.def);
if (OS_INT = OS_S32) then if (TCGSize2Size[cgsize]>TCGSize2Size[OS_INT]) then
begin internalerror(2004020202);
if not(cgsize in [OS_8,OS_16,OS_32,OS_S8,OS_S16,OS_S32]) then
internalerror(2004020202);
end
else
begin
if not(cgsize in [OS_8,OS_16,OS_32,OS_64,OS_S8,OS_S16,OS_S32,OS_S64]) then
internalerror(2004020202);
end;
tempinfo^.loc.reg := cg.getintregister(exprasmlist,cgsize); tempinfo^.loc.reg := cg.getintregister(exprasmlist,cgsize);
if (tempinfo^.temptype = tt_persistent) then if (tempinfo^.temptype = tt_persistent) then
begin begin
@ -474,7 +466,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.52 2004-02-03 16:46:51 jonas Revision 1.53 2004-02-03 17:55:50 jonas
* cleanup
Revision 1.52 2004/02/03 16:46:51 jonas
+ support to store ttempcreate/ref/deletenodes in registers + support to store ttempcreate/ref/deletenodes in registers
* put temps for withnodes and some newnodes in registers * put temps for withnodes and some newnodes in registers
Note: this currently only works because calling ungetregister() Note: this currently only works because calling ungetregister()