paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:29:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* initialize all object variables in .init

Browse Source
This commit is contained in:
peter 1998-09-01 09:01:52 +00:00
parent df59d0886a
commit f0278f7ddd
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/scanner.pas
View File

@ -312,8 +312,11 @@ implementation
preprocstack:=nil;
comment_level:=0;
do_special:=0;
yylexcount:=0;
block_type:=bt_general;
lasttokenpos:=0;
lasttoken:=_END;
lastasmgetchar:=#0;
{ load block }
if not open then
Message1(scan_f_cannot_open_input,fn);
@ -1619,7 +1622,10 @@ exit_label:
end.
{
$Log$
Revision 1.46 1998-08-29 13:49:00 peter
Revision 1.47 1998-09-01 09:01:52 peter
* initialize all object variables in .init
Revision 1.46 1998/08/29 13:49:00 peter
* fixed freemem calls which had the wrong size sometimes
Revision 1.45 1998/08/26 15:35:35 peter