steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

windows.ole32 guid functions don't need to box the byte-arrays themselves anymore

Joe Groff 2009-08-26 09:28:10 -05:00
parent 2163982486
commit c908bd3868
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/windows/ole32/ole32.factor
View File

@ -148,7 +148,7 @@ TUPLE: ole32-error code message ;
[ ] [ ]
} 2cleave } 2cleave
GUID-Data4 8 <direct-uchar-array> { GUID-Data4 {
[ 20 22 0 (guid-byte>guid) ] [ 20 22 0 (guid-byte>guid) ]
[ 22 24 1 (guid-byte>guid) ] [ 22 24 1 (guid-byte>guid) ]
@ -175,7 +175,7 @@ TUPLE: ole32-error code message ;
[ [ GUID-Data3 ] 4 (guid-section%) "-" % ] [ [ GUID-Data3 ] 4 (guid-section%) "-" % ]
[ ] [ ]
} cleave } cleave
GUID-Data4 8 <direct-uchar-array> { GUID-Data4 {
[ 0 (guid-byte%) ] [ 0 (guid-byte%) ]
[ 1 (guid-byte%) "-" % ] [ 1 (guid-byte%) "-" % ]
[ 2 (guid-byte%) ] [ 2 (guid-byte%) ]