debugger: give a descriptive error for *-in-c-type-name

db4
Joe Groff 2010-03-15 12:57:38 -07:00
parent 08f29d9fcd
commit acb04ad3ed
1 changed files with 13 additions and 10 deletions

View File

@ -1,15 +1,15 @@
! Copyright (C) 2004, 2010 Slava Pestov. ! Copyright (C) 2004, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: slots alien.c-types arrays definitions generic hashtables USING: slots alien.c-types alien.parser arrays definitions generic
summary io kernel math namespaces make prettyprint prettyprint.config hashtables summary io kernel math namespaces make prettyprint
sequences assocs sequences.private strings io.styles io.pathnames prettyprint.config sequences assocs sequences.private strings
vectors words system splitting math.parser classes.mixin classes.tuple io.styles io.pathnames vectors words system splitting math.parser
continuations continuations.private combinators generic.math classes.mixin classes.tuple continuations continuations.private
classes.builtin classes compiler.units generic.standard generic.single combinators generic.math classes.builtin classes compiler.units
vocabs init kernel.private io.encodings accessors math.order destructors generic.standard generic.single vocabs init kernel.private
source-files parser classes.tuple.parser effects.parser lexer io.encodings accessors math.order destructors source-files parser
generic.parser strings.parser vocabs.loader vocabs.parser classes.tuple.parser effects.parser lexer generic.parser strings.parser
source-files.errors ; vocabs.loader vocabs.parser source-files.errors ;
IN: debugger IN: debugger
GENERIC: error-help ( error -- topic ) GENERIC: error-help ( error -- topic )
@ -349,6 +349,9 @@ M: stack-effect-omits-dashes summary drop "Stack effect must contain “--”" ;
M: no-c-type summary name>> unparse "“" "” is not a C type" surround ; M: no-c-type summary name>> unparse "“" "” is not a C type" surround ;
M: *-in-c-type-name summary
name>> "Cannot define a C type “" "” that ends with an asterisk (*)" surround ;
{ {
{ [ os windows? ] [ "debugger.windows" require ] } { [ os windows? ] [ "debugger.windows" require ] }
{ [ os unix? ] [ "debugger.unix" require ] } { [ os unix? ] [ "debugger.unix" require ] }