Code: Select all
Dim c As String
c = "abc"
do While True
Select Case c
Case "a"
Case "B"
End Select
Loop
Code: Select all
Dim c As String
c = "abc"
do While True
Select Case c
Case "a"
Case "B"
End Select
Loop
Code: Select all
Dim c As String
c = "abc"
do While True
Select Case c
Case "a"
Case "B"
End Select
print "ee",time
Loop
Code: Select all
{
{
uint16* TMP$4$2;
uint16* vr$3 = fb_StrToWstr( (uint8*)*(uint8**)&C$0 ); '' convert the select case string to wstr
TMP$4$2 = vr$3;
int32 vr$4 = fb_WstrCompare( (uint16*)TMP$4$2, (uint16*)L"a" ); '' check against case value
if( (vr$4 != 0) ) goto label$5; '' if not equal, go to next case
fb_WstrDelete( (uint16*)TMP$4$2 ); '' delete the converted string. Doesn't happen if they're not equal
}
}
Code: Select all
Dim c As String
c = "abc"
do While True
Select Case c
Case WStr("a")
Case WStr("B")
End Select
Loop
Yes, the same resultadeyblue wrote: ↑Jan 21, 2024 6:18 The genreated code for the case checksOopsy. Similarly happens with a 'normal' ascii file if you make the cases WStrCode: Select all
{ { uint16* TMP$4$2; uint16* vr$3 = fb_StrToWstr( (uint8*)*(uint8**)&C$0 ); '' convert the select case string to wstr TMP$4$2 = vr$3; int32 vr$4 = fb_WstrCompare( (uint16*)TMP$4$2, (uint16*)L"a" ); '' check against case value if( (vr$4 != 0) ) goto label$5; '' if not equal, go to next case fb_WstrDelete( (uint16*)TMP$4$2 ); '' delete the converted string. Doesn't happen if they're not equal } }
Code: Select all
Dim c As String c = "abc" do While True Select Case c Case WStr("a") Case WStr("B") End Select Loop
Well seen !adeyblue wrote: ↑Jan 21, 2024 6:18 Oopsy. Similarly happens with a 'normal' ascii file if you make the cases WStrCode: Select all
Dim c As String c = "abc" do While True Select Case c Case WStr("a") Case WStr("B") End Select Loop