nppccal.pas 5.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163
  1. {
  2. $Id$
  3. Copyright (c) 2002 by Florian Klaempfl
  4. Implements the PowerPC specific part of call nodes
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published bymethodpointer
  7. the Free Software Foundation; either version 2 of the License, or
  8. (at your option) any later version.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program; if not, write to the Free Software
  15. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. ****************************************************************************
  17. }
  18. unit nppccal;
  19. {$i fpcdefs.inc}
  20. interface
  21. uses
  22. symdef,node,ncal,ncgcal;
  23. type
  24. tppccallnode = class(tcgcallnode)
  25. procedure extra_call_code;override;
  26. procedure do_syscall;override;
  27. end;
  28. implementation
  29. uses
  30. globtype,systems,
  31. cutils,verbose,globals,
  32. symconst,symbase,symsym,symtable,defutil,paramgr,parabase,
  33. {$ifdef GDB}
  34. strings,
  35. gdb,
  36. {$endif GDB}
  37. cgbase,pass_2,
  38. cpuinfo,cpubase,aasmbase,aasmtai,aasmcpu,
  39. nmem,nld,ncnv,
  40. ncgutil,cgutils,cgobj,tgobj,regvars,rgobj,rgcpu,
  41. cg64f32,cgcpu,cpupi,procinfo;
  42. procedure tppccallnode.extra_call_code;
  43. begin
  44. if assigned(varargsparas) then
  45. begin
  46. if (target_info.abi = abi_powerpc_sysv) then
  47. begin
  48. if va_uses_float_reg in varargsparas.varargsinfo then
  49. exprasmlist.concat(taicpu.op_const_const_const(A_CREQV,6,6,6))
  50. else
  51. exprasmlist.concat(taicpu.op_const_const_const(A_CRXOR,6,6,6));
  52. end;
  53. end;
  54. end;
  55. procedure tppccallnode.do_syscall;
  56. var
  57. tmpref: treference;
  58. begin
  59. case target_info.system of
  60. system_powerpc_morphos:
  61. begin
  62. if po_syscall_sysv in tprocdef(procdefinition).procoptions then
  63. begin
  64. cg.getcpuregister(exprasmlist,NR_R0);
  65. cg.getcpuregister(exprasmlist,NR_R31);
  66. reference_reset(tmpref);
  67. tmpref.symbol := objectlibrary.newasmsymbol(tglobalvarsym(tprocdef(procdefinition).libsym).mangledname,AB_EXTERNAL,AT_DATA);
  68. tmpref.refaddr := addr_hi;
  69. exprasmlist.concat(taicpu.op_reg_ref(A_LIS,NR_R31,tmpref));
  70. tmpref.base := NR_R31;
  71. tmpref.refaddr := addr_lo;
  72. exprasmlist.concat(taicpu.op_reg_ref(A_LWZ,NR_R31,tmpref));
  73. exprasmlist.concat(taicpu.op_reg_reg_const(A_ADDI,NR_R0,NR_R31,-tprocdef(procdefinition).extnumber));
  74. exprasmlist.concat(taicpu.op_reg(A_MTCTR,NR_R0));
  75. exprasmlist.concat(taicpu.op_none(A_BCTRL));
  76. cg.ungetcpuregister(exprasmlist,NR_R31);
  77. cg.ungetcpuregister(exprasmlist,NR_R0);
  78. end
  79. else if po_syscall_legacy in tprocdef(procdefinition).procoptions then
  80. begin
  81. cg.getcpuregister(exprasmlist,NR_R0);
  82. cg.getcpuregister(exprasmlist,NR_R3);
  83. { store call offset into R3 }
  84. exprasmlist.concat(taicpu.op_reg_const(A_LI,NR_R3,-tprocdef(procdefinition).extnumber));
  85. { prepare LR, and call function }
  86. reference_reset_base(tmpref,NR_R2,100); { 100 ($64) is EmulDirectCallOS offset }
  87. exprasmlist.concat(taicpu.op_reg_ref(A_LWZ,NR_R0,tmpref));
  88. exprasmlist.concat(taicpu.op_reg(A_MTLR,NR_R0));
  89. exprasmlist.concat(taicpu.op_none(A_BLRL));
  90. cg.ungetcpuregister(exprasmlist,NR_R0);
  91. cg.ungetcpuregister(exprasmlist,NR_R3);
  92. end
  93. else
  94. internalerror(2005010403);
  95. end;
  96. else
  97. internalerror(2004042901);
  98. end;
  99. end;
  100. begin
  101. ccallnode:=tppccallnode;
  102. end.
  103. {
  104. $Log$
  105. Revision 1.32 2005-01-04 17:40:33 karoly
  106. + sysv style syscalls added for MorphOS
  107. Revision 1.31 2004/12/06 18:06:37 jonas
  108. * only set/clear bit 6 of cr in case of varargs for the sysv abi
  109. Revision 1.30 2004/10/15 09:30:13 mazen
  110. - remove $IFDEF DELPHI and related code
  111. - remove $IFDEF FPCPROCVAR and related code
  112. Revision 1.29 2004/09/25 14:23:54 peter
  113. * ungetregister is now only used for cpuregisters, renamed to
  114. ungetcpuregister
  115. * renamed (get|unget)explicitregister(s) to ..cpuregister
  116. * removed location-release/reference_release
  117. Revision 1.28 2004/09/21 17:25:13 peter
  118. * paraloc branch merged
  119. Revision 1.27.4.1 2004/09/18 20:21:08 jonas
  120. * fixed ppc, but still needs fix in tgobj
  121. Revision 1.27 2004/06/20 08:55:32 florian
  122. * logs truncated
  123. Revision 1.26 2004/04/29 22:18:37 karoly
  124. * removed some unneeded parts of do_syscall
  125. Revision 1.25 2004/04/29 14:36:42 karoly
  126. * little cleanup of the previous commit
  127. Revision 1.24 2004/04/29 14:01:23 karoly
  128. + first implementation of PowerPC/MorphOS do_syscall
  129. }