|
@@ -1996,25 +1996,28 @@ Class Translator_CPP Extends Translator
|
|
|
If ptype
|
|
|
|
|
|
If ptype.IsIntegral
|
|
|
-
|
|
|
+
|
|
|
+ Return TransType( value.type )+"("+value.value+")"
|
|
|
+#rem
|
|
|
If value.value="0" Return TransType( value.type )+"(0)"
|
|
|
|
|
|
Select value.type
|
|
|
Case Type.IntType
|
|
|
Local ivalue:=Int( value.value )
|
|
|
If String( ivalue )=value.value Return value.value
|
|
|
- Case Type.UIntType 'Return value.value+"u"
|
|
|
+ Case Type.UIntType
|
|
|
Local ivalue:=UInt( value.value )
|
|
|
- If String( ivalue )=value.value Return value.value+"u"
|
|
|
- Case Type.LongType 'Return value.value+"l"
|
|
|
+ If String( ivalue )=value.value Return "bbUInt("+value.value+")"
|
|
|
+ Case Type.LongType
|
|
|
Local ivalue:=Long( value.value )
|
|
|
- If String( ivalue )=value.value Return value.value+"l"
|
|
|
- Case Type.ULongType 'Return value.value+"ul"
|
|
|
+ If String( ivalue )=value.value Return "bbLong("+value.value+")"
|
|
|
+ Case Type.ULongType
|
|
|
Local ivalue:=ULong( value.value )
|
|
|
- If String( ivalue )=value.value Return value.value+"ul"
|
|
|
+ If String( ivalue )=value.value Return "bbULong("+value.value+")"
|
|
|
End
|
|
|
|
|
|
Return TransType( value.type )+"("+value.value+")"
|
|
|
+#end
|
|
|
|
|
|
Else If ptype.IsReal
|
|
|
|