Преглед изворни кода

* fix of broken r12138

git-svn-id: trunk@12141 -
florian пре 17 година
родитељ
комит
af133effa2
1 измењених фајлова са 3 додато и 2 уклоњено
  1. 3 2
      rtl/objpas/varutils.inc

+ 3 - 2
rtl/objpas/varutils.inc

@@ -396,7 +396,8 @@ Const
      SizeOf(Integer),
      SizeOf(Single),
      SizeOf(Double),
-     SizeOf(TTimeDate),
+     0, // unused
+     SizeOf(TDateTime),
      SizeOf(Currency),
      SizeOf(PWideString),
      SizeOf(IInterface),
@@ -408,7 +409,7 @@ Const
      SizeOf(ShortInt),
      SizeOf(Byte),
      SizeOf(Word),
-     SizeOf(LognWord),
+     SizeOf(LongWord),
      SizeOf(Int64),
      SizeOf(QWord));