wingo pushed a commit to branch master in repository guile. commit 17cb3214558f88ee7923ba28a72cdd3afd919670 Author: Andy Wingo <wi...@pobox.com> Date: Mon Oct 30 12:07:26 2017 +0100
RTL test uses new instructions * test-suite/tests/rtl.test ("loop"): Update to use new instructions. --- test-suite/tests/rtl.test | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/test-suite/tests/rtl.test b/test-suite/tests/rtl.test index 316f455..fcb3666 100644 --- a/test-suite/tests/rtl.test +++ b/test-suite/tests/rtl.test @@ -1,6 +1,6 @@ ;;;; Low-level tests of the bytecode assembler -*- mode: scheme; coding: utf-8; -*- ;;;; -;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc. +;;;; Copyright (C) 2010, 2011, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -116,16 +116,17 @@ a procedure." (begin-standard-arity (x) 4 #f) (definition closure 0 scm) (definition x 1 scm) - (br fix-body) + (j fix-body) (label loop-head) - (br-if-= 1 2 #f out) + (=? 1 2) + (je out) (add 0 1 0) (add/immediate 1 1 1) - (br loop-head) + (j loop-head) (label fix-body) (load-constant 1 0) (load-constant 0 0) - (br loop-head) + (j loop-head) (label out) (mov 2 0) (return-values 2)