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.).

; Fix up Scheme to be what we use (guile is always in flux).

"."; Scan argv for -s srcdir.

; We can't process any other args until we find the cgen source dir.

; The result is srcdir.

; 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.

; Find and set srcdir, then load all Scheme code.

"intrinsics"