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

* correctly load 32 bit values on sparc64

Browse Source 
git-svn-id: trunk@36644 -
This commit is contained in:
florian 2017-07-04 20:52:47 +00:00
parent 0eaa8c2a57
commit 109612b7e1
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/sparcgen/cgsparc.pas
View File

@ -459,15 +459,18 @@ implementation
Op:=A_LDSH;{Load Signed Halfword} Op:=A_LDSH;{Load Signed Halfword}
OS_16: OS_16:
Op:=A_LDUH;{Load Unsigned Halfword} Op:=A_LDUH;{Load Unsigned Halfword}
OS_S32,
OS_32:
Op:=A_LD;{Load Word}
{$ifdef SPARC64} {$ifdef SPARC64}
OS_S32:
Op:=A_LDSW;{Load Signed Word}
OS_32:
Op:=A_LDUW;{Load Unsigned Word}
OS_64, OS_64,
OS_S64: OS_S64:
Op:=A_LDX; Op:=A_LDX;
{$else SPARC64} {$else SPARC64}
OS_S32,
OS_32:
Op:=A_LD;{Load Word}
OS_S64, OS_S64,
OS_64: OS_64:
Op:=A_LDD;{Load a Long Word} Op:=A_LDD;{Load a Long Word}

2
compiler/sparcgen/opcode.inc
View File

@ -13,7 +13,7 @@ A_CBccc,
A_FLUSH, A_FLUSH,
{Load instructions} {Load instructions}
A_LDSB,A_LDSH,A_LDSTUB, A_LDSB,A_LDSH,A_LDSTUB,
A_LDUB,A_LDUH,A_LD,A_LDD,A_LDF,A_LDFSR,A_LDDF,A_LDC,A_LDCSR,A_LDDC,A_LDX, A_LDUB,A_LDUH,A_LD,A_LDD,A_LDF,A_LDFSR,A_LDDF,A_LDC,A_LDCSR,A_LDDC,A_LDX,A_LDUW,A_LDSW,
A_LDSBA,A_LDSHA,A_LDUBA,A_LDUHA,A_LDA,A_LDDA, A_LDSBA,A_LDSHA,A_LDUBA,A_LDUHA,A_LDA,A_LDDA,
A_LDSTUBA, A_LDSTUBA,
A_MULScc, A_MULScc,

2
compiler/sparcgen/strinst.inc
View File

@ -11,7 +11,7 @@
'cbccc', 'cbccc',
'flush', 'flush',
'ldsb','ldsh','ldstub', 'ldsb','ldsh','ldstub',
'ldub','lduh','ld','ldd','ld','ldfsr','ldd','ldc','ldcsr','lddc','ldx', 'ldub','lduh','ld','ldd','ld','ldfsr','ldd','ldc','ldcsr','lddc','ldx','lduw','ldsw',
'ldsba','ldsha','lduba','lduha','lda','ldda', 'ldsba','ldsha','lduba','lduha','lda','ldda',
'ldstuba', 'ldstuba',
'mulscc', 'mulscc',