(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: Cstdarg.m3                                            *)
(* Last modified on Wed Mar 21 08:46:58 1990 by muller         *)
(*      modified on Mon Feb  5 11:19:25 1990 by jerome         *)

UNSAFE MODULE Cstdarg;

FROM M3toC IMPORT TtoS;

PROCEDURE Foo () = 
  BEGIN
  END Foo;

<*EXTERNAL*> VAR
  env_argc:   INTEGER;
  env_argv:   Argv;

BEGIN
  argc      := env_argc;
  adr_argc  := ADR (env_argc);
  argv      := env_argv;

  null      := TtoS("");

END Cstdarg.