From 78fa2724e63b1a8784aa058e12b45922091bdd70 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 28 Feb 2009 01:11:56 +0000
Subject: 	* lisp/core.lisp.in ($ECLVersionNumber): New. 	*
 boot/ast.boot (genECLnativeTranslation): Use it.

---
 src/boot/ast.boot | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/boot')

diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index da023938..270b1221 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2008, Gabriel Dos Reis.
+-- Copyright (C) 2007-2009, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -1424,7 +1424,10 @@ genECLnativeTranslation(op,s,t,op') ==
 	    isSimpleNativeType x => '""
 	    [.,[c,y]] := x
             c = "buffer" => 
-	      y = "char" or y = "byte" => '"->vector.self.ch"
+	      y = "char" or y = "byte" => 
+                AxiomCore::$ECLVersionNumber < 90100 => '"->vector.self.ch"
+                y = "char" => '"->vector.self.i8"
+                '"->vector.self.b8"
 	      y = "int" => '"->vector.self.fix"
 	      y = "float" => '"->vector.self.sf"
 	      y = "double" => '"->vector.self.df"
-- 
cgit v1.2.3