diff options
| author | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-03-08 07:18:04 +0000 |
|---|---|---|
| committer | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-03-08 07:18:04 +0000 |
| commit | 9603db7dc708203be700aead9fe47b9b0dfea0e7 (patch) | |
| tree | ddded5c6959cbc1fe3b38127ce82b0a31d3ffba6 | |
| parent | 3fc794a223c4a8abedb2492a9ce0de8dccf53331 (diff) | |
| download | fpc-9603db7dc708203be700aead9fe47b9b0dfea0e7.tar.gz | |
* powerpc64 fixes
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/linker@2807 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/cg64f32.pas | 2 | ||||
| -rw-r--r-- | compiler/powerpc64/aasmcpu.pas | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/cg64f32.pas b/compiler/cg64f32.pas index 928596abc2..0aca4d4e40 100644 --- a/compiler/cg64f32.pas +++ b/compiler/cg64f32.pas @@ -401,7 +401,7 @@ unit cg64f32; LOC_CREGISTER : cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reghi,reg); LOC_CONSTANT : - cg.a_load_const_reg(list,OS_32,hi(l.value64),reg); + cg.a_load_const_reg(list,OS_32,aint(hi(l.value64)),reg); else internalerror(200203244); end; diff --git a/compiler/powerpc64/aasmcpu.pas b/compiler/powerpc64/aasmcpu.pas index ea1e45b5bd..4850e68300 100644 --- a/compiler/powerpc64/aasmcpu.pas +++ b/compiler/powerpc64/aasmcpu.pas @@ -464,7 +464,7 @@ procedure fixup_jmps(list: taasmoutput); var p: tai; newjmp: taicpu; - labelpositions: TFPObjectList; + labelpositions: TFPList; instrpos: ptrint; l: tasmlabel; inserted_something: boolean; @@ -472,7 +472,7 @@ begin // if certainly not enough instructions to cause an overflow, don't bother if (list.count <= (high(smallint) div 4)) then exit; - labelpositions := tlist.create; + labelpositions := TFPList.create; p := tai(list.first); instrpos := 1; // record label positions |