浏览代码

Use Long argument for seek function.

woollybah 11 年之前
父节点
当前提交
4ed0902164
共有 1 个文件被更改,包括 4 次插入8 次删除
  1. 4 8
      oggloader.mod/oggloader.bmx

+ 4 - 8
oggloader.mod/oggloader.bmx

@@ -31,14 +31,10 @@ Function readfunc( buf@Ptr,size,nmemb,src:Object )
 	Return bytes/size
 	Return bytes/size
 End Function
 End Function
 
 
-Function seekfunc( src_obj:Object,off0,off1,whence )
+Function seekfunc( src_obj:Object,offset:Long,whence )
 	Local off
 	Local off
 	Local src:TStream=TStream(src_obj)
 	Local src:TStream=TStream(src_obj)
-?X86
-	off=off0
-?PPC
-	off=off1
-?
+
 	Local res=-1
 	Local res=-1
 	Select whence
 	Select whence
 		Case 0
 		Case 0
@@ -69,9 +65,9 @@ Type TAudioSampleLoaderOGG Extends TAudioSampleLoader
 		If Not ogg Return
 		If Not ogg Return
 
 
 		Local format
 		Local format
-?PPC
+?BigEndian
 		If channels=1 format=SF_MONO16BE Else format=SF_STEREO16BE
 		If channels=1 format=SF_MONO16BE Else format=SF_STEREO16BE
-?X86
+?LittleEndian
 		If channels=1 format=SF_MONO16LE Else format=SF_STEREO16LE
 		If channels=1 format=SF_MONO16LE Else format=SF_STEREO16LE
 ?
 ?
 		Local size=samples*2*channels
 		Local size=samples*2*channels