Browse Source

* remove wrongly placed first_call_helper

peter 24 years ago
parent
commit
a14d8618da
1 changed files with 4 additions and 4 deletions
  1. 4 4
      compiler/ncnv.pas

+ 4 - 4
compiler/ncnv.pas

@@ -644,7 +644,6 @@ implementation
                   begin
                     if not proc_to_procvar_equal(aprocdef,tprocvardef(resulttype.def)) then
                      CGMessage2(type_e_incompatible_types,aprocdef.typename,resulttype.def.typename);
-                    result:=first_call_helper(convtype);
                   end
                  else
                   CGMessage2(type_e_incompatible_types,left.resulttype.def.typename,resulttype.def.typename);
@@ -664,7 +663,6 @@ implementation
                  is_boolean(left.resulttype.def) then
                begin
                   convtype:=tc_bool_2_int;
-                  result:=first_call_helper(convtype);
                   exit;
                end;
               { ansistring to pchar }
@@ -672,7 +670,6 @@ implementation
                  is_ansistring(left.resulttype.def) then
                begin
                  convtype:=tc_ansistring_2_pchar;
-                 result:=first_call_helper(convtype);
                  exit;
                end;
               { do common tc_equal cast }
@@ -1275,7 +1272,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.24  2001-04-13 01:22:08  peter
+  Revision 1.25  2001-04-13 22:20:58  peter
+    * remove wrongly placed first_call_helper
+
+  Revision 1.24  2001/04/13 01:22:08  peter
     * symtable change to classes
     * range check generation and errors fixed, make cycle DEBUG=1 works
     * memory leaks fixed