Commit ede13993 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-07-15 15:26:44 by simonmar]

Turns out that we *did* have a test that would have shown up the
DsForeign bug (rev. 1.70 of ghc/compiler/deSugar/DsForeign.lhs) but it
was disabled because it didn't quite work with the current test

I've hacked the framework a bit and hopefully knocked the test into
shape so we shouldn't get the same problem again.

MERGE TO STABLE after testing in HEAD
parent d3c5f6e5
......@@ -10,8 +10,7 @@ test "ffi001" { vtr("-fglasgow-exts", "", "") }
-- skip this test for now: we don't have the machinery to compile the .c file
-- separately.
test "ffi002" { skip when True
vtr("ffi002.c -fglasgow-exts -no-hs-main", "", "") }
test "ffi002" { vtr("ffi002_c.c -fglasgow-exts -no-hs-main", "", "") }
test "ffi003" { skip when $platform == "alpha-dec-osf3" -- no NCG on Alpha yet
vtr("-fglasgow-exts", "", "") }
#include <stdio.h>
#include "foo_stub.h"
#include "ffi002_stub.h"
#include "RtsAPI.h"
extern void __stginit_Foo ( void );
int main(void)
int main(int argc, char *argv[])
int i;
char* bogusFlags[1] = { "\0" };
startupHaskell(0, bogusFlags, __stginit_Foo);
startupHaskell(argc, argv, __stginit_Foo);
for (i = 0; i < 5; i++) {
printf("%d\n", foo(2500));
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment