paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +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} {$ifndef cpu64bitalu}
if location.size in [OS_64,OS_S64] then if location.size in [OS_64,OS_S64] then
begin begin
location.register64.reglo := 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_INT); location.register64.reghi := cg.getintregister(current_asmdata.CurrAsmList,OS_32);
end end
else else
{$endif} {$endif}

2
compiler/ncgcnv.pas
View File

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