add text file read unit and test program to go with it

[lcore.git] / lcorernd.pas

diff --git a/lcorernd.pas b/lcorernd.pas
index 006f6ce885e1de1298b459af0574a138a4481736..64759e83fc95d67508cae7ac4256d587cc9f4100 100644 (file)
--- a/lcorernd.pas
+++ b/lcorernd.pas
@@ -132,8 +132,14 @@ implementation
 \r
 {$ifndef nolcorernd}\r
 uses\r
 \r
 {$ifndef nolcorernd}\r
 uses\r

-  {$ifdef win32}windows,activex,types,{$endif}\r
-  {$ifdef unix}baseunix,unix,unixutil,{$endif}\r
+  {$ifdef win32}windows,activex,{$endif}\r
+  {$ifdef unix}\r
+    {$ifdef ver1_0}\r
+      linux,\r
+    {$else}\r
+      baseunix,unix,unixutil,\r
+    {$endif}\r
+  {$endif}\r

   fastmd5,sysutils;\r
 \r
 {$ifdef unix}{$include unixstuff.inc}{$endif}\r
   fastmd5,sysutils;\r
 \r
 {$ifdef unix}{$include unixstuff.inc}{$endif}\r


@@ -145,9 +151,8 @@ type
 const\r
   wordsizeshift=2;\r
   wordsize=1 shl wordsizeshift;\r
 const\r
   wordsizeshift=2;\r
   wordsize=1 shl wordsizeshift;\r

-\r
-  {$if (wordsize <> sizeof(wordtype))}'wordsizeshift must be setcorrectly'{$ifend}\r
-\r
+  //wordsize check commented out for d3 compatibility\r
+  //{ $if (wordsize <> sizeof(wordtype))}'wordsizeshift must be setcorrectly'{ $ifend}\r

   hashsize=sizeof(hashtype);\r
   halfhashsize=hashsize div 2;\r
   hashdwords=hashsize div wordsize;\r
   hashsize=sizeof(hashtype);\r
   halfhashsize=hashsize div 2;\r
   hashdwords=hashsize div wordsize;\r