[Gd-chatter] r10830 - branches/llvm-backend

[gabor at gwydiondylan.org]

Author: gabor
Date: Tue Jul 25 23:22:10 2006
New Revision: 10830

Modified:
   branches/llvm-backend/Cback.lid
   branches/llvm-backend/cback.dylan
Log:
Job: 7241
get this fellow to link with recent LLVM


Modified: branches/llvm-backend/Cback.lid
==============================================================================
--- branches/llvm-backend/Cback.lid	(original)
+++ branches/llvm-backend/Cback.lid	Tue Jul 25 23:22:10 2006
@@ -1,7 +1,7 @@
 library: compiler-cback
 unique-id-base: 10750
 shared-library: yes
-linker-options: /usr/local/lib/LLVMCore.o /usr/local/lib/LLVMSystem.o -lLLVMSupport
+linker-options: -lLLVMCore -lLLVMSupport -lLLVMSystem
 files:	cback-exports
 	cback
 	primemit

Modified: branches/llvm-backend/cback.dylan
==============================================================================
--- branches/llvm-backend/cback.dylan	(original)
+++ branches/llvm-backend/cback.dylan	Tue Jul 25 23:22:10 2006
@@ -4,7 +4,7 @@
 //======================================================================
 //
 // Copyright (c) 1995, 1996, 1997  Carnegie Mellon University
-// Copyright (c) 1998 - 2003  Gwydion Dylan Maintainers
+// Copyright (c) 1998 - 2006  Gwydion Dylan Maintainers
 // All rights reserved.
 // 
 // Use and copying of this software and preparation of derivative
@@ -456,6 +456,19 @@
 
 end;
 
+define generic emit-llvm-return(return :: <return>, result-rep, bb :: <llvm-basic-block>) => ();
+
+define method emit-llvm-return(return :: <return>, result-rep == #"doesn't-return", bb :: <llvm-basic-block>) => ();
+  error("have a return region for a function that doesn't return?");
+end;
+
+
+
+define method emit-llvm-return(return :: <return>, result-rep, bb :: <llvm-basic-block>) => ();
+  make(<llvm-return-instruction>, atEnd: bb)
+end;
+
+
 
 define variable llvm-function = #f;