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

windows.uniscribe: re-commit the &dispose removal.

clean-linux-x86-64
John Benediktsson 2019-08-04 08:27:21 -07:00
parent 98ee3abcae
commit 05e8957732
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/uniscribe/uniscribe.factor
View File

@ -18,7 +18,7 @@ CONSTANT: ssa-dwFlags flags{ SSA_GLYPHS SSA_FALLBACK SSA_TAB }
:: >codepoint-index ( str utf16-index -- codepoint-index ) :: >codepoint-index ( str utf16-index -- codepoint-index )
0 utf16-index 2 * str utf16n encode subseq utf16n decode length ; 0 utf16-index 2 * str utf16n encode subseq utf16n decode length ;
:: >utf16-index ( str codepoint-index -- utf16-index ) :: >utf16-index ( str codepoint-index -- utf16-index )
0 codepoint-index str subseq utf16n encode length 2 / >integer ; 0 codepoint-index str subseq utf16n encode length 2 / >integer ;
@ -169,5 +169,5 @@ SYMBOL: cached-script-strings
] with-memory-dc ] with-memory-dc
] unless image>> ; ] unless image>> ;
[ <cache-assoc> &dispose cached-script-strings set-global ] [ <cache-assoc> cached-script-strings set-global ]
"windows.uniscribe" add-startup-hook "windows.uniscribe" add-startup-hook