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

compiler, stack-checker docs: Fix for 32-bit builds.

db4
Doug Coleman 2014-07-03 12:21:17 -07:00
parent a6ce3e9113
commit 712aa303db
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/gc-checks/gc-checks-docs.factor
View File

@ -24,10 +24,10 @@ HELP: allocation-size
{ $values { "insns" { $link sequence } " of " { $link insn } } { "n" number } } { $values { "insns" { $link sequence } " of " { $link insn } } { "n" number } }
{ $description "Calculates the total number of bytes allocated by the block." } { $description "Calculates the total number of bytes allocated by the block." }
{ $examples { $examples
{ $example { $unchecked-example
"USING: accessors compiler.cfg.debugger compiler.cfg.gc-checks.private kernel prettyprint sequences ;" "USING: accessors compiler.cfg.debugger compiler.cfg.gc-checks.private kernel prettyprint sequences ;"
"[ V{ } clone ] test-ssa first entry>> successors>> first instructions>> allocation-size ." "[ V{ } clone ] test-ssa first entry>> successors>> first instructions>> allocation-size ."
"32" "32 ! 16 on 32-bit"
} }
} ; } ;

2
basis/stack-checker/alien/alien-docs.factor
View File

@ -14,7 +14,7 @@ HELP: param-prep-quot
{ $values { "params" alien-node-params } { "quot" quotation } } { $values { "params" alien-node-params } { "quot" quotation } }
{ $description "Builds a quotation which coerces values on the stack to the required types for the alien call." } { $description "Builds a quotation which coerces values on the stack to the required types for the alien call." }
{ $examples { $examples
{ $example { $unchecked-example
"USING: alien.c-types prettyprint stack-checker.alien ;" "USING: alien.c-types prettyprint stack-checker.alien ;"
"T{ alien-invoke-params { parameters { void* c-string int } } } param-prep-quot ." "T{ alien-invoke-params { parameters { void* c-string int } } } param-prep-quot ."
"[ [ [ [ ] dip >c-ptr ] dip \\ utf8 string>alien ] dip >fixnum ]" "[ [ [ [ ] dip >c-ptr ] dip \\ utf8 string>alien ] dip >fixnum ]"