steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't report inference warnings for inline words

db4
Slava Pestov 2009-03-12 17:30:41 -05:00
parent 80e719ba5b
commit 2f85a1a9eb
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/compiler/compiler.factor
View File

@ -1,15 +1,14 @@
! Copyright (C) 2004, 2009 Slava Pestov. ! Copyright (C) 2004, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel namespaces arrays sequences io words fry USING: accessors kernel namespaces arrays sequences io words fry
continuations vocabs assocs dlists definitions math graphs continuations vocabs assocs dlists definitions math graphs generic
generic combinators deques search-deques io stack-checker combinators deques search-deques macros io stack-checker
stack-checker.state stack-checker.inlining stack-checker.state stack-checker.inlining combinators.short-circuit
combinators.short-circuit compiler.errors compiler.units compiler.errors compiler.units compiler.tree.builder
compiler.tree.builder compiler.tree.optimizer compiler.tree.optimizer compiler.cfg.builder compiler.cfg.optimizer
compiler.cfg.builder compiler.cfg.optimizer
compiler.cfg.linearization compiler.cfg.two-operand compiler.cfg.linearization compiler.cfg.two-operand
compiler.cfg.linear-scan compiler.cfg.stack-frame compiler.cfg.linear-scan compiler.cfg.stack-frame compiler.codegen
compiler.codegen compiler.utilities ; compiler.utilities ;
IN: compiler IN: compiler
SYMBOL: compile-queue SYMBOL: compile-queue
@ -50,8 +49,12 @@ SYMBOLS: +optimized+ +unoptimized+ ;
H{ } clone generic-dependencies set H{ } clone generic-dependencies set
f swap compiler-error ; f swap compiler-error ;
: ignore-error? ( word error -- ? )
[ [ inline? ] [ macro? ] bi or ]
[ compiler-error-type +warning+ eq? ] bi* and ;
: fail ( word error -- * ) : fail ( word error -- * )
[ swap compiler-error ] [ 2dup ignore-error? [ 2drop ] [ swap compiler-error ] if ]
[ [
drop drop
[ compiled-unxref ] [ compiled-unxref ]