From b6bc1d480f60def7d3f602233314d3f4480ff6f1 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 10 Jul 2000 09:17:27 +0000
Subject: [PATCH]  * fix wordversion

---
 compiler/version.pas | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/compiler/version.pas b/compiler/version.pas
index 641fb836fc..065a17efaa 100644
--- a/compiler/version.pas
+++ b/compiler/version.pas
@@ -25,13 +25,13 @@ interface
 
     const
        { word version for ppu file }
-       wordversion = (0 shl 14)+99;
+       wordversion = (1 shl 14)+0;
 
        { version string }
 
        version_nr = '1';
        release_nr = '00';
-       patch_nr   = '';
+       patch_nr   = '0';
 {$ifdef newcg}
        minorpatch = ' NCG';
 {$else newcg}
@@ -79,7 +79,7 @@ implementation
 
 function version_string:string;
 begin
-  if patch_nr='' then
+  if patch_nr='0' then
    version_string := version_nr+'.'+release_nr
   else
    version_string := version_nr+'.'+release_nr+'.'+patch_nr;
@@ -88,7 +88,7 @@ end;
 
 function full_version_string:string;
 begin
-  if patch_nr='' then
+  if patch_nr='0' then
    full_version_string := version_nr+'.'+release_nr+minorpatch
   else
    full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch;
@@ -99,7 +99,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.19  2000-07-09 09:34:50  peter
+  Revision 1.20  2000-07-10 09:17:27  pierre
+   * fix wordversion
+
+  Revision 1.19  2000/07/09 09:34:50  peter
     * version_string is now a function so it returns 1.00 instead of 1.00.0
 
   Revision 1.18  2000/07/06 20:08:46  peter
@@ -131,5 +134,4 @@ end.
   Revision 1.10  1999/08/01 23:36:42  florian
     * some changes to compile the new code generator
 
-}
-
+}
\ No newline at end of file