generic class: internal error

Monkey Forums/Monkey Programming/generic class: internal error

Rone	(Posted 2012) [#1]

Hi,
I get the following error..

Semanting...
(null)
STOPPED
F:/Tools/MonkeyPro66/generic_test.monkey<6> : Internal error
Monkey Runtime Error : F:/Tools/MonkeyPro66/generic_test.monkey<6> : Internal error

...with this generic classes

Import brl 
Import mojo


Function Main : Int()
	Local v:= Variable_Vector<Int>.Create(2)
	Return 1
End Function

'-------------------------------------

Interface IVariable
	Method Name:String()
	Method SetValue(val:Int)
	Method SetValue(val:float)
	Method SetValue(val:Int[])
	Method SetValue(val:Float[])
	Method SetValue(val:Vector)
End 
 
Class Variable Implements IVariable Abstract 

	Field _name:String 
	
	Method Name:String()
		Return _name
	End 
	
	Method SetValue(val:Int);End
	Method SetValue(val:float);End
	Method SetValue(val:Int[]);End
	Method SetValue(val:Float[]);End
	Method SetValue(val:Vector);End
	
End 

Class Variable_Vector < T > Extends Variable
	
	Field _value:T[]
	
	Function Create:IVariable(size)
		Select size
			Case 2
				Return New Variable_Vector2 < T >
			Case 3
				Return New Variable_Vector3 < T >
		End 
	End 
	
	Method SetValue(val:T[])
		Local length:= Min(val.Length,_value.Length)
		For Local i = 0 Until length
			_value[i] = val[i] 
		End 
	End 
	
End 

Class Variable_Vector2 < T > Extends Variable_Vector < T >

	Method New()
		_value.Resize(2)
	End 
	
	Method SetValue(val:Vector)
		'...
	End 
End 

Class Variable_Vector3 < T > Extends Variable_Vector < T >

	Method New()
		_value.Resize(3)
	End 
	
	Method SetValue(val:Vector)
		'...
	End 
End

If I call 'new Variable_Vector2<Int>' instead of 'Variable_Vector<Int>.Create(2)'...it compiles, am I doing something wrong??

Edit:

I solved it without generics.

MikeHart

(Posted 2012) [#2]

You are maybe missinz the NEW command here?

therevills

(Posted 2012) [#3]

I would be raising a bug thread for that one...