File: c_api.decl

package info (click to toggle)
libmath-int128-perl 0.22-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 604 kB
  • sloc: perl: 2,614; ansic: 340; makefile: 3
file content (26 lines) | stat: -rw-r--r-- 577 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26



SV *     newSVi128 (pTHX_ int128_t i128)
SV *     newSVu128 (pTHX_ uint128_t u128) 
int128_t SvI128    (pTHX_ SV *sv)
int128_t SvU128    (pTHX_ SV *sv)
int      SvI128OK  (pTHX_ SV*)
int      SvU128OK  (pTHX_ SV*)

module_c_beginning = <<FRAG

#if ((__GNUC__ == 4) && (__GNUC_MINOR__ < 6))

/* workaroung for gcc 4.4/4.5 - see http://gcc.gnu.org/gcc-4.4/changes.html */
typedef int int128_t __attribute__ ((__mode__ (TI)));
typedef unsigned int uint128_t __attribute__ ((__mode__ (TI)));

#else

typedef __int128 int128_t;
typedef unsigned __int128 uint128_t;

#endif

FRAG