Paste: segfault

Author: blei
Mode: factor
Date: Sat, 15 May 2010 18:56:02
Plain Text | 
factor % ./factor
Error in thread 16 (UI update, [ self ui-thread set-global update-ui-loop ]):

Memory protection fault at address 0

(U) Quotation: [ set-namestack init-catchstack self quot>> call -> stop ]
(O) Word: update-ui-loop
(O) Word: update-ui
(O) Word: notify-queued
(O) Method: M\ world graft*
(O) Method: M\ x11-ui-backend (open-window)
(O) Word: gadget-window
(O) Word: create-xic
(O) Word: XCreateIC
(U) Quotation: [
        63 special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]

Annotation: patch

Author: blei
Mode: factor
Date: Sat, 15 May 2010 20:49:11
Plain Text | 
diff --git a/basis/compiler/cfg/builder/alien/alien.factor b/basis/compiler/cfg/builder/alien/alien.factor
index d3bcbd3..6c7a20e 100644
--- a/basis/compiler/cfg/builder/alien/alien.factor
+++ b/basis/compiler/cfg/builder/alien/alien.factor
@@ -72,7 +72,7 @@ M:: struct-c-type unbox-parameter ( src c-type -- )
         [ [ alloc-stack-param ] keep \ ##store-stack-param new-insn ]
         [ [ next-reg-param ] keep \ ##store-reg-param new-insn ]
         if
-    ] map [ ##store-stack-param? ] partition [ % ] bi@ ;
+    ] map reverse % ;
 
 : objects>registers ( params -- stack-size )
     [ abi>> ] [ parameters>> ] [ return>> ] tri

New Annotation

Summary:
Author:
Mode:
Body: