/[gcl]/gcl/o/gbc.c
ViewVC logotype

Diff of /gcl/o/gbc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by camm, Thu Aug 1 22:15:06 2002 UTC revision 1.10 by camm, Sat Aug 3 00:23:33 2002 UTC
# Line 970  int (*GBC_enter_hook)() = NULL; Line 970  int (*GBC_enter_hook)() = NULL;
970  int (*GBC_exit_hook)() = NULL;  int (*GBC_exit_hook)() = NULL;
971  char *old_rb_start;  char *old_rb_start;
972    
973  #if defined(__hppa__)  /*  #if defined(__hppa__) */
974  asm(  /*  asm( */
975          ".code\n\t"  /*          ".code\n\t" */
976          ".export GBC,entry\n\t"  /*          ".export GBC,entry\n\t" */
977          ".import GBC1,code\n\t"  /*      ".import GBC1,code\n\t" */
978          ".proc\n\t"  /*      ".proc\n\t" */
979          ".callinfo entry_gr=18, calls, save_rp\n\t"  /*          ".callinfo entry_gr=18, calls, save_rp\n\t" */
980          ".label GBC\n\t"  /*      ".label GBC\n\t" */
981          ".entry\n\t"  /*      ".entry\n\t" */
982          "stw    %rp,-20(%sp)\n\t"  /*      "stw    %rp,-20(%sp)\n\t" */
983          "stwm   %r3,128(%sp)\n\t"  /*          "stwm       %r3,128(%sp)\n\t" */
984          "stw    %r4,-124(%sp)\n\t"  /*      "stw    %r4,-124(%sp)\n\t" */
985          "stw    %r5,-120(%sp)\n\t"  /*      "stw    %r5,-120(%sp)\n\t" */
986          "stw    %r6,-116(%sp)\n\t"  /*      "stw    %r6,-116(%sp)\n\t" */
987          "stw    %r7,-112(%sp)\n\t"  /*      "stw    %r7,-112(%sp)\n\t" */
988          "stw    %r8,-108(%sp)\n\t"  /*      "stw    %r8,-108(%sp)\n\t" */
989          "stw    %r9,-104(%sp)\n\t"  /*      "stw    %r9,-104(%sp)\n\t" */
990          "stw    %r10,-100(%sp)\n\t"  /*      "stw    %r10,-100(%sp)\n\t" */
991          "stw    %r11,-96(%sp)\n\t"  /*      "stw    %r11,-96(%sp)\n\t" */
992          "stw    %r12,-92(%sp)\n\t"  /*      "stw    %r12,-92(%sp)\n\t" */
993          "stw    %r13,-88(%sp)\n\t"  /*      "stw    %r13,-88(%sp)\n\t" */
994          "stw    %r14,-84(%sp)\n\t"  /*      "stw    %r14,-84(%sp)\n\t" */
995          "stw    %r15,-80(%sp)\n\t"  /*      "stw    %r15,-80(%sp)\n\t" */
996          "stw    %r16,-76(%sp)\n\t"  /*      "stw    %r16,-76(%sp)\n\t" */
997          "stw    %r17,-72(%sp)\n\t"  /*      "stw    %r17,-72(%sp)\n\t" */
998          "stw    %r18,-68(%sp)\n\t"  /*      "stw    %r18,-68(%sp)\n\t" */
999          "bl      GBC1,%rp\n\t"  /*          "bl      GBC1,%rp\n\t" */
1000          "nop\n\t"  /*          "nop\n\t" */
1001          "ldw    -148(%sp),%rp\n\t"  /*      "ldw    -148(%sp),%rp\n\t" */
1002          "ldw    -72(%sp),%r18\n\t"  /*      "ldw    -72(%sp),%r18\n\t" */
1003          "ldw    -68(%sp),%r17\n\t"  /*      "ldw    -68(%sp),%r17\n\t" */
1004          "ldw    -76(%sp),%r16\n\t"  /*      "ldw    -76(%sp),%r16\n\t" */
1005          "ldw    -80(%sp),%r15\n\t"  /*      "ldw    -80(%sp),%r15\n\t" */
1006          "ldw    -84(%sp),%r14\n\t"  /*      "ldw    -84(%sp),%r14\n\t" */
1007          "ldw    -88(%sp),%r13\n\t"  /*      "ldw    -88(%sp),%r13\n\t" */
1008          "ldw    -92(%sp),%r12\n\t"  /*      "ldw    -92(%sp),%r12\n\t" */
1009          "ldw    -96(%sp),%r11\n\t"  /*      "ldw    -96(%sp),%r11\n\t" */
1010          "ldw    -100(%sp),%r10\n\t"  /*      "ldw    -100(%sp),%r10\n\t" */
1011          "ldw    -104(%sp),%r9\n\t"  /*      "ldw    -104(%sp),%r9\n\t" */
1012          "ldw    -108(%sp),%r8\n\t"  /*      "ldw    -108(%sp),%r8\n\t" */
1013          "ldw    -112(%sp),%r7\n\t"  /*      "ldw    -112(%sp),%r7\n\t" */
1014          "ldw    -116(%sp),%r6\n\t"  /*      "ldw    -116(%sp),%r6\n\t" */
1015          "ldw    -120(%sp),%r5\n\t"  /*      "ldw    -120(%sp),%r5\n\t" */
1016          "ldw    -124(%sp),%r4\n\t"  /*      "ldw    -124(%sp),%r4\n\t" */
1017          "bv     0(%rp)\n\t"  /*      "bv     0(%rp)\n\t" */
1018          "ldwm   128(%sp),%r3\n\t"  /*          "ldwm       128(%sp),%r3\n\t" */
1019    
1020          ".exit\n\t"  /*      ".exit\n\t" */
1021          ".procend\n\t"  /*          ".procend\n\t" */
1022          ".end\n\t"  /*      ".end\n\t" */
1023  );  /*  ); */
1024    
1025  void  /*  void */
1026  GBC1(enum type t) {  /*  GBC1(enum type t) { */
1027  #else  /*  #else */
1028  void  void
1029  GBC(enum type t) {  GBC(enum type t) {
1030  #endif  /*  #endif */
1031    
1032    int i, j;    int i, j;
1033    struct apage *pp, *qq;    struct apage *pp, *qq;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26