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

* fix for bug0176 and bug0177

Browse Source
This commit is contained in:
pierre 1998-11-12 12:55:16 +00:00
parent 9c5cf4f161
commit 364132b0bb
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pmodules.pas
View File

@ -1039,7 +1039,8 @@ unit pmodules;
{Insert the name of the main program into the symbol table.} {Insert the name of the main program into the symbol table.}
if current_module^.modulename^<>'' then if current_module^.modulename^<>'' then
st^.insert(new(pprogramsym,init(current_module^.modulename^))); {st^.insert(new(pprogramsym,init(current_module^.modulename^)));}
st^.insert(new(punitsym,init(current_module^.modulename^,punitsymtable(st))));
{ ...is also constsymtable, this is the symtable where } { ...is also constsymtable, this is the symtable where }
{ the elements of enumeration types are inserted } { the elements of enumeration types are inserted }
@ -1118,7 +1119,10 @@ unit pmodules;
end. end.
{ {
$Log$ $Log$
Revision 1.81 1998-11-12 11:34:58 peter Revision 1.82 1998-11-12 12:55:16 pierre
* fix for bug0176 and bug0177
Revision 1.81 1998/11/12 11:34:58 peter
* fix for empty .o files and linking of libs * fix for empty .o files and linking of libs
Revision 1.80 1998/11/06 09:48:14 pierre Revision 1.80 1998/11/06 09:48:14 pierre

6
compiler/pstatmnt.pas
View File

@ -552,7 +552,6 @@ unit pstatmnt;
if srsym^.typ=unitsym then if srsym^.typ=unitsym then
begin begin
consume(POINT); consume(POINT);
getsymonlyin(punitsym(srsym)^.unitsymtable,pattern);
consume(ID); consume(ID);
end; end;
if (srsym^.typ=typesym) and if (srsym^.typ=typesym) and
@ -1219,7 +1218,10 @@ unit pstatmnt;
end. end.
{ {
$Log$ $Log$
Revision 1.48 1998-11-05 23:43:24 peter Revision 1.49 1998-11-12 12:55:17 pierre
* fix for bug0176 and bug0177
Revision 1.48 1998/11/05 23:43:24 peter
* fixed assembler directive and then not an ASM statement * fixed assembler directive and then not an ASM statement
Revision 1.47 1998/10/30 16:20:22 peter Revision 1.47 1998/10/30 16:20:22 peter