Преглед на файлове

* fix from mantis 17818. Value is only peaked, add readvalue to also consume it.

git-svn-id: trunk@16301 -
marco преди 14 години
родител
ревизия
71aa7eaabd
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      rtl/objpas/classes/reader.inc

+ 2 - 0
rtl/objpas/classes/reader.inc

@@ -1101,10 +1101,12 @@ begin
     vaNil:
     vaNil:
       begin
       begin
         Result:=system.unassigned;
         Result:=system.unassigned;
+        readvalue;
       end;
       end;
     vaNull:
     vaNull:
       begin
       begin
         Result:=system.null;
         Result:=system.null;
+        readvalue;
       end;
       end;
     { all integer sizes must be split for big endian systems }
     { all integer sizes must be split for big endian systems }
     vaInt8,vaInt16,vaInt32:
     vaInt8,vaInt16,vaInt32: