On 09/13/2010 03:37 PM, Paolo Bonzini wrote:

>> this is fixing my test case, now the question is what am I going to break?
> 
> I think nothing.

Okay, so here is my proposal...


>From 94ec11f63f123a7a54d59b720ea9869e255fb2f5 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <[email protected]>
Date: Mon, 13 Sep 2010 16:19:50 +0800
Subject: [PATCH] GSTParser.st: Pass the argument as a smalltalk object
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="------------1.7.2.3"

This is a multi-part message in MIME format.
--------------1.7.2.3
Content-Type: text/plain; charset=UTF-8; format=fixed
Content-Transfer-Encoding: 8bit


Fix parsing CStruct subclass: NewClass [ <declaration: #( #(#num #int) ) > ]
by converting the argument to a smalltalk object and then passing it
to GSTParser class>>declaration:.

2010-09-13  Holger Hans Peter Freyther  <[email protected]>

	* GSTParser.st: GSTFileInParser>>parseClassTag pass the argument
	as a Smalltalk object.
---
 packages/stinst/parser/ChangeLog    |    5 +++++
 packages/stinst/parser/GSTParser.st |    2 +-
 2 files changed, 6 insertions(+), 1 deletions(-)


--------------1.7.2.3
Content-Type: text/x-patch; name="0001-GSTParser.st-Pass-the-argument-as-a-smalltalk-object.patch"
Content-Transfer-Encoding: 8bit
Content-Disposition: attachment; filename="0001-GSTParser.st-Pass-the-argument-as-a-smalltalk-object.patch"

diff --git a/packages/stinst/parser/ChangeLog b/packages/stinst/parser/ChangeLog
index 8ffbb43..2816b65 100644
--- a/packages/stinst/parser/ChangeLog
+++ b/packages/stinst/parser/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-13  Holger Hans Peter Freyther  <[email protected]>
+
+	* GSTParser.st: GSTFileInParser>>parseClassTag pass the argument
+	as a Smalltalk object.
+
 2010-08-26  Paolo Bonzini  <[email protected]>
 
 	* STLoader.st: Resolve PPFailure classSide properly. #classSide was
diff --git a/packages/stinst/parser/GSTParser.st b/packages/stinst/parser/GSTParser.st
index a96e936..2b194a2 100644
--- a/packages/stinst/parser/GSTParser.st
+++ b/packages/stinst/parser/GSTParser.st
@@ -253,7 +253,7 @@ STInST.STFileInParser subclass: GSTFileInParser [
                      self evaluateStatement: stmt]
             ifFalse: [self evaluateMessageOn: taggee
                            selector: selector
-                           argument: argument token value]
+                           argument: argument value]
     ]
     
     parseClassVariable [ 

--------------1.7.2.3--


_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk

Reply via email to