]> gitweb.factorcode.org Git - factor.git/commitdiff
Fix conflict in libc
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Fri, 6 Feb 2009 11:10:41 +0000 (05:10 -0600)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Fri, 6 Feb 2009 11:10:41 +0000 (05:10 -0600)
1  2 
basis/cocoa/messages/messages.factor
basis/cocoa/views/views.factor
basis/html/streams/streams.factor
basis/html/templates/chloe/syntax/syntax.factor
basis/libc/libc.factor
basis/opengl/opengl.factor
basis/windows/com/wrapper/wrapper.factor
basis/xml/tests/xmltest.factor
basis/xml/writer/writer-tests.factor

Simple merge
Simple merge
Simple merge
index 45365d4296021375801f6e0e5c3506a77cc5acf5,1e751833a22c759e3e3d0b9706032f260182ed3b..623d2f23afcc81d5c4787a7e3cc58311ceb90279
@@@ -67,18 -67,22 +67,19 @@@ M: realloc-error summar
  PRIVATE>
  
  : malloc ( size -- alien )
 -    (malloc) check-ptr
 -    dup add-malloc ;
 +    (malloc) check-ptr add-malloc ;
  
  : calloc ( count size -- alien )
 -    (calloc) check-ptr
 -    dup add-malloc ;
 +    (calloc) check-ptr add-malloc ;
  
  : realloc ( alien size -- newalien )
+     [ >c-ptr ] dip
      over malloc-exists? [ realloc-error ] unless
 -    dupd (realloc) check-ptr
 -    swap delete-malloc
 -    dup add-malloc ;
 +    [ drop ] [ (realloc) check-ptr ] 2bi
 +    [ delete-malloc ] [ add-malloc ] bi* ;
  
  : free ( alien -- )
-     [ delete-malloc ] [ (free) ] bi ;
+     >c-ptr [ delete-malloc ] [ (free) ] bi ;
  
  : memcpy ( dst src size -- )
      "void" "libc" "memcpy" { "void*" "void*" "ulong" } alien-invoke ;
index 620834c7d4285a970984b64371b24951509c4544,6d9ac95965767fbe5cb5245b78394f1919da6401..7dea8a0cdcffeec09270d2c33017715c1ec4cb87
@@@ -174,10 -177,10 +174,10 @@@ MACRO: all-enabled-client-state ( seq q
      glActiveTexture swap glBindTexture gl-error ;
  
  : (set-draw-buffers) ( buffers -- )
-     [ length ] [ >uint-array underlying>> ] bi glDrawBuffers ;
+     [ length ] [ >uint-array ] bi glDrawBuffers ;
  
  MACRO: set-draw-buffers ( buffers -- )
 -    words>values [ (set-draw-buffers) ] curry ;
 +    words>values '[ _ (set-draw-buffers) ] ;
  
  : do-attribs ( bits quot -- )
      swap glPushAttrib call glPopAttrib ; inline
Simple merge
Simple merge