[Gd-chatter] r11457 - trunk/gwydion/tools/melange

[agent at gwydiondylan.org]

Author: agent
Date: Mon Sep 24 04:55:31 2007
New Revision: 11457

Modified:
   trunk/gwydion/tools/melange/c-decl-write.dylan
Log:
Job: gd
Made accessors inline instead of inline-only, so they can be exported and used in other libraries.



Modified: trunk/gwydion/tools/melange/c-decl-write.dylan
==============================================================================
--- trunk/gwydion/tools/melange/c-decl-write.dylan	(original)
+++ trunk/gwydion/tools/melange/c-decl-write.dylan	Mon Sep 24 04:55:31 2007
@@ -328,7 +328,7 @@
   // Write getter method
   unless(real-type.abstract-type?)
     format(stream,
-           "define %s inline-only method %s\n"
+           "define %s inline method %s\n"
              "    (ptr :: %s) => (result :: %s);\n"
              "  %s;\n"
              "end method %s;\n\n",
@@ -343,7 +343,7 @@
           & ~instance?(real-type, <non-atomic-types>))
       // Write setter method
       format(stream,
-             "define %s inline-only method %s-setter\n"
+             "define %s inline method %s-setter\n"
                "    (value :: %s, ptr :: %s) => (result :: %s);\n"
                "  %s := %s;\n"
                "  value;\n"
@@ -387,7 +387,7 @@
 			 real-type.start-bit, real-type.bits-in-field);
       // Write getter method
       format(stream,
-	     "define %s inline-only method %s\n"
+	     "define %s inline method %s\n"
 	       "    (ptr :: %s) => (result :: %s);\n"
 	       "  %s;\n"
 	       "end method %s;\n\n",
@@ -400,7 +400,7 @@
 	    & ~instance?(real-type, <non-atomic-types>))
 	// Write setter method
 	format(stream,
-	       "define %s inline-only method %s-setter\n"
+	       "define %s inline method %s-setter\n"
 		 "    (value :: %s, ptr :: %s) => (result :: %s);\n"
 		 "  let mask = lognot(ash((2 ^ %d) - 1, %d));\n"
 		 "  %s := logand(%s, mask) + ash(%s, %d);\n"