diff options
Diffstat (limited to 'ocaml-binary-annot/otherlibs/num/bng_mips.c')
| -rw-r--r-- | ocaml-binary-annot/otherlibs/num/bng_mips.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/ocaml-binary-annot/otherlibs/num/bng_mips.c b/ocaml-binary-annot/otherlibs/num/bng_mips.c new file mode 100644 index 0000000000..f246843cb8 --- /dev/null +++ b/ocaml-binary-annot/otherlibs/num/bng_mips.c @@ -0,0 +1,23 @@ +/***********************************************************************/ +/* */ +/* Objective Caml */ +/* */ +/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */ +/* */ +/* Copyright 2003 Institut National de Recherche en Informatique et */ +/* en Automatique. All rights reserved. This file is distributed */ +/* under the terms of the GNU Library General Public License, with */ +/* the special exception on linking described in file ../../LICENSE. */ +/* */ +/***********************************************************************/ + +/* $Id$ */ + +/* Code specific to the MIPS architecture. */ + +#define BngMult(resh,resl,arg1,arg2) \ + asm("multu %2, %3 \n\t" \ + "mflo %0 \n\t" \ + "mfhi %1" \ + : "=r" (resl), "=r" (resh) \ + : "r" (arg1), "r" (arg2)) |