Procházet zdrojové kódy

* fix of broken r12138

git-svn-id: trunk@12141 -
florian před 16 roky
rodič
revize
af133effa2
1 změnil soubory, kde provedl 3 přidání a 2 odebrání
  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));