Author: jquelin
Date: Fri Jan 9 01:09:43 2009
New Revision: 35250
Modified:
trunk/languages/befunge/stack.pir
Log:
using stack__pop() in stack__duplicate()
Modified: trunk/languages/befunge/stack.pir
==============================================================================
--- trunk/languages/befunge/stack.pir (original)
+++ trunk/languages/befunge/stack.pir Fri Jan 9 01:09:43 2009
@@ -10,17 +10,12 @@
# no return value
#
.sub "stack__duplicate"
- $P0 = get_global "stack"
-
- $I0 = $P0
- if $I0 == 0 goto STACK__DUPLICATE_END
+ $I0 = stack__pop()
- $I1 = pop $P0
- push $P0, $I1
- push $P0, $I1
+ $P0 = get_global "stack"
+ push $P0, $I0
+ push $P0, $I0
set_global "stack", $P0
-
- STACK__DUPLICATE_END:
.return()
.end
