From d6382f17f2ab4d6d34d547bb71c536ba3f84e50e Mon Sep 17 00:00:00 2001
From: olle <olle>
Date: Fri, 27 Feb 2004 13:42:52 +0000
Subject: [PATCH]   + added Tai_symbol_end

---
 compiler/i386/n386obj.pas    |  8 +++++++-
 compiler/powerpc/nppcobj.pas | 10 ++++++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/compiler/i386/n386obj.pas b/compiler/i386/n386obj.pas
index e29dad7e63..9cedea503a 100644
--- a/compiler/i386/n386obj.pas
+++ b/compiler/i386/n386obj.pas
@@ -226,6 +226,9 @@ begin
       lab:=objectlibrary.newasmsymbol(procdef.mangledname);
       emit_sym(A_JMP,S_NO,lab);
     end;
+
+  exprasmList.concat(Tai_symbol_end.Createname(labelname));
+
   exprasmlist:=oldexprasmlist;
 end;
 
@@ -235,7 +238,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.30  2004-02-27 10:21:05  florian
+  Revision 1.31  2004-02-27 13:42:52  olle
+    + added Tai_symbol_end
+
+  Revision 1.30  2004/02/27 10:21:05  florian
     * top_symbol killed
     + refaddr to treference added
     + refsymbol to treference added
diff --git a/compiler/powerpc/nppcobj.pas b/compiler/powerpc/nppcobj.pas
index b04295b9c6..6d755fea66 100644
--- a/compiler/powerpc/nppcobj.pas
+++ b/compiler/powerpc/nppcobj.pas
@@ -2,7 +2,7 @@
     $Id$
     Copyright (c) 1998-2002 by Kovacs Attila Zoltan
 
-    Generate i386 assembly wrapper code interface implementor objects
+    Generate powerpc assembly wrapper code interface implementor objects
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
@@ -158,6 +158,9 @@ begin
   { case 0 }
   else
     asmlist.concat(taicpu.op_sym(A_B,objectlibrary.newasmsymbol(procdef.mangledname)));
+
+  exprasmList.concat(Tai_symbol_end.Createname(labelname));
+
   exprasmlist:=oldexprasmlist;
 end;
 
@@ -167,7 +170,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.4  2004-02-27 10:21:05  florian
+  Revision 1.5  2004-02-27 13:42:56  olle
+    + added Tai_symbol_end
+
+  Revision 1.4  2004/02/27 10:21:05  florian
     * top_symbol killed
     + refaddr to treference added
     + refsymbol to treference added