mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 01:11:29 +01:00 
			
		
		
		
	* reset savesize in tdef.init
This commit is contained in:
		
							parent
							
								
									925bf35c30
								
							
						
					
					
						commit
						a27a69d7af
					
				| @ -72,6 +72,7 @@ | ||||
|          next := nil; | ||||
|          sym := nil; | ||||
|          indexnb := 0; | ||||
|          savesize := 0; | ||||
|          if registerdef then | ||||
|            symtablestack^.registerdef(@self); | ||||
|          has_rtti:=false; | ||||
| @ -178,7 +179,6 @@ | ||||
|          is_in_current:=false; | ||||
|          while assigned(p) do | ||||
|            begin | ||||
|             | ||||
|               if (p=current_module^.globalsymtable) or (p=current_module^.localsymtable) | ||||
|                  or (p^.symtabletype in [globalsymtable,staticsymtable]) then | ||||
|                 begin | ||||
| @ -3409,7 +3409,10 @@ Const local_symtable_index : longint = $8001; | ||||
| 
 | ||||
| { | ||||
|   $Log$ | ||||
|   Revision 1.97  1999-03-01 13:45:04  pierre | ||||
|   Revision 1.98  1999-03-06 17:24:16  peter | ||||
|     * reset savesize in tdef.init | ||||
| 
 | ||||
|   Revision 1.97  1999/03/01 13:45:04  pierre | ||||
|    + added staticppusymtable symtable type for local browsing | ||||
| 
 | ||||
|   Revision 1.96  1999/02/25 21:02:52  peter | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user
	 peter
						peter