1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00

fix x86-64 builds

git-archimport-id: bonzini@gnu.org--2004b/lightning--stable--1.2--patch-39
This commit is contained in:
Paolo Bonzini 2006-11-20 13:00:29 +00:00
parent f748b3c5e7
commit 197d20aa96
12 changed files with 80 additions and 24 deletions

View file

@ -37,6 +37,7 @@
#include <stdio.h>
#include "lightning.h"
#ifdef JIT_FPR
static jit_insn codeBuffer[300];
typedef int (*intFunc) (int, int);
@ -175,3 +176,10 @@ main (int argc, char *argv[])
return 0;
}
#else
int
main()
{
return (77);
}
#endif

View file

@ -38,6 +38,7 @@
#include <stdlib.h>
#include "lightning.h"
#ifdef JIT_FPR
static jit_insn codeBuffer[1024];
typedef double (*pdfd) (double); /* Pointer to Double Function of Double */
@ -136,3 +137,10 @@ main ()
#endif
return 0;
}
#else
int
main()
{
return (77);
}
#endif

View file

@ -1,6 +1,10 @@
#! /bin/sh
./$1 > $1.log
if test $? = 77; then
exit 77
fi
if cmp -s $srcdir/$1.ok $1.log; then
rm $1.log
else

View file

@ -37,6 +37,7 @@
#include <stdio.h>
#include "lightning.h"
#ifdef JIT_FPR
static jit_insn codeBuffer[300];
static double a;
@ -215,3 +216,10 @@ main()
return (0);
}
#else
int
main()
{
return (77);
}
#endif