Ignore:
Timestamp:
Apr 30, 2007, 1:56:57 PM (18 years ago)
Author:
イグトランス (egtra)
Message:

Controlがコンパイルできるように修正

File:
1 edited

Legend:

Unmodified
Added
Removed

  • Include/basic/function.sbp

    r214 r223  
    10591059Function _System_BSwap(x As Word) As Word
    10601060    Dim src = VarPtr(x) As *Byte
    1061     Dim dst = VarPtr(_System_BSwap) As *SByte
     1061    Dim dst = VarPtr(_System_BSwap) As *Byte
    10621062    dst[0] = src[1]
    10631063    dst[1] = src[0]
    … …  
    10661066Function _System_BSwap(x As DWord) As DWord
    10671067    Dim src = VarPtr(x) As *Byte
    1068     Dim dst = VarPtr(_System_BSwap) As *SByte
     1068    Dim dst = VarPtr(_System_BSwap) As *Byte
    10691069    dst[0] = src[3]
    10701070    dst[1] = src[2]
    … …  
    10751075Function _System_BSwap(x As QWord) As QWord
    10761076    Dim src = VarPtr(x) As *Byte
    1077     Dim dst = VarPtr(_System_BSwap) As *SByte
     1077    Dim dst = VarPtr(_System_BSwap) As *Byte
    10781078    dst[0] = src[7]
    10791079    dst[1] = src[6]
Note: See TracChangeset for help on using the changeset viewer.