paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-23 15:49:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions 1130,1138 from trunk:

Browse Source 
------------------------------------------------------------------------
    r1130 | michael | 2021-04-04 11:28:37 +0200 (Sun, 04 Apr 2021) | 1 line
    
    * Fix ObjectBinaryToStream: read filer signature
    ------------------------------------------------------------------------
    r1138 | michael | 2021-04-05 15:37:50 +0200 (Mon, 05 Apr 2021) | 1 line
    
    * Undo latest change
    ------------------------------------------------------------------------
This commit is contained in:
michael 2021-04-14 11:32:44 +00:00
parent df27dfeed1
commit a6a5beb1fd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl/classes.pas
View File

@ -9998,14 +9998,18 @@ end;
procedure TObjectStreamConverter.Execute; procedure TObjectStreamConverter.Execute;
var
Signature: LongInt;
begin begin
if FIndent = '' then FInDent:=' '; if FIndent = '' then FInDent:=' ';
If Not Assigned(Input) then If Not Assigned(Input) then
raise EReadError.Create('Missing input stream'); raise EReadError.Create('Missing input stream');
If Not Assigned(Output) then If Not Assigned(Output) then
raise EReadError.Create('Missing output stream'); raise EReadError.Create('Missing output stream');
if Input.ReadDWord <> FilerSignatureInt then FInput.ReadBufferData(Signature);
raise EReadError.Create('Illegal stream image'); if Signature <> FilerSignatureInt then
raise EReadError.Create(SInvalidImage);
ReadObject(''); ReadObject('');
end; end;