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

* fix from peter

Browse Source
This commit is contained in:
marco 2001-09-12 12:46:54 +00:00
parent efd5b132be
commit 3b9df162d1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/options.pas
View File

@ -1260,7 +1260,7 @@ begin
if def then
def_symbol(Copy(s,1,i-1))
else
def_symbol(Copy(s,1,i-1));
undef_symbol(Copy(s,1,i-1));
delete(s,1,i);
end;
end;
@ -1603,7 +1603,10 @@ finalization
end.
{
$Log$
Revision 1.58 2001-08-30 20:57:09 peter
Revision 1.59 2001-09-12 12:46:54 marco
* fix from peter
Revision 1.58 2001/08/30 20:57:09 peter
* asbsd merged
Revision 1.57 2001/08/30 20:13:53 peter