Browse Source

* Make sure it compiles with FPC 3.2.2 for pas2js...

Michaël Van Canneyt 2 years ago
parent
commit
ce37431a3f
1 changed files with 4 additions and 0 deletions
  1. 4 0
      packages/fcl-web/src/base/httpdefs.pp

+ 4 - 0
packages/fcl-web/src/base/httpdefs.pp

@@ -1998,7 +1998,11 @@ Var
 begin
   F:=TFileStream.Create(AFileName,fmCreate);
   Try
+{$IFDEF VER3_2}  
+    F.WriteBuffer(FRawData[0],DataSize);
+{$ELSE}
     F.WriteBuffer(FRawData,0,DataSize);
+{$ENDIF}    
   finally
     F.Free;
   end;