Skip to content

gforth
gforth
Verified Commit 4dd816ca authored by Bernd Paysan's avatar Bernd Paysan
Browse files
Options

Align LP stack for 32 bits in the new code

parent b37aa080
Pipeline #876 passed with stage
    in 10 minutes and 12 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 0 deletions
    kernel/int.fs
    View file @ 4dd816ca
    ...@@ -585,6 +585,7 @@ defer int-execute ( ... xt -- ... ) ...@@ -585,6 +585,7 @@ defer int-execute ( ... xt -- ... )
    : interpret ( ... -- ... ) \ gforth : interpret ( ... -- ... ) \ gforth
    \ interpret/compile the (rest of the) input buffer \ interpret/compile the (rest of the) input buffer
    [ cell 4 = [IF] ] false >l [ [THEN] ] \ align LP stack for 32 bit engine
    r> >l rp@ backtrace-rp0 ! r> >l rp@ backtrace-rp0 !
    [ has? EC 0= [IF] ] before-line [ [THEN] ] [ has? EC 0= [IF] ] before-line [ [THEN] ]
    BEGIN BEGIN
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment