Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/ml-nlffi-lib/Tests/various/various.c
ViewVC logotype

View of /sml/trunk/src/ml-nlffi-lib/Tests/various/various.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1548 - (download) (as text) (annotate)
Wed Jul 14 21:25:43 2004 UTC (15 years ago) by mblume
File size: 467 byte(s)
added C_UNION to c-types.sml
union u { int i; };

void uf (union u u)
{
  return;
}

int f1 (void)
{
  return 1;
}

float f2 (void)
{
  return 2.0;
}

double f3 (void)
{
  return 3.0;
}

int addii (int x, int y)
{
  return x + y;
}

float addif (int x, float y)
{
  return x + y;
}

double addid (int x, double y)
{
  return x + y;
}

double adddi (double x, int y)
{
  return x + y;
}

double projid2 (int x, double y)
{
  return y;
}

double projsid3 (char *s, int x, double y)
{
  return y;
}

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0