فهرست منبع

Use pointers instead of ints.

woollybah 11 سال پیش
والد
کامیت
e6955eb325
1فایلهای تغییر یافته به همراه3 افزوده شده و 3 حذف شده
  1. 3 3
      openalaudio.mod/openalaudio.bmx

+ 3 - 3
openalaudio.mod/openalaudio.bmx

@@ -95,7 +95,7 @@ Type TOpenALSource
 End Type
 End Type
 
 
 Function EnumOpenALDevices$[]()
 Function EnumOpenALDevices$[]()
-	Local p:Byte Ptr=alcGetString( 0,ALC_DEVICE_SPECIFIER )
+	Local p:Byte Ptr=alcGetString(Null,ALC_DEVICE_SPECIFIER )
 	If Not p Return
 	If Not p Return
 	Local devs$[100],n
 	Local devs$[100],n
 	While p[0] And n<100
 	While p[0] And n<100
@@ -374,7 +374,7 @@ Type TOpenALAudioDriver Extends TAudioDriver
 		Return t
 		Return t
 	End Function
 	End Function
 	
 	
-	Field _name$,_devname$,_device,_context
+	Field _name$,_devname$,_device:Byte Ptr,_context:Byte Ptr
 
 
 End Type
 End Type
 
 
@@ -394,7 +394,7 @@ Function EnableOpenALAudio()
 		For Local devname$=EachIn EnumOpenALDevices()
 		For Local devname$=EachIn EnumOpenALDevices()
 			TOpenALAudioDriver.Create( "OpenAL "+devname,devname )
 			TOpenALAudioDriver.Create( "OpenAL "+devname,devname )
 		Next
 		Next
-		TOpenALAudioDriver.Create "OpenAL Default",String.FromCString( alcGetString( 0,ALC_DEFAULT_DEVICE_SPECIFIER ) )
+		TOpenALAudioDriver.Create "OpenAL Default",String.FromCString( alcGetString( Null,ALC_DEFAULT_DEVICE_SPECIFIER ) )
 		okay=True
 		okay=True
 	EndIf
 	EndIf
 	done=True
 	done=True