|
@@ -300,7 +300,7 @@ Class LiteralValue Extends Value
|
|
Else If ptype2.IsReal
|
|
Else If ptype2.IsReal
|
|
result=Double( value ) ? "true" Else "false"
|
|
result=Double( value ) ? "true" Else "false"
|
|
Else If ptype2=Type.StringType
|
|
Else If ptype2=Type.StringType
|
|
- result=value<>""
|
|
|
|
|
|
+ result=Bool( value ) ? "true" Else "false"
|
|
Else
|
|
Else
|
|
SemantError( "LiteralValue.UpCast()" )
|
|
SemantError( "LiteralValue.UpCast()" )
|
|
Endif
|
|
Endif
|