From 130bac9c0307fe32208bde4a3e7d0fee56a0ffa1 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 30 Dec 2007 21:35:04 +0000
Subject: [PATCH] * Fixed bug #10511

git-svn-id: trunk@9594 -
---
 compiler/globals.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index 3b8c1f60cc..d56bbf26d6 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -792,7 +792,12 @@ implementation
             GUID.D4[i]:=byte(hexstr2longint(copy(s,22+i*2,2)));
           string2guid:=true;
         end
-        else
+        else if (length(s)=0) then
+          begin
+          FillChar(GUID,SizeOf(GUID),0);
+          string2guid:=true;
+          end
+        else  
           string2guid:=false;
       end;