AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte RUTIS Engine (Scripting) [WinCE spinnt]
Thema durchsuchen
Ansicht
Themen-Optionen

RUTIS Engine (Scripting) [WinCE spinnt]

Ein Thema von olee · begonnen am 14. Jun 2009 · letzter Beitrag vom 20. Aug 2010
Antwort Antwort
Benutzerbild von olee
olee

Registriert seit: 16. Feb 2008
Ort: Boppard
540 Beiträge
 
Turbo Delphi für Win32
 
#1

Re: RUTIS Engine (Scripting) [WinCE spinnt]

  Alt 7. Mai 2010, 21:23
Das ist aber sehr schade...

Delphi kommt mit meinem ganannten Beispiel dort nicht zurecht.

Wenn ich so etwas wie
(PCardinal(@Data[adr])^) := val; schreibe sagt der: "[Pascal Fehler]: E2064 Der linken Seite kann nichts zugewiesen werden"

Also bleibt mir da fast nur noch eine Variante mit dem inline oder ich muss das ganze dann so schreiben:

{$ifdef WinCE}unaligned({$endif}PCardinal(@Data[adr])^{$ifdef WinCE}){$endif} := val;

EDIT:
Gute Neuigkeiten!

Das mit der inline-Funktion funktioniert gut (zumindest beim auslesen von Werten):
Delphi-Quellcode:
function GetPCardinal(const Adr: PCardinal): Cardinal; inline;
begin
  {$ifdef WinCE}
  Result := unaligned(Adr^);
  {$else WinCE}
  Result := Adr^;
  {$endif}
end;

Function TRutisStack.PopCardinal : Cardinal;
Begin
  //So sah die alte Zeile aus:
  Result := PCardinal(Data[Top - 4])^;

  //Und so die neue
  Result := GetPCardinal(Data[Top - 4]); //Die neue Anweisung, die am ende dennoch die
                                          //gleichen Assembler-Befehle ergibt dank inline
  Pop(4);
End;
MFG
Björn Zeutzheim
Codename: Performancepumpe
  Mit Zitat antworten Zitat
mastaraymond

Registriert seit: 20. Aug 2010
1 Beiträge
 
#2

AW: RUTIS Engine (Scripting) [WinCE spinnt]

  Alt 20. Aug 2010, 17:07
Hallo,

Meiner Deutsch ist nicht so gut, aber ich darf etwas fragen. Kannst du dieser patch anbringen?

grüße,

Raymond

Delphi-Quellcode:
Index: RUTIS_Classes.pas
===================================================================
--- RUTIS_Classes.pas   (revision 23)
+++ RUTIS_Classes.pas   (working copy)
@@ -134,6 +134,7 @@
     //================================================
     Property CompilerError : Boolean Read GetCompilerError;
     Property Error : ERutisCompilerError Read fCompilerError;
+   Property ScriptError : Boolean Read fScriptError
   End;
 
   TRutisCompiler = Class
@@ -1466,7 +1467,7 @@
 Begin
   Result := (Address < 0) or (Address > ScriptData.Stack.Top);
   If Result Then
- ScriptMessage('Address Error (Address ID = ' + IntToStr(Address) + ')');
+ ScriptMessage('Address Error (Address ID = ' + IntToStr(Address) + ')', etRuntimeError);
 End;
 
 Function TRutisEngineBase.GetStackLvlAddress(Address, Level : Integer) : Integer;
Index: Rutis_Engine.pas
===================================================================
--- Rutis_Engine.pas   (revision 23)
+++ Rutis_Engine.pas   (working copy)
@@ -308,7 +308,7 @@
   fLastAdress := Pointer(ScriptData.Stack.ReadCardinal(src));
   If GetExtAddrRange(fLastAdress) = -1 Then
   Begin
- ScriptMessage('Address Error');
+ ScriptMessage('Address Error', etRuntimeError);
     exit;
   End;
 
@@ -320,7 +320,7 @@
   fLastAdress := Pointer(ScriptData.Stack.ReadCardinal(ScriptData.Stack.Top - 4));
   If GetExtAddrRange(fLastAdress) = -1 Then
   Begin
- ScriptMessage('Address Error');
+ ScriptMessage('Address Error', etRuntimeError);
     exit;
   End;
 End;
@@ -1088,7 +1088,7 @@
 Begin
   If ScriptData.CurrCmd.P1 <= 0 Then
   Begin
- ScriptMessage('Error - OpEnumToSet');
+ ScriptMessage('Error - OpEnumToSet',etRuntimeError);
     exit;
   End;
   bit := ScriptData.Stack.PopByte;
@@ -1649,7 +1649,7 @@
     intDouble : Val2 := ScriptData.Stack.PopDouble;
     intExtended : Val2 := ScriptData.Stack.PopExtended;
   Else
- ScriptMessage('Comparison Error');
+ ScriptMessage('Comparison Error',etRuntimeError);
   End;
 
   Case TRutisIntType(ScriptData.CurrCmd.P2) Of
@@ -1669,7 +1669,7 @@
     intDouble : Val1 := ScriptData.Stack.PopDouble;
     intExtended : Val1 := ScriptData.Stack.PopExtended;
   Else
- ScriptMessage('Comparison Error');
+ ScriptMessage('Comparison Error',etRuntimeError);
   End;
 
   Case TOperatorCode(ScriptData.CurrCmd.P1) Of

Geändert von mkinzler (20. Aug 2010 um 17:14 Uhr) Grund: Code-Tag durch Delphi-Tag ersetzt
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz