paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* OS_INT => OS_32

Browse Source 
git-svn-id: branches/avr@17108 -
This commit is contained in:
florian 2011-03-09 19:47:10 +00:00
parent d4ff3b2eb6
commit f5694da7bc
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgadd.pas
View File

@ -208,8 +208,8 @@ interface
{$ifndef cpu64bitalu}
if location.size in [OS_64,OS_S64] then
begin
location.register64.reglo := cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
location.register64.reghi := cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
location.register64.reglo := cg.getintregister(current_asmdata.CurrAsmList,OS_32);
location.register64.reghi := cg.getintregister(current_asmdata.CurrAsmList,OS_32);
end
else
{$endif}

2
compiler/ncgcnv.pas
View File

@ -177,7 +177,7 @@ interface
begin
if left.location.size in [OS_64,OS_S64] then
begin
hregister:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
hregister:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_32,OS_32,left.location.reference,hregister);
href:=left.location.reference;
inc(href.offset,4);