← Back to branch summary

~ubuntu-branches/debian/sid/ocaml/sid

« back to all changes in this revision

Viewing changes to testsuite/tests/asmcomp/alpha.S

  • Committer: Bazaar Package Importer
  • Author(s): Stéphane Glondu
  • Date: 2011-04-21 21:35:08 UTC
  • mfrom: (1.1.11 upstream) (12.1.14 sid)
  • Revision ID: james.westby@ubuntu.com-20110421213508-kg34453aqmb0moha
* Fixes related to -output-obj with g++ (in debian/patches):
  - add Declare-primitive-name-table-as-const-char
  - add Avoid-multiple-declarations-in-generated-.c-files-in
  - fix Embed-bytecode-in-C-object-when-using-custom: the closing
    brace for extern "C" { ... } was missing in some cases

Show diffs side-by-side

added added

removed removed

Lines of Context:
testsuite/tests/asmcomp/alpha.S
 
1
/***********************************************************************/
 
2
/*                                                                     */
 
3
/*                           Objective Caml                            */
 
4
/*                                                                     */
 
5
/*            Xavier Leroy, projet Cristal, INRIA Rocquencourt         */
 
6
/*                                                                     */
 
7
/*  Copyright 1996 Institut National de Recherche en Informatique et   */
 
8
/*  en Automatique.  All rights reserved.  This file is distributed    */
 
9
/*  under the terms of the Q Public License version 1.0.               */
 
10
/*                                                                     */
 
11
/***********************************************************************/
 
12
 
 
13
/* $Id: alpha.S 2638 1999-11-29 19:04:56Z doligez $ */
 
14
 
 
15
        .globl  call_gen_code
 
16
        .ent    call_gen_code
 
17
 
 
18
call_gen_code:
 
19
        lda     $sp, -80($sp)
 
20
        stq     $26, 0($sp)
 
21
        stq     $9, 8($sp)
 
22
        stq     $10, 16($sp)
 
23
        stq     $11, 24($sp)
 
24
        stq     $12, 32($sp)
 
25
        stt     $f2, 40($sp)
 
26
        stt     $f3, 48($sp)
 
27
        stt     $f4, 56($sp)
 
28
        stt     $f5, 64($sp)
 
29
        mov     $16, $27
 
30
        mov     $17, $16
 
31
        mov     $18, $17
 
32
        mov     $19, $18
 
33
        mov     $20, $19
 
34
        jsr     ($27)
 
35
        ldq     $26, 0($sp)
 
36
        ldq     $9, 8($sp)
 
37
        ldq     $10, 16($sp)
 
38
        ldq     $11, 24($sp)
 
39
        ldq     $12, 32($sp)
 
40
        ldt     $f2, 40($sp)
 
41
        ldt     $f3, 48($sp)
 
42
        ldt     $f4, 56($sp)
 
43
        ldt     $f5, 64($sp)
 
44
        lda     $sp, 80($sp)
 
45
        ret     ($26)
 
46
 
 
47
        .end    call_gen_code
 
48
 
 
49
        .globl  caml_c_call
 
50
        .ent    caml_c_call
 
51
caml_c_call:
 
52
        lda     $sp, -16($sp)
 
53
        stq     $26, 0($sp)
 
54
        stq     $gp, 8($sp)
 
55
        mov     $25, $27
 
56
        jsr     ($25)
 
57
        ldq     $26, 0($sp)
 
58
        ldq     $gp, 8($sp)
 
59
        lda     $sp, 16($sp)
 
60
        ret     ($26)
 
61
 
 
62
        .end    caml_c_call