paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #10511

Browse Source 
git-svn-id: trunk@9594 -
This commit is contained in:
michael 2007-12-30 21:35:04 +00:00
parent 0cfdde094d
commit 130bac9c03
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globals.pas
View File

@ -792,7 +792,12 @@ implementation
GUID.D4[i]:=byte(hexstr2longint(copy(s,22+i*2,2))); GUID.D4[i]:=byte(hexstr2longint(copy(s,22+i*2,2)));
string2guid:=true; string2guid:=true;
end end
else else if (length(s)=0) then
begin
FillChar(GUID,SizeOf(GUID),0);
string2guid:=true;
end
else
string2guid:=false; string2guid:=false;
end; end;