Hi,
I've removed few line of codes that are not used in the vm:
gst_ordered_collection structure, ordered_collection_begin
and ordered_collection_end functions.
Cheers,
Gwen
>From 236a519dae585384137252578070c75a5420c524 Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio <mrg...@gmail.com>
Date: Fri, 14 Jun 2013 21:07:10 +0200
Subject: [PATCH] Remove useless code
---
ChangeLog | 5 +++++
libgst/dict.h | 8 --------
libgst/dict.inl | 27 ---------------------------
3 files changed, 5 insertions(+), 35 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index a649b8e..9b013f0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-14 Gwenael Casaccio <gwenael.casac...@gmail.com>
+
+ * libgst/dict.c: Remove useless code: gst_ordered_collection structure.
+ * libgst/dict.inl: Remove useless code: ordered_collection_begin and ordered_collection_end.
+
2013-06-06 Gwenael Casaccio <gwenael.casac...@gmail.com>
* kernel/ContextPart.st: Remove useless optimizations.
diff --git a/libgst/dict.h b/libgst/dict.h
index 93224c9..9202b23 100644
--- a/libgst/dict.h
+++ b/libgst/dict.h
@@ -320,14 +320,6 @@ typedef struct gst_char
OOP codePoint;
} *gst_char;
-typedef struct gst_ordered_collection
-{
- OBJ_HEADER;
- OOP firstIndex;
- OOP lastIndex;
- OOP data[1];
-} *gst_ordered_collection;
-
typedef struct gst_cobject
{
OBJ_HEADER;
diff --git a/libgst/dict.inl b/libgst/dict.inl
index 8e2f56f..434906a 100644
--- a/libgst/dict.inl
+++ b/libgst/dict.inl
@@ -54,14 +54,6 @@
/* Scramble the bits of X. */
static inline uintptr_t scramble (uintptr_t x);
-/* Return a pointer to the first item in the OrderedCollection,
- ORDEREDCOLLECTIONOOP. */
-static inline OOP *ordered_collection_begin (OOP orderedCollectionOOP);
-
-/* Return a pointer just beyond the last item in the OrderedCollection,
- ORDEREDCOLLECTIONOOP. */
-static inline OOP *ordered_collection_end (OOP orderedCollectionOOP);
-
/* Checks to see if TESTEDOOP is a subclass of CLASS_OOP, returning
true if it is. */
static inline mst_Boolean is_a_kind_of (OOP testedOOP,
@@ -812,25 +804,6 @@ instantiate (OOP class_oop,
}
-OOP *
-ordered_collection_begin (OOP orderedCollectionOOP)
-{
- gst_ordered_collection oc;
-
- oc = (gst_ordered_collection) OOP_TO_OBJ (orderedCollectionOOP);
- return &oc->data[TO_INT (oc->firstIndex) - 1];
-}
-
-OOP *
-ordered_collection_end (OOP orderedCollectionOOP)
-{
- gst_ordered_collection oc;
-
- oc = (gst_ordered_collection) OOP_TO_OBJ (orderedCollectionOOP);
- return &oc->data[TO_INT (oc->lastIndex)];
-}
-
-
OOP
dictionary_association_at (OOP dictionaryOOP,
OOP keyOOP)
--
1.8.1.2
_______________________________________________
help-smalltalk mailing list
help-smalltalk@gnu.org
https://lists.gnu.org/mailman/listinfo/help-smalltalk
