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 /MLRISC/trunk/x86/staged-allocation/test-varargs.c
ViewVC logotype

View of /MLRISC/trunk/x86/staged-allocation/test-varargs.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3064 - (download) (as text) (annotate)
Thu Jun 5 07:20:32 2008 UTC (10 years, 9 months ago) by mrainey
File size: 1114 byte(s)
  Switched to a fixed size frame for the interpreter and a flat layout for the argument list.
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>

#define NEW(ty)   (ty*)malloc(sizeof(ty))

typedef struct {
  long long val;
  long long kind;
  long long loc;
  long long ty;
}  zipped_arg_t;

extern void varargs (void* fun, zipped_arg_t* args, int);

void Say (const char *fmt, ...)
	__attribute__ ((format(printf, 1, 2)));

void Say (const char *fmt, ...)
{
    va_list	ap;

    va_start (ap, fmt);
      vfprintf (stdout, fmt, ap);
      fflush (stdout);
      va_end(ap);

}

#define N_ARGS 2
#define STK 2
#define FSTK 3
#define OFF(i) (i*4)

int main () 
{
  zipped_arg_t args[N_ARGS];
  
  for(int i = 0 ; i < N_ARGS; i++)
    args[i] = NEW(varargs_t);

  args[N_ARGS-1]->tl = 0;
  for (int i = N_ARGS-2; i >= 0; i--)
    args[i]->tl = args[i+1];

  args[0].hd->val = (long long)"arg1=%d\n";
  args[0].hd->kind = (long long)STK;
  args[0].hd->loc = (long long)OFF(0);
  args[0].hd->ty = (long long)32;

  args[1].hd->val = (long long)69;
  args[1].hd->kind = (long long)STK;
  args[1].hd->loc = (long long)OFF(1);
  args[1].hd->ty = (long long)32;

  varargs(Say, args, N_ARGS);

  return 0;
}

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