develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35283 - trunk/languages/befunge

From:
jquelin
Date:
January 9, 2009 03:07
Subject:
[svn:parrot] r35283 - trunk/languages/befunge
Message ID:
20090109110658.283C2CB9F9@x12.develooper.com
Author: jquelin
Date: Fri Jan  9 03:06:57 2009
New Revision: 35283

Modified:
   trunk/languages/befunge/maths.pir

Log:
fix comments


Modified: trunk/languages/befunge/maths.pir
==============================================================================
--- trunk/languages/befunge/maths.pir	(original)
+++ trunk/languages/befunge/maths.pir	Fri Jan  9 03:06:57 2009
@@ -5,6 +5,8 @@
 # befunge stack:
 #   before:     ...
 #   after:      ... <number>
+# no return value.
+#
 .sub maths__push_number
     $P0 = get_global "status"
     $S0 = $P0["char"]
@@ -22,6 +24,7 @@
 # befunge stack:
 #   before:     ... a b
 #   after:      ... a+b
+# no return value.
 #
 .sub "maths__add"
     $I1 = stack__pop()
@@ -38,6 +41,7 @@
 # befunge stack:
 #   before:     ... a b
 #   after:      ... a/b
+# no return value.
 #
 .sub "maths__div"
     $I1 = stack__pop()
@@ -54,6 +58,7 @@
 # befunge stack:
 #   before:     ... a b
 #   after:      ... a%b
+# no return value.
 #
 .sub "maths__mod"
     $I1 = stack__pop()
@@ -71,6 +76,7 @@
 #   before:     ... a b
 #   after:      ... a*b
 # no return value.
+# no return value.
 #
 .sub "maths__mul"
     $I1 = stack__pop()
@@ -87,6 +93,7 @@
 # befunge stack:
 #   before:     ... a
 #   after:      ... not(a)
+# no return value.
 #
 .sub "maths__not"
     $I0 = stack__pop()
@@ -102,6 +109,7 @@
 # befunge stack:
 #   before:     ... a b
 #   after:      ... a-b
+# no return value.
 #
 .sub "maths__sub"
     $I1 = stack__pop()



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About