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

* fixed previous commit

Browse Source 
git-svn-id: trunk@3195 -
This commit is contained in:
Jonas Maebe 2006-04-12 10:46:21 +00:00
parent b7a936faa0
commit 76937d5222
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globals.pas
View File

@ -1976,7 +1976,7 @@ end;
hs : string;
begin
result:=false;
if (hs = '') then
if (s = '') then
exit;
hs:=upper(s);
if (hs = 'DEFAULT') then