paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 08:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Merged fixes

Browse Source
This commit is contained in:
michael 2001-03-08 19:39:25 +00:00
parent 51ae30babb
commit d678b3f0fe
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fcl/inc/classes.inc
View File

@ -739,7 +739,6 @@ procedure ObjectBinaryToText(Input, Output: TStream);
ext: Extended; ext: Extended;
begin begin
OutStr('(' + IntToStr(Ord(Valuetype)) + ') ');
case ValueType of case ValueType of
vaList: begin vaList: begin
OutStr('('); OutStr('(');
@ -783,8 +782,10 @@ procedure ObjectBinaryToText(Input, Output: TStream);
end; end;
OutLn(']'); OutLn(']');
end; end;
vaLString: Stop('!!LString!!'); vaLString:
vaNil: Stop('nil'); Stop('!!LString!!');
vaNil:
OutLn('nil');
vaCollection: begin vaCollection: begin
OutStr('<'); OutStr('<');
while Input.ReadByte <> 0 do begin while Input.ReadByte <> 0 do begin
@ -1181,16 +1182,26 @@ end;
{ {
$Log$ $Log$
Revision 1.5 2000-10-15 09:27:48 peter Revision 1.6 2001-03-08 19:39:25 michael
+ Merged fixes
Revision 1.5 2000/10/15 09:27:48 peter
+ Added some index checking. Centralized error handling (merged) + Added some index checking. Centralized error handling (merged)
Revision 1.4 2000/10/13 12:33:23 sg Revision 1.4 2000/10/13 12:33:23 sg
* Some small cosmetic changes and minor fixes * Some small cosmetic changes and minor fixes
Revision 1.1.2.4 2000/12/13 10:16:33 michael
+ Applied patch from Mattias Gaertner, bug 1292
Revision 1.1.2.3 2000/12/11 09:29:59 michael
+ Fix from Mattias Gaertner
Revision 1.1.2.2 2000/10/13 10:48:10 sg
Revision 1.3 2000/07/22 14:55:56 sg Revision 1.3 2000/07/22 14:55:56 sg
* Fixed some DFM parser bugs * Fixed some DFM parser bugs
Revision 1.2 2000/07/13 11:32:59 michael Revision 1.2 2000/07/13 11:32:59 michael
+ removed logs + removed logs
} }