Changeset 111 for oup/current/Global

Timestamp:

Feb 21, 2007, 4:28:48 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Global

Files:

• Exporters.pas (modified) (4 diffs)
• Functions.pas (modified) (2 diffs)
• TypeDefs.pas (modified) (2 diffs)

oup/current/Global/Exporters.pas

@@ -84 +84 @@
   TDatData = packed record
     {0x00}
-    _fileid:         LongWord;
-    level:           LongWord;
-    FormatSize:      LongWord;
+    _fileid:         Integer;
+    level:           Integer;
+    FormatSize:      Integer;
     AudioFormat:     Word;
     NumChannels:     Word;
     {0x10}
-    SampleRate:      LongWord;
-    ByteRate:        LongWord;
+    SampleRate:      Integer;
+    ByteRate:        Integer;
     BlockAlign:      Word;
     BitsPerSample:   Word;
@@ -98 +98 @@
     SamplesPerBlock: Word;
     NumCoefficients: Word;
-    Coefficients:    array[0..6] of LongWord;
+    Coefficients:    array[0..6] of Integer;
     {0x3E}
     Duration:        Word;
     {0x40}
-    RawSize:         LongWord;
-    RawPos:          LongWord;
+    RawSize:         Integer;
+    RawPos:          Integer;
   end;
 var
@@ -112 +112 @@
   //Wave Header Stuff
   ASCII_RIFF:   LongWord; //"RIFF"
-  WAVE_Len:     LongWord;
+  WAVE_Len:     Integer;
   ASCII_WAVE:   LongWord; //"WAVE"
   ASCII_FMT:    LongWord; //"fmt "
-  WAVE_FMT_Len: LongWord;
+  WAVE_FMT_Len: Integer;
   ASCII_DATA:   LongWord; //"data"
-  WAVE_DataLen:  LongWord;
+  WAVE_DataLen:  Integer;
 begin
   Result := 0;
@@ -190 +190 @@
 var
   loop_speed, unknown: Word;
-  linkcount: LongWord;
-  link: LongWord;
+  linkcount: Integer;
+  link: Integer;
   i: Byte;
 begin

oup/current/Global/Functions.pas

@@ -202 +202 @@
 var
   string_build, ascii_version: String;
-  i: LongWord;
+  i: Integer;
 begin
   string_build  := '';
@@ -235 +235 @@
 function DecodeHexString(hex: String): TByteData;
 var
-  i: LongWord;
+  i: Integer;
 begin
   SetLength(Result, Length(hex) div 2);

oup/current/Global/TypeDefs.pas

@@ -26 +26 @@
       Ident:       array[0..$7] of Byte;
       Extension:   array[0..$3] of Char;
-      ExtCount:    LongWord;
+      ExtCount:    Integer;
   end;
 
@@ -98 +98 @@
 
  TDatLinks = array of record
-    Src_Offset: LongWord;
-    Target:     LongWord;
+    Src_Offset: Integer;
+    Target:     Integer;
   end;
 }