Subversion Repositories scarts

; GCC "intrinsics" file entry point.
;
; This is invoked to build support files for registering intrinsic
; functions within gcc. this code has a fair bit of target-specific
; code in it. it's not a general-purpose module yet.
;
; Copyright (C) 2000, 2009 Red Hat, Inc.
; This file is part of CGEN.
;
; This is a standalone script, we don't load anything until we parse the
; -s argument (keeps reliance off of environment variables, etc.).
; Load the various support routines.
; Fix up Scheme to be what we use (guile is always in flux).
"/guile.scm""/read.scm""/intrinsics.scm""-K""isa""keep isa <isa> in intrinsics""-M""file""generate insns.md in <file>""-N""file""generate intrinsics.h in <file>""-P""file""generate intrinsic-protos.h in <file>""-T""file""generate intrinsic-testsuite.c in <file>"; Kept global so it's available to the other .scm files.
"."; Scan argv for -s srcdir.
; We can't process any other args until we find the cgen source dir.
; The result is srcdir.
; We assume "-s" isn't the argument to another option.  Unwise, yes.
; Alternatives are to require it to be the first argument or at least preceed
; any option with a "-s" argument, or to put knowledge of the common argument
; set and common argument parsing code in every top level file.
"`-s srcdir' not present, can't load cgen""-s""missing srcdir arg to `-s'"; Main routine, parses options and calls generators.
; Find and set srcdir, then load all Scheme code.
; Drop the first argument, it is the script name (i.e. argv[0]).
"intrinsics"