I breezed through the cocoa.* libraries and updated them to use the
new objc runtime functions from Leopard, which should in theory allow
us to build x86-64 binaries for OS X with UI support. I tested my
changes on x86-32 and they work fine. However, when I run the x86-64
bootstrap, I get the error at the end of this message. My code changes
are in git://repo.or.cz/factor/jcg.git under the "objective-c-2"
branch. Is there a problem in my code or in the compiler?
-Joe
Generic word reg-class-variable does not define a method for the word
class.
Dispatching on object: stack-params
( scratchpad ) :s
"resource:basis/bootstrap/stage2.factor"
"bootstrap.help"
"accessors"
"alias"
"alien"
"alien.accessors"
"alien.arrays"
"alien.c-types"
"alien.remote-control"
"alien.strings"
"alien.structs"
"alien.structs.fields"
"alien.syntax"
"alien.syntax.private"
"arrays"
"assocs"
"bootstrap.compiler"
"bootstrap.help"
"bootstrap.layouts"
"bootstrap.math"
"bootstrap.stage2"
"bootstrap.syntax"
"bootstrap.threads"
"boxes"
"byte-arrays"
"byte-vectors"
"checksums"
"checksums.crc32"
"classes"
"classes.algebra"
"classes.builtin"
"classes.intersection"
"classes.mixin"
"classes.parser"
"classes.predicate"
"classes.private"
"classes.singleton"
"classes.tuple"
"classes.tuple.parser"
"classes.tuple.private"
"classes.union"
"colors"
"colors.hsv"
"colors.hsv.private"
"columns"
"combinators"
"combinators.short-circuit"
"command-line"
"compiler"
"compiler.constants"
"compiler.errors"
"compiler.errors.private"
"compiler.generator"
"compiler.generator.fixup"
"compiler.generator.iterator"
"compiler.generator.registers"
"compiler.generator.registers.private"
"compiler.intrinsics"
"compiler.tree"
"compiler.tree.builder"
"compiler.tree.checker"
"compiler.tree.cleanup"
"compiler.tree.combinators"
"compiler.tree.comparisons"
"compiler.tree.dead-code"
"compiler.tree.dead-code.branches"
"compiler.tree.dead-code.liveness"
"compiler.tree.dead-code.recursive"
"compiler.tree.dead-code.simple"
"compiler.tree.def-use"
"compiler.tree.escape-analysis"
"compiler.tree.escape-analysis.allocations"
"compiler.tree.escape-analysis.branches"
"compiler.tree.escape-analysis.nodes"
"compiler.tree.escape-analysis.recursive"
"compiler.tree.escape-analysis.simple"
"compiler.tree.finalization"
"compiler.tree.loop.detection"
"compiler.tree.normalization"
"compiler.tree.optimizer"
"compiler.tree.propagation"
"compiler.tree.propagation.branches"
"compiler.tree.propagation.constraints"
"compiler.tree.propagation.copy"
"compiler.tree.propagation.info"
"compiler.tree.propagation.inlining"
"compiler.tree.propagation.known-words"
"compiler.tree.propagation.nodes"
"compiler.tree.propagation.recursive"
"compiler.tree.propagation.simple"
"compiler.tree.propagation.slots"
"compiler.tree.strength-reduction"
"compiler.tree.tuple-unboxing"
"compiler.units"
"continuations"
"continuations.private"
"cpu.architecture"
"cpu.x86.64"
"cpu.x86.allot"
"cpu.x86.architecture"
"cpu.x86.assembler"
"cpu.x86.assembler.private"
"cpu.x86.assembler.syntax"
"cpu.x86.intrinsics"
"cpu.x86.sse2"
"debugger"
"debugger.threads"
"definitions"
"deques"
"destructors"
"destructors.private"
"disjoint-sets"
"disjoint-sets.private"
"dlists"
"dlists.private"
"effects"
"effects.parser"
"eval"
"fry"
"generalizations"
"generic"
"generic.math"
"generic.parser"
"generic.standard"
"generic.standard.engines"
"generic.standard.engines.predicate"
"generic.standard.engines.tag"
"generic.standard.engines.tuple"
"graphs"
"grouping"
"growable"
"hashtables"
"hashtables.private"
"heaps"
"heaps.private"
"help"
"help.crossref"
"help.definitions"
"help.markup"
"help.stylesheet"
"help.syntax"
"help.topics"
"hints"
"init"
"io"
"io.backend"
"io.binary"
"io.encodings"
"io.encodings.binary"
"io.encodings.private"
"io.encodings.string"
"io.encodings.utf16"
"io.encodings.utf16.private"
"io.encodings.utf8"
"io.encodings.utf8.private"
"io.files"
"io.files.private"
"io.streams.byte-array"
"io.streams.c"
"io.streams.memory"
"io.streams.nested"
"io.streams.plain"
"io.streams.string"
"io.styles"
"io.thread"
"kernel"
"kernel.private"
"layouts"
"lexer"
"libc"
"libc.private"
"listener"
"locals"
"locals.backend"
"locals.private"
"macros"
"macros.expander"
"macros.expander.private"
"math"
"math.bitwise"
"math.bitwise.private"
"math.complex"
"math.complex.private"
"math.constants"
"math.floats"
"math.floats.private"
"math.functions"
"math.functions.private"
"math.integers"
"math.integers.private"
"math.intervals"
"math.libm"
"math.order"
"math.parser"
"math.parser.private"
"math.partial-dispatch"
"math.private"
"math.ranges"
"math.ratios"
"math.ratios.private"
"memoize"
"memory"
"namespaces"
"namespaces.private"
"none"
"parser"
"prettyprint"
"prettyprint.backend"
"prettyprint.config"
"prettyprint.private"
"prettyprint.sections"
"qualified"
"quotations"
"quotations.private"
"sbufs"
"sbufs.private"
"scratchpad"
"search-deques"
"sequences"
"sequences.deep"
"sequences.private"
"sets"
"slots"
"slots.private"
"sorting"
"sorting.private"
"source-files"
"splitting"
"stack-checker"
"stack-checker.alien"
"stack-checker.backend"
"stack-checker.branches"
"stack-checker.errors"
"stack-checker.inlining"
"stack-checker.known-words"
"stack-checker.state"
"stack-checker.transforms"
"stack-checker.visitor"
"stack-checker.visitor.dummy"
"strings"
"strings.parser"
"strings.private"
"summary"
"syntax"
"system"
"system.private"
"threads"
"threads.private"
"tools.profiler.private"
"vectors"
"vectors.private"
"vocabs"
"vocabs.loader"
"words"
"bootstrap.tools"
"tools.deploy"
"tools.deploy.macosx"
{ "! Copyright (C) 2007, 2008 Slava Pestov."...
V{ }
"cocoa"
(( object object object -- object ))
T{ alien-invoke-params f "id" ~array~ "cdecl" ~array~ ~array~ f...
16
stack-params
T{ no-method f stack-params reg-class-variable }
( scratchpad ) :r
{ "resource:basis/bootstrap/stage2.factor" }
1220939898094
[ compiler-report ]
11
[ ~array~ nth-unsafe "bootstrap." prepend require ]
5
T{ vocab f "bootstrap.tools" ~hashtable~ f f t f }
15
[ ~array~ nth-unsafe require ]
4
T{ vocab f "tools.deploy" ~hashtable~ f f t f }
T{ vocab f "tools.deploy.macosx" ~hashtable~ f f f f }
[ finish-compilation-unit updated-definitions...
f
19
[ ~array~ nth-unsafe use+ ]
12
T{ vocab f "cocoa" ~hashtable~ f f t f }
[ ]
[ ~search-deque~ pop-back (compile) yield ]
[ ~search-deque~ deque-empty? not ]
4
[ ~array~ nth-unsafe \...
2
{ }
V{ 72 187 0 0 0 0 0 0 0 0 ~rel-fixup~ %prologue-later ~label~...
[ current-node generate-node ]
5
{ 0 8 16 24 32 }
{ ~c-type~ ~c-type~ ~c-type~ ~c-type~ ~c-type~ }
2
stack-params
( scratchpad ) :c
[ [ dup parse-file call ] assert-depth -> drop ]
[
>r datastack r>
dip ->
>r datastack r>
2dup [ length ] compare { ~array~ ~array~ ~array~ } case
]
[ >r call -> r> ]
[ swap >c call -> c> drop ]
[
millis
>r default-image-name "output-image" set-global
"math compiler threads help io tools ui ui.tools random unicode
handbook"
"include" set-global "" "exclude" set-global
parse-command-line "-no-crossref" cli-args member?
[ do-crossref ] unless os wince?
[ "windows.ce" require ] when os winnt?
[ "windows.nt" require ] when "deploy-vocab" get
[ "stage2: deployment mode" print ]
[ "listener" require "none" require ] if
[ load-components run-bootstrap-init ] with-compiler-errors
-> :errors f error set-global
f error-continuation set-global "deploy-vocab" get
[ "tools.deploy.shaker" run ] [
~quotation~ set-boot-quot millis r>
- dup bootstrap-time set-global print-report
"output-image" get save-image-and-exit
] if
]
[ H{ } clone >n call -> ndrop ]
[ over >r compose [ dip rethrow ] curry recover -> r> call ]
[ swap >c call -> c> drop ]
[ load-components -> run-bootstrap-init ]
[ iterate-step -> iterate-next (each-integer) ]
[ swap >r 2dup 2slip -> r> swap ]
[ >r >r call -> r> r> ]
[ load-vocab -> drop ]
[ dup load-vocab-hook get call -> vocab ]
[ swap >c call -> c> drop ]
[
dup vocab-source-loaded? [ load-source ] unless
-> dup vocab-docs-loaded? [ load-docs ] unless drop
]
[ >r call -> r> ]
[ iterate-step -> iterate-next (each-integer) ]
[ swap >r 2dup 2slip -> r> swap ]
[ >r >r call -> r> r> ]
[ load-vocab -> drop ]
[ dup load-vocab-hook get call -> vocab ]
[ swap >c call -> c> drop ]
[
dup vocab-source-loaded? [ load-source ] unless
-> dup vocab-docs-loaded? [ load-docs ] unless drop
]
[ >r call -> r> ]
[ load-vocab -> drop ]
[ dup load-vocab-hook get call -> vocab ]
[ swap >c call -> c> drop ]
[
dup vocab-source-loaded? [ load-source ] unless
-> dup vocab-docs-loaded? [ load-docs ] unless drop
]
[
f over set-vocab-source-loaded?
[ vocab-source-path ~quotation~ ~quotation~ if* ] keep
-> t over set-vocab-source-loaded?
[ ~quotation~ ~quotation~ if-bootstrapping ] dip
]
[ >r call -> r> ]
[ swap >c call -> c> drop ]
[ H{ } clone >n call -> ndrop ]
[ over >r compose [ dip rethrow ] curry recover -> r> call ]
[ swap >c call -> c> drop ]
[ H{ } clone >n call -> ndrop ]
[ swap >c call -> c> drop ]
[ lines dup parse-fresh -> tuck finish-parsing forget-smudged ]
[ H{ } clone >n call -> ndrop ]
[ swap >c call -> c> drop ]
[ f parse-until -> >quotation ]
[ dup >r parse-step -> [ r> (parse-until) ] [ r> drop ] if ]
[ nip execute-parsing -> t ]
[ iterate-step -> iterate-next (each-integer) ]
[ swap >r 2dup 2slip -> r> swap ]
[ >r >r call -> r> r> ]
[ load-vocab -> (use+) ]
[ dup load-vocab-hook get call -> vocab ]
[ swap >c call -> c> drop ]
[
dup vocab-source-loaded? [ load-source ] unless
-> dup vocab-docs-loaded? [ load-docs ] unless drop
]
[ >r call -> r> ]
[ H{ } clone >n call -> ndrop ]
[
finish-compilation-unit -> updated-definitions
notify-definition-observers
]
[
call-recompile-hook -> call-update-tuples-hook
unxref-forgotten-definitions dup
[ drop crossref? ] assoc-contains? modify-code-heap
]
[ H{ } clone >n call -> ndrop ]
[
<hashed-dlist> compile-queue set H{ } clone compiled set
[ queue-compile ] each compile-queue get compile-loop
-> compiled get >alist
]
[ >r tuck 2slip -> r> while ]
[ >r >r call -> r> r> ]
[ (compile) -> yield ]
[ H{ } clone >n call -> ndrop ]
[ iterate-step -> iterate-next (each-integer) ]
[ swap >r 2dup 2slip -> r> swap ]
[ >r >r call -> r> r> ]
[ H{ } clone >n call -> ndrop ]
[ >r begin-compiling r> { } make -> fixup save-machine-code ]
[ H{ } clone >n call -> ndrop ]
[ [ 1024 swap new-resizable ~quotation~ keep ] keep -> like ]
[ >r call -> r> ]
[ >r call -> r> ]
[ >r associate >n r> call -> ndrop ]
[
[ current-node generate-node ] iterate-nodes
-> end-basic-block
]
[ [ swap >node call node> drop ] keep -> iterate-nodes ]
[ >r call -> r> ]
[ swap >node call -> node> drop ]
[ swap set-stack-frame call -> f set-stack-frame ]
[
end-basic-block %prepare-alien-invoke dup objects>registers
-> %prepare-var-args dup alien-invoke-dlsym %alien-invoke
dup %cleanup box-return* iterate-next
]
objects>registers
alloc-parameter
reg-class-full?
reg-class-variable
no-method
throw
[
63 getenv error-thread set-global
continuation -> error-continuation set-global rethrow
]
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
