From 10db94c8c1f0e39a15a6733b953ac5a270a54446 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 24 Sep 2005 14:58:28 +0000
Subject: [PATCH] * there is no muls, muld must be generated

git-svn-id: trunk@1175 -
---
 compiler/nadd.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/nadd.pas b/compiler/nadd.pas
index b72483fb30..06ad8900c2 100644
--- a/compiler/nadd.pas
+++ b/compiler/nadd.pas
@@ -1895,7 +1895,8 @@ implementation
             end;
 
           end;
-
+        if procname='MULS' then
+          procname:='MULD';
         result:=ccallnode.createintern(procname,ccallparanode.create(right,
            ccallparanode.create(left,nil)));
         left:=nil;