diff options
Diffstat (limited to 'compiler/mips/cpugas.pas')
-rw-r--r-- | compiler/mips/cpugas.pas | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/compiler/mips/cpugas.pas b/compiler/mips/cpugas.pas index 65a884a52b..3e3a595b02 100644 --- a/compiler/mips/cpugas.pas +++ b/compiler/mips/cpugas.pas @@ -248,42 +248,42 @@ unit cpugas; case op of A_P_SET_NOMIPS16: begin - owner.AsmWriteLn(#9'.set'#9'nomips16'); + owner.writer.AsmWriteLn(#9'.set'#9'nomips16'); end; A_P_MASK, A_P_FMASK: begin s := #9 + gas_op2str[op] + #9'0x' + hexstr(taicpu(hp).oper[0]^.val,8)+ ',' + getopstr(taicpu(hp).oper[1]^) ; - owner.AsmWriteLn(s); + owner.writer.AsmWriteLn(s); end; A_P_SET_MACRO: begin - owner.AsmWriteLn(#9'.set'#9'macro'); + owner.writer.AsmWriteLn(#9'.set'#9'macro'); TMIPSGNUAssembler(owner).nomacro:=false; end; A_P_SET_REORDER: begin - owner.AsmWriteLn(#9'.set'#9'reorder'); + owner.writer.AsmWriteLn(#9'.set'#9'reorder'); TMIPSGNUAssembler(owner).noreorder:=false; end; A_P_SET_NOMACRO: begin - owner.AsmWriteLn(#9'.set'#9'nomacro'); + owner.writer.AsmWriteLn(#9'.set'#9'nomacro'); TMIPSGNUAssembler(owner).nomacro:=true; end; A_P_SET_NOREORDER: begin - owner.AsmWriteLn(#9'.set'#9'noreorder'); + owner.writer.AsmWriteLn(#9'.set'#9'noreorder'); TMIPSGNUAssembler(owner).noreorder:=true; end; A_P_SET_NOAT: begin - owner.AsmWriteln(#9'.set'#9'noat'); + owner.writer.AsmWriteln(#9'.set'#9'noat'); TMIPSGNUAssembler(owner).noat:=true; end; A_P_SET_AT: begin - owner.AsmWriteln(#9'.set'#9'at'); + owner.writer.AsmWriteln(#9'.set'#9'at'); TMIPSGNUAssembler(owner).noat:=false; end; A_LDC1: @@ -297,7 +297,7 @@ unit cpugas; begin tmpfpu := getopstr(taicpu(hp).oper[0]^); s := #9 + gas_op2str[A_LWC1] + #9 + tmpfpu + ',' + getopstr(taicpu(hp).oper[1]^); // + '(' + getopstr(taicpu(hp).oper[1]^) + ')'; - owner.AsmWriteLn(s); + owner.writer.AsmWriteLn(s); { bug if $f9/$f19 tmpfpu_len := length(tmpfpu); @@ -309,7 +309,7 @@ unit cpugas; tmpfpu := asm_regname(r); s := #9 + gas_op2str[A_LWC1] + #9 + tmpfpu + ',' + getopstr_4(taicpu(hp).oper[1]^); // + '(' + getopstr(taicpu(hp).oper[1]^) + ')'; end; - owner.AsmWriteLn(s); + owner.writer.AsmWriteLn(s); end; A_SDC1: begin @@ -322,7 +322,7 @@ unit cpugas; begin tmpfpu := getopstr(taicpu(hp).oper[0]^); s := #9 + gas_op2str[A_SWC1] + #9 + tmpfpu + ',' + getopstr(taicpu(hp).oper[1]^); //+ ',' + getopstr(taicpu(hp).oper[2]^) + '(' + getopstr(taicpu(hp).oper[1]^) + ')'; - owner.AsmWriteLn(s); + owner.writer.AsmWriteLn(s); { tmpfpu_len := length(tmpfpu); @@ -333,12 +333,12 @@ unit cpugas; tmpfpu := asm_regname(r); s := #9 + gas_op2str[A_SWC1] + #9 + tmpfpu + ',' + getopstr_4(taicpu(hp).oper[1]^); //+ ',' + getopstr(taicpu(hp).oper[2]^) + '(' + getopstr(taicpu(hp).oper[1]^) + ')'; end; - owner.AsmWriteLn(s); + owner.writer.AsmWriteLn(s); end; else begin if is_macro_instruction(taicpu(hp)) and TMIPSGNUAssembler(owner).nomacro then - owner.AsmWriteln(#9'.set'#9'macro'); + owner.writer.AsmWriteln(#9'.set'#9'macro'); s := #9 + gas_op2str[op] + cond2str[taicpu(hp).condition]; if taicpu(hp).delayslot_annulled then s := s + ',a'; @@ -348,9 +348,9 @@ unit cpugas; for i := 1 to taicpu(hp).ops - 1 do s := s + ',' + getopstr(taicpu(hp).oper[i]^); end; - owner.AsmWriteLn(s); + owner.writer.AsmWriteLn(s); if is_macro_instruction(taicpu(hp)) and TMIPSGNUAssembler(owner).nomacro then - owner.AsmWriteln(#9'.set'#9'nomacro'); + owner.writer.AsmWriteln(#9'.set'#9'nomacro'); end; end; end; |