diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index 373f38e672..7a5df1a656 100644
--- a/compiler/pdecl.pas
+++ b/compiler/pdecl.pas
@@ -316,10 +316,10 @@ unit pdecl;
                    Message(parser_e_absolute_only_one_var);
                   dispose(sc,done);
                   aktvarsym:=new(pvarsym,init_C(s,target_os.Cprefix+C_name,p));
-                  tokenpos:=storetokenpos;
                   aktvarsym^.var_options:=aktvarsym^.var_options or vo_is_external;
                   concat_external(aktvarsym^.mangledname,EXT_NEAR);
                   symtablestack^.insert(aktvarsym);
+                  tokenpos:=storetokenpos;
                   symdone:=true;
                end;
              { check for absolute }
@@ -345,8 +345,8 @@ unit pdecl;
                    abssym:=new(pabsolutesym,init(s,p));
                    abssym^.abstyp:=tovar;
                    abssym^.ref:=srsym;
-                   tokenpos:=storetokenpos;
                    symtablestack^.insert(abssym);
+                   tokenpos:=storetokenpos;
                  end
                 else
                  if (token=CSTRING) or (token=CCHAR) then
@@ -358,8 +358,8 @@ unit pdecl;
                     consume(token);
                     abssym^.abstyp:=toasm;
                     abssym^.asmname:=stringdup(s);
-                    tokenpos:=storetokenpos;
                     symtablestack^.insert(abssym);
+                    tokenpos:=storetokenpos;
                   end
                 else
                 { absolute address ?!? }
@@ -372,7 +372,6 @@ unit pdecl;
                        abssym:=new(pabsolutesym,init(s,p));
                        abssym^.abstyp:=toaddr;
                        abssym^.absseg:=false;
-                       tokenpos:=storetokenpos;
                        s:=pattern;
                        consume(INTCONST);
                        val(s,abssym^.address,code);
@@ -386,6 +385,7 @@ unit pdecl;
                           abssym^.absseg:=true;
                         end;
                        symtablestack^.insert(abssym);
+                       tokenpos:=storetokenpos;
                      end
                     else
                      Message(parser_e_absolute_only_to_var_or_const);
@@ -408,8 +408,8 @@ unit pdecl;
                   if not sc^.empty then
                     Message(parser_e_initialized_only_one_var);
                   pconstsym:=new(ptypedconstsym,init(s,p,false));
-                  tokenpos:=storetokenpos;
                   symtablestack^.insert(pconstsym);
+                  tokenpos:=storetokenpos;
                   consume(EQUAL);
                   readtypedconst(p,pconstsym,false);
                   symdone:=true;
@@ -489,7 +489,6 @@ unit pdecl;
                     aktvarsym:=new(pvarsym,init_dll(s,p))
                    else
                     aktvarsym:=new(pvarsym,init_C(s,C_name,p));
-                   tokenpos:=storetokenpos;
                    { set some vars options }
                    if export_aktvarsym then
                     inc(aktvarsym^.refs);
@@ -497,6 +496,7 @@ unit pdecl;
                       aktvarsym^.var_options:=aktvarsym^.var_options or vo_is_external;
                    { insert in the stack/datasegment }
                    symtablestack^.insert(aktvarsym);
+                   tokenpos:=storetokenpos;
                    { now we can insert it in the import lib if its a dll, or
                      add it to the externals }
                    if extern_aktvarsym then
@@ -2229,7 +2229,10 @@ unit pdecl;
 end.
 {
   $Log$
-  Revision 1.119  1999-05-19 12:41:56  florian
+  Revision 1.120  1999-05-20 22:19:52  pierre
+   * better stabs line info for vars
+
+  Revision 1.119  1999/05/19 12:41:56  florian
     * made source compilable with TP (too long line)
     * default values for set properties fixed