git-svn-id: https://spexeah.com:8443/svn/Asuro@657 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/cpu.pas

@@ -163,7 +163,7 @@ begin
     if CPUID.Capabilities0^.TSC then begin
         t1:= getDateTime;
         t2:= getDateTime;
-        c2:= 0;
+        c1:= getTSC;
         while (t1.Seconds = t2.Seconds) do begin
             t2:= getDateTime;
             c1:= getTSC;

src/include/asuro.pas

@@ -9,6 +9,7 @@ const
      VERSION_SUB   = '0';
      REVISION      = '653';
      RELEASE       = 'a';
+     LINE_COUNT    = 26780;
  
 implementation
  

src/prog/terminal.pas

@@ -207,6 +207,8 @@ end;
 procedure version(params : PParamList);
 begin
     console.writestringlnWND(asuro.VERSION, TERMINAL_HWND);
+    console.writestringWND('Line Count: ', TERMINAL_HWND);
+    console.writeintlnWND(LINE_COUNT, TERMINAL_HWND);
 end;
 
 procedure help(params : PParamList);

versioning.sh

@@ -6,6 +6,7 @@ while IFS=: read -r line;do
 	minor=$(echo $line | awk '{print $2}')
 	sub=$(echo $line | awk '{print $3}')
 	release=$(echo $line | awk '{print $4}')
+	linecount=$(./loc.sh | awk '{print $1}')
 done <"$file"
 revision=$(svn info | grep Revision | awk '{print $2}')
 echo $major"."$minor"."$sub"-r"$revision$release
@@ -20,6 +21,7 @@ echo "     VERSION_MINOR = '$minor';" >> $outfile
 echo "     VERSION_SUB   = '$sub';" >> $outfile
 echo "     REVISION      = '$revision';" >> $outfile
 echo "     RELEASE       = '$release';" >> $outfile
+echo "     LINE_COUNT    = $linecount;" >> $outfile
 echo " " >> $outfile
 echo "implementation" >> $outfile
 echo " " >> $outfile