mescc: Ignore -fnobuiltin, -nostdinc for GCC compatibility.
* module/mescc.scm (parse-opts): Add -fnobuiltin, -nostdinc. (mescc:main): Ignore them.
This commit is contained in:
parent
44f8117886
commit
115feda4fc
|
@ -59,6 +59,7 @@
|
||||||
(define (single-char #\D) (value #t))
|
(define (single-char #\D) (value #t))
|
||||||
(debug-info (single-char #\g))
|
(debug-info (single-char #\g))
|
||||||
(dumpmachine)
|
(dumpmachine)
|
||||||
|
(fno-builtin)
|
||||||
(help (single-char #\h))
|
(help (single-char #\h))
|
||||||
(include (single-char #\I) (value #t))
|
(include (single-char #\I) (value #t))
|
||||||
(library-dir (single-char #\L) (value #t))
|
(library-dir (single-char #\L) (value #t))
|
||||||
|
@ -66,6 +67,7 @@
|
||||||
(machine (single-char #\m) (value #t))
|
(machine (single-char #\m) (value #t))
|
||||||
(nodefaultlibs)
|
(nodefaultlibs)
|
||||||
(nostartfiles)
|
(nostartfiles)
|
||||||
|
(nostdinc)
|
||||||
(nostdlib)
|
(nostdlib)
|
||||||
(preprocess (single-char #\E))
|
(preprocess (single-char #\E))
|
||||||
(std (value #t))
|
(std (value #t))
|
||||||
|
@ -111,6 +113,10 @@ Usage: mescc [OPTION]... FILE...
|
||||||
-w,--write=TYPE dump Nyacc AST using TYPE {pretty-print,write}
|
-w,--write=TYPE dump Nyacc AST using TYPE {pretty-print,write}
|
||||||
-x LANGUAGE specify LANGUAGE of the following input files
|
-x LANGUAGE specify LANGUAGE of the following input files
|
||||||
|
|
||||||
|
Ignored for GCC compatibility
|
||||||
|
-fno-builtin
|
||||||
|
-nostdinc
|
||||||
|
|
||||||
Environment variables:
|
Environment variables:
|
||||||
|
|
||||||
MES=BINARY run on mes-executable BINARY {mes,guile}
|
MES=BINARY run on mes-executable BINARY {mes,guile}
|
||||||
|
@ -126,8 +132,10 @@ General help using GNU software: <http://gnu.org/gethelp/>
|
||||||
|
|
||||||
(define (mescc:main args)
|
(define (mescc:main args)
|
||||||
(let* ((single-dash-options '("-dumpmachine"
|
(let* ((single-dash-options '("-dumpmachine"
|
||||||
|
"-fno-builtin"
|
||||||
"-nodefaultlibs"
|
"-nodefaultlibs"
|
||||||
"-nostartfiles"
|
"-nostartfiles"
|
||||||
|
"-nostdinc"
|
||||||
"-nostdlib"
|
"-nostdlib"
|
||||||
"-std"))
|
"-std"))
|
||||||
(args (map (lambda (o)
|
(args (map (lambda (o)
|
||||||
|
|
Loading…
Reference in a new issue