]> gitweb.factorcode.org Git - factor.git/commitdiff
Merge branch 'master' of git://factorcode.org/git/factor
authorJoe Groff <arcata@gmail.com>
Mon, 31 Aug 2009 15:35:58 +0000 (10:35 -0500)
committerJoe Groff <arcata@gmail.com>
Mon, 31 Aug 2009 15:35:58 +0000 (10:35 -0500)
Conflicts:
basis/environment/winnt/winnt.factor
basis/io/files/windows/nt/nt.factor
basis/windows/shell32/shell32.factor

1  2 
basis/io/files/info/unix/netbsd/netbsd.factor
basis/io/files/info/unix/openbsd/openbsd.factor
basis/io/files/info/windows/windows.factor
basis/windows/errors/errors.factor
basis/windows/shell32/shell32.factor
extra/system-info/windows/windows.factor

index d2e7bc9d6b72c8e173927455eecf76b326ca8d6e,d2e7bc9d6b72c8e173927455eecf76b326ca8d6e..7c282583a1c96c2ef0e072af05626a1465c4ab27
@@@ -47,6 -47,6 +47,6 @@@ M: netbsd statvfs>file-system-info ( fi
  
  M: netbsd file-systems ( -- array )
      f 0 0 getvfsstat dup io-error
--    \ statvfs <c-type-array> dup dup length 0 getvfsstat io-error
++    \ statvfs <c-array> dup dup length 0 getvfsstat io-error
      \ statvfs heap-size group
      [ f_mntonname>> utf8 alien>string file-system-info ] map ;
index 6c334b8d62a78c7a1c6059635aaea6032388d57b,6c334b8d62a78c7a1c6059635aaea6032388d57b..242938a47c0be6cd0f26dc80ec44c16668028f05
@@@ -47,6 -47,6 +47,6 @@@ M: openbsd statvfs>file-system-info ( f
  
  M: openbsd file-systems ( -- seq )
      f 0 0 getfsstat dup io-error
--    \ statfs <c-type-array> dup dup length 0 getfsstat io-error 
++    \ statfs <c-array> dup dup length 0 getfsstat io-error 
      \ statfs heap-size group 
      [ f_mntonname>> alien>native-string file-system-info ] map ;
index 5551d34028f6c3fc20b329d6f62f3e10b0793501,ea9c297c449f8c0977817375a122ef9c8a445c3b..5a1bf74d19e04a860715b866fa6e8d7a1ff9b73f
@@@ -698,6 -696,8 +698,8 @@@ CONSTANT: FORMAT_MESSAGE_MAX_WIDTH_MAS
  : make-lang-id ( lang1 lang2 -- n )
      10 shift bitor ; inline
  
 -<< "TCHAR" require-c-type-arrays >>
++<< "TCHAR" require-c-arrays >>
  ERROR: error-message-failed id ;
  :: n>win32-error-string ( id -- string )
      {
      f
      id
      LANG_NEUTRAL SUBLANG_DEFAULT make-lang-id
-     32768 [ "TCHAR" <c-array> ] keep 
 -    32768 [ "TCHAR" <c-type-array> ] [ ] bi
++    32768 [ "TCHAR" <c-array> ] [ ] bi
      f pick [ FormatMessage 0 = [ id error-message-failed ] when ] dip
      utf16n alien>string [ blank? ] trim ;
  
Simple merge