anchor.diff:    // Openal clamped double.
     TALclampd = TALdouble;
     PALclampd = ^TALclampd;
  -  
  +
     // ALC enumerations.
     TALCenum = integer;
     PALCenum = ^TALCenum;
  
positive.code: {$ENDIF}
  
  //ProcName can be case sensitive !!!
  function alProcedure(ProcName : PChar) : Pointer;
  begin
  Result := NIL;
  if Addr(alGetProcAddress) <> NIL then
  
negative.code:   procedure alutLoadWAVFile(fname: string; var format: TALenum; var data: TALvoid; var size: TALsizei; var freq: TALsizei; var loop: TALint);
    procedure alutLoadWAVMemory(memory: PALbyte; var format: TALenum; var data: TALvoid; var size: TALsizei; var freq: TALsizei; var loop: TALint);
    procedure alutUnloadWAV(format: TALenum; data: TALvoid; size: TALsizei; freq: TALsizei);
    function LoadWavStream(Stream: Tstream; var format: TALenum; var data: TALvoid; var size: TALsizei; var freq: TALsizei; var loop: TALint): Boolean; //Unofficial
  {$ENDIF}
  
  var
  