paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed the fixed trouble

Browse Source
This commit is contained in:
daniel 2003-08-20 20:13:08 +00:00
parent 78ee625c7e
commit 81d4cc15c7
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgld.pas
View File

@ -177,7 +177,7 @@ implementation
else else
begin begin
{ in case it is a register variable: } { in case it is a register variable: }
if tvarsym(symtableentry).reg.enum<>R_NO then if tvarsym(symtableentry).reg.number<>NR_NO then
begin begin
if tvarsym(symtableentry).reg.enum in fpuregs then if tvarsym(symtableentry).reg.enum in fpuregs then
begin begin
@ -241,7 +241,7 @@ implementation
paramanager.push_addr_param(tvarsym(symtableentry).vartype.def,tprocdef(symtable.defowner).proccalloption) paramanager.push_addr_param(tvarsym(symtableentry).vartype.def,tprocdef(symtable.defowner).proccalloption)
) then ) then
begin begin
if hregister.enum=R_NO then if hregister.number=NR_NO then
hregister:=rg.getaddressregister(exprasmlist); hregister:=rg.getaddressregister(exprasmlist);
{ we need to load only an address } { we need to load only an address }
location.size:=OS_ADDR; location.size:=OS_ADDR;
@ -938,7 +938,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.76 2003-08-20 20:11:24 daniel Revision 1.77 2003-08-20 20:13:08 daniel
* Fixed the fixed trouble
Revision 1.76 2003/08/20 20:11:24 daniel
* Fixed some R_NO trouble * Fixed some R_NO trouble
Revision 1.75 2003/07/20 16:26:43 jonas Revision 1.75 2003/07/20 16:26:43 jonas