From 8bd818494dd3a5080d4a939f1868e741ee2ab41c Mon Sep 17 00:00:00 2001
From: ttate <ttate@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 10 Apr 2002 14:13:39 +0000
Subject: [PATCH] Implement the substitution for structure members.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2352 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/dl/lib/dl/struct.rb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ext/dl/lib/dl/struct.rb b/ext/dl/lib/dl/struct.rb
index b16aa6e6b0..6c21af71ac 100644
--- a/ext/dl/lib/dl/struct.rb
+++ b/ext/dl/lib/dl/struct.rb
@@ -30,7 +30,12 @@ module DL
 	    instance_eval [
 	      "def #{name}",
 	      "  v = @ptr[\"#{name}\"]",
-	      "  v = @dec[\"#{name}\"].call(v,#{@len}) if @dec[\"#{name}\"]",
+	      "  v = @dec[\"#{name}\"].call(v,@len[\"#{name}\"]) if @dec[\"#{name}\"]",
+	      "  return v",
+	      "end",
+	      "def #{name}=(v)",
+	      "  v = @enc[\"#{name}\"].call(v,@len[\"#{name}\"]) if @enc[\"#{name}\"]",
+	      "  @ptr[\"#{name}\"] = v",
 	      "  return v",
 	      "end",
 	    ].join("\n")