diff --git a/core/cpu/ppc/bootstrap.factor b/core/cpu/ppc/bootstrap.factor index 705ddac06d..49955d9f38 100755 --- a/core/cpu/ppc/bootstrap.factor +++ b/core/cpu/ppc/bootstrap.factor @@ -14,13 +14,13 @@ big-endian on : ds-reg 14 ; : rs-reg 15 ; -: factor-area-size 4 bootstrap-cells ; +: factor-area-size ( -- n ) 4 bootstrap-cells ; -: stack-frame +: stack-frame ( -- n ) factor-area-size c-area-size + 4 bootstrap-cells align ; -: next-save stack-frame bootstrap-cell - ; -: xt-save stack-frame 2 bootstrap-cells - ; +: next-save ( -- n ) stack-frame bootstrap-cell - ; +: xt-save ( -- n ) stack-frame 2 bootstrap-cells - ; [ 0 6 LOAD32 diff --git a/core/cpu/ppc/linux/bootstrap.factor b/core/cpu/ppc/linux/bootstrap.factor index 3900ca7f88..e0f8bf0b21 100755 --- a/core/cpu/ppc/linux/bootstrap.factor +++ b/core/cpu/ppc/linux/bootstrap.factor @@ -3,8 +3,8 @@ USING: parser layouts system kernel ; IN: bootstrap.ppc -: c-area-size 10 bootstrap-cells ; -: lr-save bootstrap-cell ; +: c-area-size ( -- n ) 10 bootstrap-cells ; +: lr-save ( -- n ) bootstrap-cell ; << "resource:core/cpu/ppc/bootstrap.factor" parse-file parsed >> call diff --git a/core/cpu/ppc/macosx/bootstrap.factor b/core/cpu/ppc/macosx/bootstrap.factor index db5e3a343f..06b02d3182 100755 --- a/core/cpu/ppc/macosx/bootstrap.factor +++ b/core/cpu/ppc/macosx/bootstrap.factor @@ -3,8 +3,8 @@ USING: parser layouts system kernel ; IN: bootstrap.ppc -: c-area-size 14 bootstrap-cells ; -: lr-save 2 bootstrap-cells ; +: c-area-size ( -- n ) 14 bootstrap-cells ; +: lr-save ( -- n ) 2 bootstrap-cells ; << "resource:core/cpu/ppc/bootstrap.factor" parse-file parsed >> call