From 54df4ada76c51b829c719486feed62f2535ac3d5 Mon Sep 17 00:00:00 2001
From: Richard Frith-MacDonald <rfm@gnu.org>
Date: Sat, 18 Mar 2000 07:56:43 +0000
Subject: [PATCH] Added methods

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@6320 72102866-910b-0410-8b05-ffd578937521
---
 ChangeLog         |  4 ++++
 Source/NSNumber.m | 27 +++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 5addf54cb..da913ac90 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-03-18  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/NSNumber.m: Added private methods from concrete class.
+
 2000-03-17  Adam Fedor  <fedor@gnu.org>
 
 	* Documentation/coding-standards.tmpl.texi: Update
diff --git a/Source/NSNumber.m b/Source/NSNumber.m
index d8e2c5ab9..58e1c2436 100644
--- a/Source/NSNumber.m
+++ b/Source/NSNumber.m
@@ -31,6 +31,12 @@
 #include <Foundation/NSConcreteNumber.h>
 #include <Foundation/NSCoder.h>
 
+@interface NSNumber (Private)
+- (int)_nextOrder;
+- (NSComparisonResult) _promotedCompare: (NSNumber*)other;
+- (int)_typeOrder;
+@end
+
 @implementation NSNumber
 
 static Class	abstractClass;
@@ -524,4 +530,25 @@ static Class	doubleNumberClass;
   return nil;
 }
 
+- (int)_nextOrder
+{
+  return 12;
+}
+- (NSComparisonResult) _promotedCompare: (NSNumber*)other
+{
+  double	v0, v1;
+
+  v0 = [self doubleValue];
+  v1 = [other doubleValue];
+
+  if (v0 == v1)
+    return NSOrderedSame;
+  else
+    return (v0 < v1) ?  NSOrderedAscending : NSOrderedDescending;
+}
+- (int)_typeOrder
+{
+  return 12;
+}
+
 @end