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

* fixed compilation for high level code generator targets after r21287

Browse Source 
git-svn-id: trunk@21302 -
This commit is contained in:
Jonas Maebe 2012-05-15 13:05:27 +00:00
parent d6f85c35b5
commit 08784aca44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/hlcgobj.pas
View File

@ -1877,7 +1877,7 @@ implementation
{$else} {$else}
tmpreg:=getintregister(list,loadsize); tmpreg:=getintregister(list,loadsize);
a_load_reg_reg(list,osuinttype,loadsize,valuereg,tmpreg); a_load_reg_reg(list,osuinttype,loadsize,valuereg,tmpreg);
a_load_reg_reg(list,loadsize,loadsize,tmpreg,sref.ref); a_load_reg_ref(list,loadsize,loadsize,tmpreg,sref.ref);
{$endif} {$endif}
{ transfer second part } { transfer second part }
@ -2034,7 +2034,7 @@ implementation
{$else} {$else}
tmpreg:=getintregister(list,loadsize); tmpreg:=getintregister(list,loadsize);
a_load_reg_reg(list,osuinttype,loadsize,extra_value_reg,tmpreg); a_load_reg_reg(list,osuinttype,loadsize,extra_value_reg,tmpreg);
a_load_reg_reg(list,loadsize,loadsize,tmpreg,tmpref); a_load_reg_ref(list,loadsize,loadsize,tmpreg,tmpref);
{$endif} {$endif}
a_label(list,hl); a_label(list,hl);