Author Topic: binary assignment  (Read 54 times)

jcfuller

  • Jr. Member
  • **
  • Posts: 83
    • View Profile
binary assignment
« on: May 22, 2020, 09:20:31 AM »
Kevin,
Line 6726
  Changing:
Code: [Select]
      IF *Stk[Tmp] = ASC("0") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"x") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),".") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"l") THEN
        Stk$[Tmp] = LTRIM$(Stk$[Tmp],48)   'allow leading zero's in numbers
        IF Stk$[Tmp] = "" THEN Stk$[Tmp] = "0"
      END IF
[\code]
TO
[code]
      IF *Stk[Tmp] = ASC("0") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"b") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"x") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),".") AND NOT iMatchWrd(MID$(Stk$[Tmp],2,1),"l") THEN
        Stk$[Tmp] = LTRIM$(Stk$[Tmp],48)   'allow leading zero's in numbers
        IF Stk$[Tmp] = "" THEN Stk$[Tmp] = "0"
      END IF

Allows binary assinment:

Dim As Integer Index
Index = 0b00000000000000000000000001000000

James

MrBcx

  • Administrator
  • Sr. Member
  • *****
  • Posts: 284
    • View Profile
Re: binary assignment
« Reply #1 on: May 24, 2020, 01:51:25 PM »
James,

This will be included in 7.4.7.

Thank you