Преглед на файлове

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